Filecopy base courante

**koyot3** · 08/07/2008, 08h56

Bonjour a tous

J'essaie de copier ma base actuel vers un autre dossier.
en gros ca donne ca :

Code :

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

1
2
3
4
5
6
7
'copie de la base
Dim a, b
a = CurrentDb.Name
chemin = chemin + "\"
chemin = chemin + nom
b = chemin
FileCopy a, b

a = chemin de ma base actuel (C:\base.mdb)
b = chemin de destination (D:\base.mdb)

Access refuse de me copier la base actuel. Par contre, avec une base fermée, ca fonctionne.

Au pire, je pourrais sauvegardé la base actuel sous un autre nom et copié celle avec l'ancien nom, mais je n'arrive pas à la sauvegardé
j'arrive a renommer mais pas la base ouverte...

Code :

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

Name "C:\jo.mdb" As "C:\base-jojo.mdb"

Merci d'avance de votre aide

**koyot3** · 08/07/2008, 09h30

Code :

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

1
2
3
4
5
6
7
8
9
Dim fs As FileSystemObject 
dim f as TextSream 
 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set f = fs.opentextfile("c:\CopyDB.bat", 2, True) 
f.write "copy " & CurrentDb.Name & " destination" 
f.Close 
 
Shell "c:\CopyDB.bat"

Après recherche dans la faq, j'ai trouvé ce bout de code...
Est-ce que quelqu'un la déjà utilisé car lorsque je rentre une destination "C:\essai\" la procédure ce termine mais je n'ai pas de copie ....

**Dolphy35** · 08/07/2008, 22h41

Salut,

sauf erreur de ma part il est impossible de copier la base en cours, car elle est ouverte. J'ai developpé une base avec mise à jour automatique elle teste si nouvelle version et si c'est le cas j'ouvre une deuxième bdd qui me réalise la copie de la bbd du serveur vers le poste de l'utilisateur.

Dolphy

**koyot3** · 09/07/2008, 08h45

Code :

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

1
2
3
4
5
6
7
Dim FicRef As String
Dim FicSave As String
Dim fso As New FileSystemObject
FicRef = CurrentDb.Name
FicSave = chemin + "\"
Set fso = New FileSystemObject
fso.CopyFile FicRef, FicSave, True