Bonjour le forum,

A partir de ce code pris sur le forum, je sauvegarde chaque base dans un repertoire spécial.
Je souhaiterais à partir d'un bouton sur 1 formulaire d'une base qui me sert à gere les bases de travail (une 20) faire une copie de chaque base, avec 1 bouton par base, exemple de : "U\Base(de travail).mdb" vers "X\Sauvegarde".
Qui peut m'aider à adapter ce code ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub SAUVEGARDE_BASE_Click()
DoCmd.Hourglass True
Dim fso As Object
Dim strCurrent, strDest As String
  Set fso = CreateObject("Scripting.FileSystemObject")
    strCurrent = CurrentProject.Path & "\Base.mdb"
    strDest = CurrentProject.Path & "\SAUVEGARDE\" & "Base" & " " & Format(Now, "yyyy mm dd hh nn ss") & ".mdb"
 
      fso.CopyFile strCurrent, strDest
 
  Set fso = Nothing
 
 DoCmd.Hourglass False
 
  MsgBox "La base est sauvegardée sur" & vbNewLine & "\\X\SAUVEGARDE"
 
End Sub
Merci pour l'aide