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

 

[Lolote83]

Bonjour @Usine à gaz ,
Est-ce que l'année comme indiquée sur les exemples sera toujours la première valeur numérique ?
Si OUI, peut être comme ceci

Sub Test()
    xNom = ActiveWorkbook.Name
    xPos = InStr(1, xNom, 2)
    xDat = Mid(xNom, xPos, 10)
    xDecoupe = Split(xDat, " ")
    xDateFinale = CDate(xDecoupe(2) & "/" & xDecoupe(1) & "/" & xDecoupe(0))
End Sub

@+ Lolote83

 

[Usine à gaz]

Bonjour et merci Lolote83,

Nickel et je joins le fichier test.

lionel

 

[Lolote83]

Re bonjour @Usine à gaz ,
Je viens de voir ton fichier joint, mais la macro n'est pas complète et le résultat du coup n'est pas bon.
Ton fichier s'appelle Recupere 2022 03 24_date.xlsm
La date que tu inscris en A1 = 24/06/2022 soit la date du jour avec la commande [A1]=Date.

Reprends la macro du post#2 et à la fin tu peux rajouter [A1]=xDateFinale
@+ Lolote83

 

[TooFatBoy]

Bonjour,

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,

Si la date peut être "dans des positions différentes", pourquoi ne donner que des exemples où elle est toujours au même endroit ???

 

[Usine à gaz]

Re-Lolote83
Le code fonctionne super bien, encore merci

Mais c'était trop simple
Pour que nos fichiers journaliers soient toujours dans l'ordre de dates :
La date est toujours sous cette forme "2022 06 24"
la date est toujours au même format mais peut se trouver en positions différentes dans le nom du classeur.
1 - isiTel_lionel_Global 2022 06 23,
2 - isiTel_lionel_Global 2022 06 23-ok,
3 - isiTel_lionel_Global 2022 06 23-ok_bon, et peut-être d'autres possibilités,

Dans mon fichier de travail, pour que je puisse faire une compraison de dates
Il faudrait que ça apparaisse en "G7" comme cela : 23.06.22
Je joins le fichier avec le résultat attendu.

Je continue mes recherches,
lionel

 

[Usine à gaz]

Bonjour,


Si la date peut être "dans des positions différentes", pourquoi ne donner que des exemples où elle est toujours au même endroit ???

Bonjour TooFatBoy
Ben NON, c'est souvent différent, d'où ma demande.
lionel

 

[TooFatBoy]

Ben NON, c'est souvent différent, d'où ma demande.

Ah oui, on le voit bien dans tes exemples.

@+

 

[Usine à gaz]

Bonjour @Usine à gaz ,
Est-ce que l'année comme indiquée sur les exemples sera toujours la première valeur numérique ?
Si OUI, peut être comme ceci

Sub Test()
    xNom = ActiveWorkbook.Name
    xPos = InStr(1, xNom, 2)
    xDat = Mid(xNom, xPos, 10)
    xDecoupe = Split(xDat, " ")
    xDateFinale = CDate(xDecoupe(2) & "/" & xDecoupe(1) & "/" & xDecoupe(0))
End Sub

@+ Lolote83

Re-Lolote83
Merci, c'est exactement ça

 

[job75]

Bonsoir Lionel, Lolote83, TooFatBoy,

Voyez le fichier joint et cette fonction VBA qui utilise une expression régulière :

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 = Replace(RegEx.Execute(ThisWorkbook.Name)(0), " ", "/")
End Function

A+

 

[Usine à gaz]

Bonsoir Gérard

Merci pour cette super fonction.
Vraiment nickel,
Bonne fin de soirée,
lionel

 

[job75]

J"ai ajouté Application.Volatile au code précédent, pour le cas où l'on modifie le nom du fichier.

 

[Usine à gaz]

Merci Gérard,
Pour tes codes Toujours aussi précis et aboutis.
lionel

 

[Usine à gaz]

Bon, si je veux participer à ce que tu atteignes au plus vite les 40.000, il faut que je me remette à mes élucubrations

 

[mapomme]

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