Fonction 'like' avec plusieurs arguments

Bonjour,

voici mon problème: j'ai un fichier texte dans lequel je viens lire toutes les lignes une par une. J'enregistre le résultat dans une variable, et je voudrais tester cette variable. Si la variable contient certains mots un message d'erreur s'affiche, sinon je copie la variable dans une cellule de ma feuille excel.
Je n'arrive pas à utiliser la fonction 'like' pour vérifier tous "les mots interdits", voici mon code pour mieux comprendre:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Open Chemin For Input As #1   Do Until EOF(1) Line Input #1, ligne   Compar = ligne like "*ESSAI*" or "*IPS*" or "*TEST*" or "*FIN*"   If Compar = False Then MsgBox "erreur!" Else ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.FormulaR1C1 = ligne End If   loop   Close #1

---

Merci d'avance pour vos réponses!

Bonjour,
Pas tester mais essaye avec

Code:

---

like "*ESSAI*IPS*TEST*FIN*"

---

A+
Bon j'ai tester et ça va pas, mais avec..

Code:

---

Compar = ligne Like "*ESSAI*" Or ligne Like "*IPS*" Or ligne Like "*TEST*" Or ligne Like "*FIN*"

---

Ca marche
A+

Bonjour bdoux

Je pense qu'il faut que tu utilse plusieurs boucle

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

compar = ligne like "essai" if compar = false then goto erreur end if   compar = ligne like "IPS" if compar = false then goto erreur end if   [...] 'Faire les autres conditions sur lemême modèle   erreur: if compar = false then [...] end if

---

A ++

Bonjour,

Il est préférable de faire l'économie du Like alors que le Instr est suffisant ici.

exemple :

Code:

---

1 2 3 4 5 6 7 8 9

Dim filtres, machaine As String, compar As Boolean filtres = Array("ESSAI", "IPS", "TEST", "FIN") machaine = "sESSAIaaaa" For i = 0 To UBound(filtres) If InStr(machaine, filtres(i)) Then compar = True: Exit For End If Next MsgBox compar

---

Merci pour vos réponse, j'ai testé plusieurs des solutions proposés ça fonctionne!