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

L

Lolote83

XLDnaute Barbatruc

• 24 Juin 2022

• #2

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

 

Dernière édition: 24 Juin 2022

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2022

• #3

Bonjour et merci Lolote83,

Nickel et je joins le fichier test.

lionel 🙂

 

Pièces jointes

• Recupere 2022 03 24_date.xlsm

  16.6 KB · Affichages: 5

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 24 Juin 2022

• #4

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 24 Juin 2022

• #5

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,

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2022

• #6

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 🙂

 

Pièces jointes

• 2022 06 23Recupere_date2.xlsm

  18.7 KB · Affichages: 1

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2022

• #7

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 ??? 🤔

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 24 Juin 2022

• #8

Usine à gaz à dit:

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

Cliquez pour agrandir...

Ah oui, on le voit bien dans tes exemples. 👍

@+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2022

• #9

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

Cliquez pour agrandir...

Re-Lolote83 🙂
Merci, c'est exactement ça 🙂

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Juin 2022

• #10

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+

 

Pièces jointes

• Recupere 2022 03 24_date.xlsm

  16 KB · Affichages: 4

Dernière édition: 24 Juin 2022

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2022

• #11

Bonsoir Gérard 🙂

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Juin 2022

• #12

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2022

• #13

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2022

• #14

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 25 Juin 2022

• #15

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

 

Vote positif 2 Vote négatif