Discussion :

[mouftie]

Bonjour,

Dans mon nom de fichier j'ai la date d'enregistrement du fichier sous forme "aammjj nomFichier"
avec la formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B1") = Mid(ActiveWorkbook.Name, 3, 2)

je récupère le mois en nombre (sur 2 chiffres) en format texte.

Ensuite, je voudrais convertir ce mois en toute lettre.
J'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Mm=Format(Mid(ActiveWorkbook.Name, 3, 2), "mmmmm")

mais cela ne fonctionne pas
Est-ce que quelqu'un peut m'aider, je ne trouve rien sur le net ?

[Thumb down]

Bonjour,
je suis pas sur d'avoir compris!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

format(cdate(format("191016","2000-00-00")),"mmmm") '16/10/2019

[Pierre Fauconnier]

Salut.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

format(dateserial(1900,mid(activeworkbook.Name,3,2),1),"mmmm")

[Theze]

Bonjour,

Ou encore :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Mm = MonthName(Mid(ActiveWorkbook.Name, 3, 2))

[Pierre Fauconnier]

@ Theze,

Comme quoi, on en apprend tous les jours...

Et d'une pierre deux coups, je viens aussi d'apprendre WeekDayName()

[Theze]

Hello Pierre