Enregistrer a deux emplacement
Résolujack2125 Messages postés 486 Date d'inscription Statut Membre Dernière intervention -
comment enregistrer un fichier excel a deux emplacement
vous êtes super!
merci à tous
2 réponses
-
Bonjour,
Eh bien c'est tout simple, une fois dans répertoire Bonjour et l'autre dans Merci.
-
Bonjour
Il faut faire
Fichier
enregistrer sous
Parcourir
choisir le DD exemple E:/
Dossier
Sous dossier
et enregistrer
Puis recommencer pour un autre emplacement
Fichier
enregistrer sous
Parcourir
choisir le DD exemple G:/
Dossier
Sous dossier
et enregistrer
Pour simplifier les choses créés des dossier et sous dossiers identiques sur les deux supports
Vous pouvez écrire une macro avec l'enregistreur de macro
-
ok mais voila la solution
Sub Sauvegarde()
Application.DisplayAlerts = False
If Len(Dir("C:\Users\jacques\Documents\jeux loto", vbDirectory)) > 0 Then
ActiveWorkbook.SaveAs Filename:="C:\Users\jacques\Documents\jeux loto\" & ActiveWorkbook.Name, CreateBackup:=False
End If
If Len(Dir("g:\loto", vbDirectory)) > 0 Then
ActiveWorkbook.SaveAs Filename:="G:\loto\" & ActiveWorkbook.Name, CreateBackup:=FalseEnd If
If Len(Dir("E:\loto", vbDirectory)) > 0 Then
ActiveWorkbook.SaveAs Filename:="E:\loto\" & ActiveWorkbook.Name, CreateBackup:=False
End If
If Len(Dir("F:\loto", vbDirectory)) > 0 Then
ActiveWorkbook.SaveAs Filename:="F:\loto\" & ActiveWorkbook.Name, CreateBackup:=False
End If
ActiveWorkbook.SaveAs Filename:="C:\Users\jacques\onedrive\xxxx\ " & ActiveWorkbook.Name, CreateBackup:=False
End Sub
-
