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