Enregistrer a deux emplacement
Résolujack2125 Messages postés 457 Date d'inscription Statut Membre Dernière intervention -
- Enregistrer a deux emplacement
- Audacity enregistrer son pc - Guide
- Comment enregistrer une conversation entre deux personnes ? - Guide
- Deux ecran pc - Guide
- Enregistrer en pdf - Guide
- Comment faire deux colonnes indépendantes dans word - Guide
2 réponses
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:=False
End 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
bonjiur
excuse d'habitude le bonjour s'integre d'office
merci de ta réponse nulle
bon WE