Discussion :

[Bernard67]

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

[User]

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

[Bernard67]

Bonjour User,

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

[User]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
...
    strCurrent = "U:\Base(de travail).mdb"
    strDest = "X:\SAUVEGARDE\Base(de travail).mdb" 
... 
End Sub

A+

[Bernard67]

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

[User]

De rien

ça fait plaisir des gens sympas et reconnaissants