Expression régulière "Objet Requis"
Bonjour le Forum,
Je cherche à utiliser la méthode Test des expressions régulières et j'ai une erreur d'objet requis.
Je n'arrive pas à débugger (avec Execute c'est ok).
Voici mon code :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
Set FileConfig = fso.OpenTextFile("P:\Detection Ajustement Stock\FichierConfiguration.txt",1,True)
FileConfig_data = FileConfig.ReadAll
FileConfig.Close
arrLines = Split(FileConfig_data,vbCrLf)
Set regEx = New RegExp
regEx.Pattern = "qte_" & matiere
regEx.IgnoreCase = True
regEx.Global = False 'Renvoyer seulement la première occurrence
For Each strLine in arrLines
'MsgBox(strLine) => OK
'Set occurrence = regEx.Execute(FileConfig_Data) => OK
Set occurrence = regEx.Test(strLine) '=> Problème
Next |
PS : le pattern est correct.
Merci de votre aide.
Miistik