Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1252 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Erreur de compilation à n'y rien comprendre

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Erreur de compilation à n'y rien comprendre

n°1878618
Fouinette8​5
Posté le 28-04-2009 à 10:51:28  profilanswer
 

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"

mood
Publicité
Posté le 28-04-2009 à 10:51:28  profilanswer
 

n°1878628
kao98
...
Posté le 28-04-2009 à 11:01:49  profilanswer
 

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
n°1878629
SICKofitAL​L
misanthrope
Posté le 28-04-2009 à 11:03:09  profilanswer
 

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


---------------
We deserve everything that's coming...
n°1878632
Fouinette8​5
Posté le 28-04-2009 à 11:06:35  profilanswer
 

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.

n°1878634
SICKofitAL​L
misanthrope
Posté le 28-04-2009 à 11:09:28  profilanswer
 

(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...
n°1878641
kao98
...
Posté le 28-04-2009 à 11:20:57  profilanswer
 

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
n°1878658
Fouinette8​5
Posté le 28-04-2009 à 11:56:06  profilanswer
 

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
n°1878681
SICKofitAL​L
misanthrope
Posté le 28-04-2009 à 12:41:57  profilanswer
 

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...
n°1878702
Fouinette8​5
Posté le 28-04-2009 à 13:14:08  profilanswer
 

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à.

n°1879000
kiki29
Posté le 28-04-2009 à 21:54:56  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Erreur de compilation à n'y rien comprendre

 

Sujets relatifs
[PHP].htaccess et erreur 403Erreur : Call to undefined function getByte()
créer projet à partir de code sous visual studio 2008 [10€!]comprendre le code source de netcat
fopen - requete http externe : erreur de connexion (serveur dédié)[PHP] Erreur sur une fonction foreach
Page d'erreurErreur de débutant et utilisation lib Eet
[C#] upload sur serveur + erreur 550Comportement à observer en cas d'erreur de mysql
Plus de sujets relatifs à : Erreur de compilation à n'y rien comprendre


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR