Sauvegarder le fichier sous un autre répertoire

Bonjour,

En faisant qq recherches en VBA, je tombe sur le code de la discussion "Macro pour sauvegarde multiples d'un même fichier", très bien adapté à ma problématique.
J'aimerais connaitre la syntaxe pour sauvegarder le fichier sous un autre répertoire, et pas sous le même répertoire comme ici (ce qui permet d'isoler les fichiers de sauvegarde du fichier principal, et éviter aux utilisateurs d'ouvrir le mauvais fichier).
Pouvez-vous m'aider SVP, je n' "Excel" pas encore comme vous en VBA.
D'avance merci.

Bonjour,

Ci-joint une macro qui automatise le "versionning" du fichier Excel.
Les sauvegardes seront dans le dossier "backup" au même endroit que le fichier Excel d'origine.
Il y aura une nouvelle version après chaque enregistrement.

La macro doit être copiée dans l'objet ThisWorkbook

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Option Explicit
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = True
    Application.EnableEvents = False
    Me.Save
    Call AfterSave
    Application.EnableEvents = True
End Sub
 
Sub AfterSave()
Dim fso
Dim fil
Dim strNameOrig As String
Dim strBackPath As String
Dim strBackFile As String
 
  Set fso = CreateObject("Scripting.FileSystemObject")
 
  'Nom complet du fichier
  strNameOrig = fso.BuildPath(ThisWorkbook.Path, ThisWorkbook.Name)
 
  'Répertoire de sauvegarde
  strBackPath = fso.BuildPath(ThisWorkbook.Path, "backup")
  If Not fso.FolderExists(strBackPath) Then fso.CreateFolder strBackPath
 
  'Faire une sauvegarde du fichier après enregistrement
  Set fil = fso.GetFile(strNameOrig)
  strBackFile = Format(fil.DateLastModified, "yyyymmddhhmmss") & "_" & ThisWorkbook.Name
  fso.CopyFile strNameOrig, fso.BuildPath(strBackPath, strBackFile), True
  Set fil = Nothing
 
  Set fso = Nothing
 
End Sub

Cdlt.

Bonsoir,
Je vous remercie vivement, votre code est impeccable.
Cordialement.