Sauvegarder des bases à partir d'une base qui sert à les gérer

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:

---

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

Salut,

Il me semble que le code est très proche de ta demande :?

Sous quels noms souhaites-tu sauvegarder ces bases :

Quelques exemples seraient les bienvenus ;)

Bonjour User,

Je souhaite les sauvegarder sous le meme nom, à l'identique

Salut,

Je ne voie pas ou est le problème :

si ta base source a pour chemin complet:
U:\Base(de travail).mdb

et le répertoire de destination à pour chemin:
X:\Sauvegarde

les modifs dans le code sont :

Code:

---

1 2 3 4 5 6

... strCurrent = "U:\Base(de travail).mdb" strDest = "X:\SAUVEGARDE\Base(de travail).mdb" ... End Sub

---

A+

Merci user,

Mon problème est que je collais l'adresse après : CurrentProject.Path
c'est pour cela que la copie ne se faisait pas.

Mantenant tout est OK

Merci et bon WE

De rien ;)

ça fait plaisir des gens sympas et reconnaissants :ccool: