J'ai un fichier excel intitulé "Base d'analyse IEC 30-11-12 CUN 2010.xls" duquel j'ai besoin d'extraire uniquement la date "30-11-12" par macro.
Auriez vous une solution pour moi?
Merci de votre aide,
Gant
Function Dte(chaine)
p = 1
Do While p <= Len(chaine) - 8 And Dte = ""
If Mid(chaine, p, 8) Like "##-##-##" Then Dte = Mid(chaine, p, 8) Else p = p + 1
Loop
End Function
ou
Code:
Function Dte1(chaine)
Set obj = CreateObject("vbscript.regexp")
obj.Pattern = "\d{2}[-/ ]\d{2}[-/ ]\d{2}"
Set a = obj.Execute(chaine)
If a.Count > 0 Then Dte1 = a(0) Else Dte1 = ""
End Function