Zlopeck
XLDnaute Junior
double enregistrement [RESOLU]
Bonjour à tous,
Je souhaite enregister un fichier à deux endroits différents, à savoir mon disque dur et une clé USB. Pour cela j'ai trouvé le code suivant (merci le forum) :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:\nom du fichier.xls"
ActiveWorkbook.SaveAs Filename:="G:\Dossier\nom du fichier.xls"
Application.DisplayAlerts = True
End Sub
dans lequel D désigne mon disque dur et G ma clé USB.
Ce code fonctionne parfaitement sauf si j'utilise un autre PC qui ne comporte pas le même nombre de lecteurs et sur lequel la clé USB est désignée par une autre lettre.
Si l'un d'entre vous a une idée, je suis preneur...
merci d'avance.
Bonjour à tous,
Je souhaite enregister un fichier à deux endroits différents, à savoir mon disque dur et une clé USB. Pour cela j'ai trouvé le code suivant (merci le forum) :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:\nom du fichier.xls"
ActiveWorkbook.SaveAs Filename:="G:\Dossier\nom du fichier.xls"
Application.DisplayAlerts = True
End Sub
dans lequel D désigne mon disque dur et G ma clé USB.
Ce code fonctionne parfaitement sauf si j'utilise un autre PC qui ne comporte pas le même nombre de lecteurs et sur lequel la clé USB est désignée par une autre lettre.
Si l'un d'entre vous a une idée, je suis preneur...
merci d'avance.
Dernière édition: