XL 2016 Emploi de la méthode readline

tontonexcel · 26 Août 2021

Bonjour à tous

J'ai repris un programme effectué quelques mois plus tôt en me rendant compte d'une erreur que je n'arrive pas à comprendre sur la lecture des fichiers txt. Je ne comprends pas pourquoi lorsque je veux tester une valeur dans mon fichier txt par un simple If le ReadLine s'exécute à nouveau et de ce fait saute une ligne sur 2 , et ce qui est encore plus étrange si je fais un Debug.Print avec ReadLine la lecture s'effectue logiquement de ligne en ligne
J'ai essayé de créer une variable pour enregistrer la valeur du ReadLine toujours le même effet
J'espère que j'ai été clair dans mes explications voici mon programme
Merci d'avance si vous voyez le problème

sylvanu · 26 Août 2021

Bonsoir Tontonexcel,
Dans votre macro vous avez deux fichier_txt.ReadLine, donc il lit à chaque fois une ligne, le problème vient peut être de là.
Testez cette PJ en passant par une variable à la lecture :

VB:

Sub fso_lire_donnees_txt()
Dim fso As FileSystemObject
Dim fichier_txt As TextStream
Dim Chaine
On Error GoTo gestion_erreur
Set fso = New FileSystemObject
' Ouverture du fichier répertoire fichier Excel en mode lecture
Set fichier_txt = fso.OpenTextFile(ThisWorkbook.Path & "\export.txt", ForReading)

Do While Not fichier_txt.AtEndOfStream
    Chaine = fichier_txt.ReadLine
    If Chaine = "100" Then
        MsgBox "Ok"
    End If
Loop
fichier_txt.Close
Set fichier_txt = Nothing
Set fso = Nothing
Exit Sub
gestion_erreur:
MsgBox ("Le fichier n'existe pas"), vbCritical
End Sub

tontonexcel · 26 Août 2021

Bonsoir Sylvanu

Merci de t'intéresser à mon problème, effectivement en passant par une variable ca fonctionne

XL 2016 Emploi de la méthode readline

tontonexcel

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

tontonexcel

XLDnaute Occasionnel

Discussions similaires