"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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas