Enregistrer a deux emplacement
Résolujack2125 Messages postés 336 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 26 avril 2024 - 19 févr. 2024 à 10:42
- Enregistrer a deux emplacement
- Audacity enregistrer son pc - Guide
- Enregistrer son ecran - Guide
- Deux comptes whatsapp - Guide
- Enregistrer video youtube - Guide
- Enregistrer en pdf - Guide
2 réponses
16 févr. 2024 à 10:38
Bonjour,
Eh bien c'est tout simple, une fois dans répertoire Bonjour et l'autre dans Merci.
17 févr. 2024 à 11:27
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
19 févr. 2024 à 10:42
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
17 févr. 2024 à 08:22
bonjiur
excuse d'habitude le bonjour s'integre d'office
merci de ta réponse nulle
bon WE