ActiveWorkbook.SaveAs

[jpajob]

Bonjour à tous,
Je débute avec les macros excel, voici ma question :
Je n'arrive pas à sauvegarder un classeur excel(classeur1) avec un nom contenant une date contenue dans une cellule d'un autre classeur excel (classeur2). Voici ce que j'ai esssayé (ce qui ramène la valeur de la cellule A1 du classeur actif) :

ActiveWorkbook.SaveAs Filename:="Planning du" & Range("A1").Value & ".xlsx", FileFormat:=51, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close

Si A1 a pour valeur 12-12-2011, alors le fichier sauvegardé doit avoir pour nom "planning du 12_12_2011.xlsx".
Comment insérer cette valeur de cellule dans le nom du fichier ?
Merci de votre aide.

 

[Guest]

Re : ActiveWorkbook.SaveAs

Bonjour et bienvenue sur le forum

Dim Str as string
Str=Format(WorkBooks("Machin.xlsx").Sheets("FeuilleTruc").Range("A1"),"dd_mm_yyyy")
ActiveWorkbook.SaveAs Filename:="Planning du" & Str & ".xlsx"....................

A+

 

[jpajob]

Re : ActiveWorkbook.SaveAs

merci pour ton aide.
J'essaie et te tiens au courant.

 

[jpajob]

Re : ActiveWorkbook.SaveAs

Re.

J'ai pas réussi ...

En fait, j'ai un dossier qui contient 1 classeur " machin.xlsx "(qui est actif au moment de lancer la sauvegarde) + 1 autre classeur "truc" avec 1 feuille "feuil1" qui contient la fameuse cellule "A1" dont le contenu doit être intégré dans le nom du nouveau fichier sauvegardé.
Lorsque je lance le code que tu m'a donné, je ne vois pas de nouveau fichier sauvegardé. Je dois faire une erreur quelque part.

 

[Guest]

Re : ActiveWorkbook.SaveAs

Bonjour,

As-tu vérifié le contenu de la variable Str? As-tu vérifié de répertoire d'enregistrement?
ActiveWorkBook.SaveAs FileName:= ActiveWorkBook.Path & "\Planning du" & Str & ".xlsx .... Etc.....
A+