Microsoft 365 Récupérer la date contenue dans le nom du classeur actif

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une belle journée

Comme l'indique le titre du fil, je souhaite récupérer la date contenue dans le nom de mon classeur actif.

J'ai trouvé comment récupérer tout le nom (merci à l'auteur) :

Sub TestNomFichier()
MsgBox Split(ActiveWorkbook.Name, ".")(0)
End Sub

Toutefois, je voudrais juste la date qui est toujours au même format mais qui peut se trouver dans des positions différentes :
1 - isiTel_lionel_Global 2022 06 24,
2 - isiTel_lionel_Global 2022 06 24-ok,
3 - isiTel_lionel_Global 2022 06 24-ok_bon, et peut-être d'autres possibilités,

Est-il possible de récupérer la date où qu'elle soit ? et la coller, par exemple, en cellule A1 de la feuille active,

Un grand merci par avance et je continue mes recherches,
Amicalement,
lionel

 

[Usine à gaz]

Bonjour à tous,

Un autre code sans expression régulière :

Function extDate()
Dim x, i&
   x = ThisWorkbook.Name
   For i = 1 To Len(x) - 9
      If Mid(x, i, 10) Like "#### ## ##" Then extDate = DateValue(Mid(x, i, 10)): Exit Function
   Next i
End Function

Bonjour et merci mapomme
Je teste et je reviens,
lionel

 

[Usine à gaz]

Bonjour à tous,

Un autre code sans expression régulière :

Function extDate()
Dim x, i&
   Application.Volatile
   x = ThisWorkbook.Name
   For i = 1 To Len(x) - 9
      If Mid(x, i, 10) Like "#### ## ##" Then extDate = DateValue(Mid(x, i, 10)): Exit Function
   Next i
End Function

Nickel aussi ... Merci à toi

 

[job75]

Bonjour mapomme,

En effet DateValue fonctionne avec l'espace ce qui n'est pas le cas avec DATEVAL pour Excel.

A+

 

[job75]

Du coup je supprime le Replace dans ma fonction :

Function RecupDate() As Date
Application.Volatile
Dim RegEx As Object
Set RegEx = CreateObject("VBScript.RegExp") 'expression régulière
RegEx.Pattern = "20\d(2)\s[01]\d\s[0-3]\d" 'années 2000 à 2099
RecupDate = RegEx.Execute(ThisWorkbook.Name)(0)
End Function

DateValue n'est pas nécessaire si la fonction est déclarée As Date.