Discussion :

[Commandeur]

bonjour,

je recherche a faire une copie de la base de donne en cours avec un bouton dans un formulaire.

J'ai trouver un morceau de code, mais il marche pas.

Comment je peux le corriger?

Code :

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

1
2
3
4
5
6
 
dim truc as new filesystemobject 
dim machin as variant 
set machin=truc.getfile("monchemin\mabase.mdb") 
machin.copy(a:\mabase.mdb) 
msgbox("copie terminee")

Merci de vos solutions

[Taoueret]

qu'est-ce qui ne marche pas ? tu as un message d'erreur à l'exécution ? ça compile pas ?
Il te manque des guillemets dans machin.copy ("a:\mabase.mdb")

[Commandeur]

Message d'erreur:
---------------------------
Erreur d'exécution '424':

objet requis
---------------------------

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Commande2_Click()
 
Dim machin As Variant
Set machin = truc.getfile("C:\Documents and Settings\Commandeur\Bureau\etage.mdb")
machin.copy ("a:/etage.mdb")
MsgBox ("Copie terminer")
End Sub

[Taoueret]

C'est une erreur de copier coller ou truc n'est plus déclarée en filesystemobject ?

Si c'est le cas, le message erreur d'exécution vient surement de cette absence de déclaration

[Commandeur]

ok, met quel correction je doit faire?

[Taoueret]

Code :

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

1
2
 
dim truc as new filesystemobject

[Commandeur]

j'ai fait la correction mais sa me mais "erreur de syntaxe"

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Commande2_Click()
 
Dim machin As Variant
dim truc as new filesystemobject ("C:\Documents and Settings\Commandeur\Bureau\etage.mdb")
machin.copy ("a:/etage.mdb")
MsgBox ("Copie terminer")
End Sub

[nirG95]

Bonjour,

http://access.developpez.com/faq/?page=TAProg#SaveBdd

ce qui donne :

Code :

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

1
2
3
4
5
Dim fso As Object, strDest As String
strDest = "A:\" & CurrentProject.Name
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile CurrentProject.FullName, strDest
Set fso = Nothing

Un peu de recherche ne fait pas de mal


Cordialement