"Argument ou appel procedure incorrect"

[philoche63]

Bonsoir les amis,
j'ai beau chercher je ne trouve pas la solution à mon probleme !
-ouverture d'un fichier texte
-lecture sequentielle
-et test de la valeur de la chaine
à l'execution de cette courte macro j'ai toujours le meme message : Argument ou appel procedure incorrect !
qu'en pensez vous ?
Merci par avance de votre aide
Philoche

 

[Herdet]

Re : "Argument ou appel procedure incorrect"

Bonjour,
Erreur normale lorsqu'il n'y a pas de ' dans Chaine car PosCh1 = 0 et donc Champs1 = Mid(Chaine, 1, PosCh1 - 1) n'est plus calculable.



Ajouter un test d'erreur ou modifier la formule de Champs1 .
Cordialement
Robert

 

[Herdet]

Re : "Argument ou appel procedure incorrect"

Il faudrait aussi ajouter un arrêt dans le cas où l'utilisateur clique sur Annuler pendant la sélection du fichier.

Sub LectureFichier()
   ' Ouverture et Lecture du fichier CSV
   Fichier = Application.GetOpenFilename("Tous les Fichiers,*.*")
   If Fichier = False Then End
   '.....

 

[philoche63]

Re : "Argument ou appel procedure incorrect"

bonjour,
Je savais que mon problème n'allait pas être le votre bien longtemps !!
Merci pour vos réponses !
Bonne journée
Philoche