"Argument ou appel procedure incorrect"

philoche63

XLDnaute Nouveau
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
 

Fichiers joints

Herdet

XLDnaute Occasionnel
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.

Test-fichier texte.JPG

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

Herdet

XLDnaute Occasionnel
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.
Code:
Sub LectureFichier()
   ' Ouverture et Lecture du fichier CSV
   Fichier = Application.GetOpenFilename("Tous les Fichiers,*.*")
   If Fichier = False Then End
   '.....
 

philoche63

XLDnaute Nouveau
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
 

Discussions similaires


Haut Bas