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 : Sélectionner tout - Visualiser dans une fenêtre à part
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!