Application.ScreenUpdating = False
Application.ScreenUpdating = True
'fermer le classeur d'affectation des projets
Workbooks("Affectation Projets S Technique.xls").Activate
ActiveWorkbook.Close savechanges:=True
Application.ScreenUpdating = True
Sheets("Index").Select
Range("H12").Interior.ColorIndex = 4
Range("I10") = "100%"
Sleep 2000
Application.ScreenUpdating = False
Range("A1").Select
Application.ScreenUpdating = True
Sheets("Index").Select
MsgBox "Mise à jour terminé", vbInformation
Bonjour Jean,Re : Rester sur une feuille pendant l'exécution d'une macro
Bonjour ledaf
Oui
mettre en debut de macro:
Code:Application.ScreenUpdating = False
et avant End Sub
Code:Application.ScreenUpdating = True