Bonjour Bigophone, JyM, le Forum
Merci pour les encouragements !
Sans connaître la structure de ton fichier TXT, il est quasiment impossible de te répondre clairement, ce qu'à fait Jym d'ailleurs.
Ceci dit, voici une approche de code qui te retournera sur la feuille active en colonne "A" uniquement les lignes du fichier Texte contenant le mot saisi en InputBox.
NB Ce code est subordonnée à la présence d'un fichier "AZERTY.txt" dans le répertoire : "C:\Mes documents\"
Option Explicit
Sub SearchReportStringInTxt()
Dim Reccord As String, SearchString As String
Dim i As Integer
SearchString = InputBox("Indiquer la String recherchée")
i = 1
Open "C:\Mes documents\AZERTY.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Reccord
If Not InStr(1, Reccord, SearchString, 1) = 0 Then
Range("A" & i) = Reccord
i = i + 1
End If
Loop
Close #1
End Sub
Maintenant, si on connait excatement la structure du fichier TXT on peut mieux faire...
Bon Dimanche
@+Thierry