trouver un element dans texte

[arnaud]

bonjour
je souhaite qu'excel ouvre un fichier txt puis y cherche des mots.
merci d avance

 

[Epsilon 17]

Bonjour Arnaud, le Forum

Mais encore ???

Bye

 

[arnaud]

re
en faite je veux qu excel ouvre un fichier texte,qui se trouve dans le meme repertoir que mon fichier excel, du nom de toto.txt qu'il lise si ce dossier et qu'il me copie une partie du dossier si il trouve le mot blabla.
voili voilo

 

[MichelXld]

bonsoir Arnaud , bonsoir Pascal

cet exemple verifie si le mot 'blabla' existe dans un fichier texte 'toto.txt' , placé dans le meme repertoire que le classeur contenant la macro
( pour le reste je n'ai pas compris ce que tu veux faire )


Dim Lignes As String

Open ThisWorkbook.Path & '\\\\\\\\toto.txt' For Input As #1

Do While Not EOF(1)
Line Input #1, Lignes
If Not InStr(1, Lignes, 'blabla', vbTextCompare) = 0 Then MsgBox 'trouvé : ' & Lignes
Loop

Close #1



bonne soirée
MichelXld