Bonjour,

J'ai beau arpenter les tutoriels et forums, je ne vois pas de solution à mon problème qui pourtant semble relativement simple.

Il s'agit de repérer, grâce à une expression régulière, les dates aux formats suivants :
07/08/1981 - 7/08/1981 - 07/8/1981 - 7/8/1981
07-08-1981 - 7-08-1981 - 07-8-1981 - 7-8-1981
07.08.1981 - 7.08.1981 - 07.8.1981 - 7.8.1981

J'ai tenté moult variations mais mon code ne détecte pas celles avec le séparateur "." alors que pour les autres dates tout va bien.

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
...
set reg = New VBScript_Regexp_55.RegExp
reg.Multiline = False
reg.ignorecase = True
reg.Global = False
 
reg.pattern = "\d{1,2}(\.|/|-)\d{2}(\.|/|-)\d{4}"
set Matches = reg.Execute(DateSource)
 
For Each Match In Matches
     Debug.Print "source >>", Match.Value
     For i = 0 To Match.SubMatches.Count - 1
          Debug.Print "[$" & i + 1 & "]", Match.SubMatches(i)
     Next i
Next Match
...
Merci d'avance pour votre aide.