macro pour renommer un onglet au format particulier !?

[Novice avance !?]

bonjour,
voici une macro test qui ouvre un nouveau classeur, entre une date au format
mois année type par exemple pour le 01/01/07 donne "janvier 2007"

j'aimerais que la macro renomme l'onglet de la feuille du nom de la cellule B7 dc "janvier 2007" mais cela ne fonctionne pas puisqu'à la base la valeur initiale de la cellule B7 est "01/01/07" et non pas "janvier 2007" !?

y-a-t'il une solution !?

Sub test()
Workbooks.Add
Range("B7").Select
ActiveCell.FormulaR1C1 = "1/1/2007"
Range("B7").Select
Selection.NumberFormat = "mmmm yyyy"
Sheets("Feuil1").Select
Sheets("Feuil1").Name = Range("B7").Value
Range("A1").Select
ActiveWorkbook.SaveAs Filename:= _
"\\xxx\xxx\xx\xx\xxxx\test.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
End Sub

merci par avance

 

[Hervé]

Re : macro pour renommer un onglet au format particulier !?

bonjour

meme en ayant appliquer un format particulier à ta cellule b7, celle-ci reste une date lu par ton code sous le format jj/mm/yyyy.

il te faut donc recupérer le texte de la cellule etnon pas sa valeur :

Workbooks.Add
Range("B7") = "1/1/2007"
Range("B7").NumberFormat = "mmmm yyyy"
Sheets("Feuil1").Name = Range("B7").Text
ActiveWorkbook.SaveAs Filename:= _
"\\xxx\xxx\xx\xx\xxxx\test.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close

la sélection de cellules est inutile.

salut

 

[Novice avance !?]

Re : macro pour renommer un onglet au format particulier !?

parfait...
il me reste un nombre incalculable d'astuces à apprendre !?

merci