code vba trop long a exécuter

[julie999]

bonjour
j'utilise un classeur excel et une macro me fait les sauvegardes
elle me copie une feuille et me l'enregistre dans un nouveau classeur a un endroit spécifier et au format choisit
ainsi de suite pour 5feuilles
j'aimerais trouver un peu d'aide afin de réduire le code vba pour qu'il s’exécute plus vite et sans ramer

en faites au lieu de me copier la feuille a chaque fois dans un nouveau classeur de l'enregistrer et de faire le classeur actif
j'aimerais un code qui m'ouvre tous les classeur en même temps qu'il enregistre une fois et me ferme tous les classeur sauf le classeur principale ou se trouve mon fichier
voici mon code

Application.ScreenUpdating = False
Sheets("RECEPTION").Copy
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ChDir "C:\Archives photobox\Reception PHOTOBOX"
ActiveWorkbook.SaveAs chemin & "Reception du " & _
Format(Worksheets("RECEPTION").Range("z2"), "d\-mm\-yyyy") & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("cross docking").Copy
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ChDir "C:\Archives photobox\Cross Docking"
ActiveWorkbook.SaveAs chemin & "Cross docking du " & _
Format(Worksheets("cross docking").Range("a4"), "d\-mm\-yyyy") & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("direct link arvato").Copy
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ChDir "C:\Archives photobox\WAY BILL Arvato"
ActiveWorkbook.SaveAs chemin & "Way Bill Arvato du " & _
Format(Worksheets("direct link arvato").Range("c15"), "d\-mm\-yyyy") & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("direct link SARTROUVILLE").Copy
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ChDir "C:\Archives photobox\WAY BILL Sartrouville"
ActiveWorkbook.SaveAs chemin & "Way Bill Sartrouville du " & _
Format(Worksheets("direct link SARTROUVILLE").Range("c15"), "d\-mm\-yyyy") & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("direct link Angleterre").Copy
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
ChDir "C:\Archives photobox\WAY BILL Londres"
ActiveWorkbook.SaveAs chemin & "Way Bill Angleterre du " & _
Format(Worksheets("direct link Angleterre").Range("c15"), "d\-mm\-yyyy") & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close
Application.ScreenUpdating = True

End Sub
Julie

 

[julie999]

Re : code vba trop long a exécuter

re efgé,le fil
oui effectivement ça fonctionne
merci de m'avoir fait ce code sur mesure
Julie "gros bisou"