Discussion :

[RomBon]

Bonjour Mercatog, et tous

J'ai lu cette discussion.

j'ai testé ton code mais l'instruction ne fonctionne pas dans mon fichier txt.
Lorsque je teste la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   If InStr(UCase(LigneTxt), "Data") = 0 Then Fichier2.WriteLine LigneTxt

les lignes contenant le mot "Data" s'écrivent tout de même.
As-tu une solution stp, car je tourne en rond.
Merci

Et en pj le fichier txt pour exemple