Erreur de compilation à n'y rien comprendre

Erreur de compilation à n'y rien comprendre - VB/VBA/VBS - Programmation

Marsh Posté le 28-04-2009 à 10:51:28    

Bonjour le forum :p,  
 
J'ai une erreur assez simple mais j'ai eu beau lire, relire et re relire le code je vois vraiment pas ou ça peut bugger.
J'ai 2 fonctions sensiblement identiques, l'une marche tandis que l'autre non.  
Je vois joint un screen de ces deux fonctions.  
 
[/img]http://www.hostingpics.net/viewer.php?id=978501Sans_titre.png[img]
 
Le message d'erreur étant : "Erreur de compilation : Argument non facultatif"

Reply

Marsh Posté le 28-04-2009 à 10:51:28   

Reply

Marsh Posté le 28-04-2009 à 11:01:49    

Poster du code plutôt qu'un screen, ça serait pas plus simple ?
En tout cas, je peux pas t'aider, je ne vois pas ton image (proxy, toussa)


---------------
Kao ..98 - Uplay (R6S) : kao98.7.62x39 - Origin (BF4, BF1) : kntkao98
Reply

Marsh Posté le 28-04-2009 à 11:03:09    

moir je dirais qu'il te manque un argument (tu en as 6 à gauche et 5 à droite)


---------------
We deserve everything that's coming...
Reply

Marsh Posté le 28-04-2009 à 11:06:35    

Voici le code qui fonctionne :  
 
Private Sub cmdImporter_Click()
    If fichierImporter <> "" Then
        LireCSV fichierImporter, 0, 1, 2, 37, 43
        parcoursDonnees
        Me.Hide
    Else
        MsgBox "Vous devez sélectionner un fichier pour pouvoir l'importer !", vbExclamation, "Erreur de fichier"
    End If
End Sub
 
Private Sub cmdParcourir_Click()
    ChDir ThisWorkbook.Path
    fichierImporter = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv" )
    txtChemin.Value = Dir(fichierImporter)
End Sub
 
 
Et celui qui ne fonctionne pas :  
 
Private Sub cmdImporterS_Click()
    If fichierImporterS <> "" Then
        LireCSV fichierImporterS, 0, 1, 25, 32
        parcoursDonneesSorties
        Me.Hide
    Else
        MsgBox "Vous devez sélectionner un fichier pour pouvoir l'importer !", vbExclamation, "Erreur de fichier"
    End If
End Sub
 
Private Sub cmdParcourir_Click()
    ChDir ThisWorkbook.Path
    fichierImporterS = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv" )
    txtChemin.Value = Dir(fichierImporterS)
End Sub
 
 
Il y a en effet un argument de moin a extraire dans le second code (celui qui ne fonctionne pas) car se sont des colonnes à extraire d'un fichier CSV et dans le 2ème cas j'ai tout simplement besoin d'une colonne de moins.

Reply

Marsh Posté le 28-04-2009 à 11:09:28    

(t'as un soucis avec les balises on dirait :D )
oui mais l'erreur est "Erreur de compilation : Argument non facultatif", donc je suppose qu'il attend dans tt les cas son 6eme argument [:spamafote]


---------------
We deserve everything that's coming...
Reply

Marsh Posté le 28-04-2009 à 11:20:57    

SICKofitALL a écrit :

(t'as un soucis avec les balises on dirait :D )
oui mais l'erreur est "Erreur de compilation : Argument non facultatif", donc je suppose qu'il attend dans tt les cas son 6eme argument [:spamafote]


+1
 
Il semblerait que l'argument que tu ne passe pas soit tout de même obligatoire.


---------------
Kao ..98 - Uplay (R6S) : kao98.7.62x39 - Origin (BF4, BF1) : kntkao98
Reply

Marsh Posté le 28-04-2009 à 11:56:06    

oui ba en effet si je rajoute un nouvel argument sa fonctionne mais depuis quand j'ai pas le droit de choisir le nombre de colonnes que je veux extraire? tss ces ordi je vous jure c'est capricieux!  je vais extraire une colonne de plus juste pour le fun si sa peut le rendre content mais je comprend vraiment pas ^^.
 
Merci à vous en tout cas.


Message édité par Fouinette85 le 28-04-2009 à 11:56:27
Reply

Marsh Posté le 28-04-2009 à 12:41:57    

C'est pas capricieux un ordi, ca fait ce qu'on lui dit de faire [:spamafote]
Maintenant tu peux tjrs lui passer un argument en plus mais qui ne sera pas pris en compte, en clair modifies ta procédure LireCSV.


---------------
We deserve everything that's coming...
Reply

Marsh Posté le 28-04-2009 à 13:14:08    

Nikel ça fonctionne, merci beaucoup :p  !  
Oui je sais je suis un peu blonde sur les bords roo! Mais on fait ce que l'on peut, à la base je suis pas dans la programmation du tout, je découvre là.

Reply

Marsh Posté le 28-04-2009 à 21:54:56    

Salut, voir aide en ligne sur Optional : Arguments nommés et facultatifs

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed