1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
'sauvegarde du fichier au format xlsm (pour pouvoir enregistrer une macro)
fileOut = repOut & "ref021 " & moisReporting(1) & " vs " & moisReporting(2) & ".xlsm"
wbRef021.SaveAs fileName:=fileOut, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
'mise a jour automatique de l'ecran
Application.ScreenUpdating = True
'pour revenir a la configuration initiale
Application.DisplayAlerts = True
'deblocage du recalcul automatique
Application.Calculation = xlCalculationAutomatic
'confirmation de la mise a jour automatique des liens
Application.AskToUpdateLinks = True
'affichage de la boite de dialogue
MsgBox "Fin de l'exécution de la macro.", vbOKOnly, "Information" |
Partager