lecture de fichier simple

Bonjour,

Je souhaite parcourir en sequentiel un fichier ligne par ligne, tout bête !
Malgré la présence d'un 0D0A, il me lit l'intégralité du fichier !
par contre si je l'ecris via un ordre VBA cela fonctionne bien,
d'ou vient le bug ?

Code:

---

1 2 3 4 5

Open Application.ThisWorkbook.Path & "\abcd.txt" For Input As #1 While Not EOF(1) line Input #1, Wend Close #1

---

merci d'avance pour l'aide

Code:

---

1 2 3 4 5 6 7

( ' Open Application.ThisWorkbook.Path & "\abcd.txt" For Output As #2 ' Print #2, "ABCD" ' ' Print #2, "EFGH" ' ' Print #2, "IJKL" ' ' Close #2 )

---

Bonjour,

J'ai rencontré le même problème sur les imports de fichiers textes. Pour remédier à cela j'ouvre le fichier texte avec Word puis je le ré-enregistre dans un second fichier. Et les lignes sont alors parfaitement séparées.

En espérant avoir aidé.

Je me demande si la lecture séquentielle ne reconnait pas soit le Carriage Return soit le Line Feed. Des idées?
Car je rencontre ce problème sur la majorité des fichiers textes.