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
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
=STXT(SUBSTITUE(CELLULE("filename");" ";);EQUIV(VRAI;ESTNUM(-STXT(SUBSTITUE(CELLULE("filename");" ";);LIGNE(INDIRECT("1:9999"));8));0);8)
Private Sub Workbook_Open()
Feuil1.[B3] = "=DateFichier"
Me.Saved = True
End Sub