Appeler un Module [Résolu]

Messages postés
929
Date d'inscription
vendredi 10 novembre 2000
Dernière intervention
10 septembre 2010
- - Dernière réponse : violent_ken
Messages postés
1822
Date d'inscription
mardi 31 mai 2005
Dernière intervention
26 octobre 2010
- 19 sept. 2005 à 19:28
Salut... Je ne m'y connait pas vraiment avec les modules....

Je veux si je clique sur un optButton que mon fichier se copie dans un autre répertoire. Ca me sort un message d'erreur...

Ca bug à la ligne CopierColler.CopierFichier et ca me dit comme erreur...

Erreur de compilation: Cet argument n'est pas facultatif.

J'ai fais quelque test et ca me sort toujours cet erreur...

Voici le code de ma Form

Private Sub Form_Load()
Me.Show

optOCTR.Value = False
optLegal.Value = False

End Sub

Le code pour mon OptButton

Private Sub optOCTR_Click()
CopierColler.CopierFichier
End Sub


Et le code dans mon module

Public Sub CopierFichier(Origine As String, Destination As String)
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile "c:\jeff\test.txt", "m:\jeff\testtest.txt"
Set fs = Nothing
End Sub



P.S. mon MSDN ne fonctionne pas... Donc je fais un appel à tous...
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
1822
Date d'inscription
mardi 31 mai 2005
Dernière intervention
26 octobre 2010
3
Merci
Violent Ken

Voilà le bon code :

Private Sub Form_Load()
Me.Show

optOCTR.Value = False
optLegal.Value = False

End Sub

Le code pour mon OptButton

Private Sub optOCTR_Click()
CopierFichier "c:\jeff\test.txt", "m:\jeff\testtest.txt"
End Sub

Et le code dans mon module

Public Sub CopierFichier(Origine As String, Destination As String)
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile Origine, Destination
Set fs = Nothing
End Sub

@+

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 90 internautes nous ont dit merci ce mois-ci

Messages postés
3758
Date d'inscription
mardi 23 septembre 2003
Dernière intervention
13 mars 2006
8
0
Merci
Salut, d'où sort ce "CopierColler." ?
Ensuite, ta sub CopierFichier attend 2 paramètres (origine et destination) donc :

dans l'option :
call CopierFichier("c:\jeff\test.txt", "m:\jeff\testtest.txt")
et dans ton module :
Public Sub CopierFichier(Origine As String, Destination As String)
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile Origine , Destination
Set fs = Nothing
End Sub

ou alors, si c'est toujours les même fichiers origine et destination (ce dont je doute) :

dans l'option :
CopierFichier
et dans le module :
Public Sub CopierFichier()
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile "c:\jeff\test.txt", "m:\jeff\testtest.txt"
Set fs = Nothing
End Sub

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
Messages postés
3758
Date d'inscription
mardi 23 septembre 2003
Dernière intervention
13 mars 2006
8
0
Merci
Autre chose, dès que tu codes optOCTR.Value = ..., le déroulement du prog passe par le optOCTR_Click() donc exécute ta sub CopierFichier.
Pense à poser un test : if optOCTR.Value = true then ...
Mieux, pose un bouton "Copier" dans lequel tu testera la valeur de tes optionbutton, ainsi, les copies ne se feront que sur le clic du bouton et non sur le clic des options.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.