intégrer une date dans le titre d'un doc Fermé

Question

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!

f894009 · Answer

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

f894009 · Answer

Bonjour,
Je n'ai pas d'erreur, montrez ce que vous avez ecrit.

eriiic · Answer

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

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

3 réponses

Discussions similaires