Bonjour Forum,
J'ai récupéré dans le forum un code très bien permettant de faire une sauvegarde automatique du fichier.
Ca marche très bien, mais je ne sais pas comment indiquer le chemin d'enregistrement du fichier.
Je voudrais que les fichiers générés soient enregistrés dans le répertoires:
D:MyDocuments/Backup/Work
dans le code ci-dessous, le fichier va uniquement dans le répertoires MyDocuments!
Merci pour votre aide
Gilles
Sub backup_file()
'BACK UP DU FICHIER
'
Dim vnomfichier As String
Dim vchemin As String
Dim strdate As String
strdate = Format(Date, 'dd-mm-yy-') & Format(Time, 'h-mm-ss')
vnomfichier = ('Manager')
vchemin = 'D:Mydocuments'
ActiveWorkbook.SaveCopyAs Filename:=vnomfichier + strdate + '.xls'
J'ai récupéré dans le forum un code très bien permettant de faire une sauvegarde automatique du fichier.
Ca marche très bien, mais je ne sais pas comment indiquer le chemin d'enregistrement du fichier.
Je voudrais que les fichiers générés soient enregistrés dans le répertoires:
D:MyDocuments/Backup/Work
dans le code ci-dessous, le fichier va uniquement dans le répertoires MyDocuments!
Merci pour votre aide
Gilles
Sub backup_file()
'BACK UP DU FICHIER
'
Dim vnomfichier As String
Dim vchemin As String
Dim strdate As String
strdate = Format(Date, 'dd-mm-yy-') & Format(Time, 'h-mm-ss')
vnomfichier = ('Manager')
vchemin = 'D:Mydocuments'
ActiveWorkbook.SaveCopyAs Filename:=vnomfichier + strdate + '.xls'