Intégrer une date dans le titre d'un doc

Fermé
pseudo_polo - 7 sept. 2011 à 14:26
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 11 sept. 2011 à 10:42
Bonjour,

Je souhaite intégrer une date qui existe en cellule A2 dans le titre de mon doc:

Idéalement la macro pourrait transformer une date type 05/09/2011 en 05092011 afin de l'intégrer dans le titre?

--> Voici mon code =

Sub toto

ChDir _
"\\fr-nesas-s12v1.NissanEU.NMCorp.Nissan.Biz\data\SALES00.SHR\SALES ALLOCATION & ORDERING - FY11\Caroline\Distribution Dashboard\FY11\08-August 2011\Volume and MIX report\Mix Dashboard\copies"


ActiveWorkbook.SaveAs Filename:=[A5].Value & "_Mix Dashboard" & [A2].Value_ & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

End Sub


merci!

3 réponses

f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 1 704
7 sept. 2011 à 16:44
Bonjour,

x = Left([A2], 2) + Mid([A2], 4, 2) + Right([A2], 4)

ActiveWorkbook.SaveAs Filename:=[A5].Value & "_Mix Dashboard" & x & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Bonne suite
0
merci !!

mais ca ne marche pas du tout! ça me donne erreur d'éxécution '1004'...
A te relire!
0
f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 1 704
11 sept. 2011 à 10:21
Bonjour,
Je n'ai pas d'erreur, montrez ce que vous avez ecrit.
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 215
11 sept. 2011 à 10:42
Bonjour,

ta_date = Format([A2], "ddmmyyyy")

eric
0