Intégrer une date dans le titre d'un doc
pseudo_polo
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
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!
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
-
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 -
Bonjour,
Je n'ai pas d'erreur, montrez ce que vous avez ecrit. -
Bonjour,
ta_date = Format([A2], "ddmmyyyy")
eric
