sauvegarde automatique: spécifier chemin du fichie

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'