Renommer un fichier en fonction d'une date

[6xela]

Bonjour à tous,

J'ai créé un code qui nomme le fichier en fonction du mois contenu dans une date...

J'aimerai désormais acoller à ce mois l'année : "Novembre2009"(par exemple)

Quelqu'un pourrait il m'aider?

Sub Mois()


 Sheets("Vente").Select
 Dim Mois As Byte
 Mois = Month(Range("A2").Value)

 ChDir "c:\"
    ActiveWorkbook.SaveAs Filename:=Choose(Mois, "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre"), FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

 

[Pierrot93]

Re : Renommer un fichier en fonction d'une date

Bonjour,

essaye peut être ainsi, non testé sous 2007 :

ActiveWorkbook.SaveAs Filename:=StrConv(Format(Range("A2").Value, "mmmm yyyy"), vbProperCase), FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

bon dimanche
@+