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