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

Usine à gaz · 24 Juin 2022

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) :

VB:

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 · 24 Juin 2022

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

Code:

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 · 25 Juin 2022

mapomme à dit:
Bonjour à tous,

Un autre code sans expression régulière :

VB:

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 · 25 Juin 2022

mapomme à dit:
Bonjour à tous,

Un autre code sans expression régulière :

VB:

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 · 25 Juin 2022

Bonjour mapomme,

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

A+

job75 · 25 Juin 2022

Du coup je supprime le Replace dans ma fonction :

VB:

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.

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

Usine à gaz

XLDnaute Barbatruc

Lolote83

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

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

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency