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 :
PS : le pattern est correct.
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
Merci de votre aide.
Miistik
Partager