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

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

Bonjour et merci Lolote83,

Nickel et je joins le fichier test.

lionel

Lolote83 · 24 Juin 2022

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

Bonjour,

Usine à gaz à dit:
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 · 24 Juin 2022

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

TooFatBoy à dit:
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 · 24 Juin 2022

Usine à gaz à dit:
Ben NON, c'est souvent différent, d'où ma demande.

Ah oui, on le voit bien dans tes exemples.

@+

Usine à gaz · 24 Juin 2022

Lolote83 à dit:
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

Re-Lolote83
Merci, c'est exactement ça

job75 · 24 Juin 2022

Bonsoir Lionel, Lolote83, TooFatBoy,

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

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

A+

Usine à gaz · 24 Juin 2022

Bonsoir Gérard

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

job75 · 24 Juin 2022

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

Usine à gaz · 24 Juin 2022

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

Usine à gaz · 24 Juin 2022

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

mapomme · 25 Juin 2022

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

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

Usine à gaz

XLDnaute Barbatruc

Lolote83

Lolote83

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Lolote83

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Discussions similaires