Microsoft 365 SaveCopyAs vers plusieurs adresses de destination

[SwimCoachNico79]

Bonjour le forum,

J'ai ce code qui me permet de faire une copie de sauvegarde à une adresse précise.
Je voulais savoir comment faire pour que la même copie soit sauvegardée à deux endroits différents. Est-ce possible ?

Merci par avance.

SCN79


Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim NomDossier As String
Dim NomFichier As String

NomDossier = "C:\Users\XXX\Documents\SAUV FICHIER XXX\"
Application.DisplayAlerts = False
NomFichier = Format(Date, "dd.mm.yyyy") & "_" & Format(Time, "hh.mm") & "_XXX.xlsm"
ActiveWorkbook.SaveCopyAs NomDossier & NomFichier

End Sub

 

[Rouge]

Bonjour,

Recopiez les 4 dernières lignes en changeant le chemin dans "NomDossier" et collez_les à la suite

Cdlt

 

[SwimCoachNico79]

Bonjour,

Recopiez les 4 dernières lignes en changeant le chemin dans "NomDossier" et collez_les à la suite

Cdlt

Merci bcp... en effet je n'avais dupliqué que la ligne "NomDossier"...
SCN79