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!