Enregistrer a deux emplacement
Résolujack2125 Messages postés 398 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 29 janvier 2025 - 19 févr. 2024 à 10:42
- Enregistrer a deux emplacement
- Audacity enregistrer son pc - Guide
- Enregistrer en pdf - Guide
- Comment enregistrer une conversation entre deux personnes ? - Guide
- Comment enregistrer une video youtube - Guide
- Enregistrer son ecran - 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