job75
XLDnaute Barbatruc
Bonjour le forum,
Je cherche à résoudre un problème agaçant.
Dans les 3 fichiers joints j'ai cette macro dans ThisWorkbook :
Ouvrez les 3 fichiers et cliquez sur la commande "Enregistrer".
Malgré Application.ScreenUpdating = False il y a des sauts d'écran.
Comment les éviter ?
A+
Je cherche à résoudre un problème agaçant.
Dans les 3 fichiers joints j'ai cette macro dans ThisWorkbook :
Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim fich As Workbook
Cancel = True
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each fich In Workbooks
fich.Save
Next fich
Application.EnableEvents = True
End Sub
Malgré Application.ScreenUpdating = False il y a des sauts d'écran.
Comment les éviter ?
A+