Formater une date en mois

[nonoTT]

Bonjour
JE souhaite enregistrer un fichier excel.
Le nom du fichier est défini comme Synthese_mois.xlsx
Je souhaite que le mois soit récupérer depuis la cellule C5 ou figure une date au format jj/mm/aaaa.
Le problème est le suivant j'ai la macro suivante mais elle ne marche pas, elle m'affiche la variable "faux" alors que j'attendais le nom du mois.
Pouvez vous solutionnner mon problème ?

    Sub essai()

    Dim Vmois As Variant
    
    Worksheets("Biochimie").Activate
    
    Vmois = ActiveSheet.Range("C5").NumberFormat = "mmmm"
     
    MsgBox (Vmois)
    
    'Activeworkbooks.SaveAs ("C:\Users\AAIGOUI\Documents\Synthse" & Vmois & ".xlsx")
         
    End Sub

Et le fichier exemple ci-joint.
Merci de votre coopération.
cordialement.
Arnaud

 

[Pierrot93]

Re : Formater une date en mois

Bonjour,

pas ouvert ton fichier, mais si la cellule en question est bien une date, peut être ainsi :

Vmois = Format(ActiveSheet.Range("C5"), "mmmm")

bon après midi
@+

 

[jp14]

Re : Formater une date en mois

Bonjour
Salut Pierrot93
A tester avec le code
Vmois = Format(ActiveSheet.Range("C5"), "mmmm")

JP

 

[pierrejean]

Re : Formater une date en mois

bonjour nonoTT

Teste:

Vmois = Format(Range("C5"), "mmmm")

Edit: Bing désolé jp

 

[nonoTT]

Re : Formater une date en mois

Merci cela fonctionne.
Par contre lorsque j'enregistre le fichier par la macro le nom de l'onglet est remplacé par le nom de fichier comment empêcher cela ?

Sheets("Biochimie").Activate
    Vmois = Format(ActiveSheet.Range("C5"), "mmmm")

ActiveWorkbook.SaveAs ("S:\...\EEQ\Macros EEQ\Recap EEQ VO " & Vmois & ".xlsx")

voir fichier ci-joint
Cordialement.

 

[Pierrot93]

Re : Formater une date en mois

Re, bonjour PierreJean🙂, Jp🙂

euh... pas le code utilisé dans ton fichier....

 

[nonoTT]

Re : Formater une date en mois

Bonjour en fait j'ai plusieurs problèmes.
Le format natif du fichier est du CSV zsur lequel j'applique la macro.
Donc l'enregistrement que j'effectue ne se fait pas bien : comment pallier à se problème ?
De plus il ne m'enregistre que le premier onglet au format CSV et pas au format XLSX.
Pouvez vous m'aider :

Sub essai()
    Dim Vmois As Variant
    Worksheets("Biochimie").Activate
    Vmois = ActiveSheet.Range("C5").NumberFormat = "mmmm"
     MsgBox (Vmois)
    Activeworkbooks.SaveAs ("C:\Users\AAIGOUI\Documents\Synthse" & Vmois & ".xlsx")
         
    End Sub

 

[Pierrot93]

Re : Formater une date en mois

Re,

doute que ton code fonctionne en l'état... essaye ainsi :

ActiveWorkbook.SaveAs "C:\Users\AAIGOUI\Documents\Synthse" & Vmois, FileFormat:=xlNormal

(ActiveWorkbook sans s)