Macro Enregistrer, Fermer et Ouvrir fichier Excel

Bonjour à tous,

Je viens de créer une macro, mais je n’arrive pas à la faire fonctionner correctement.

Je souhaite faire les manips suivantes :

1/ Je travail sur le fichier nommé EXCEL1

2/ Une fois les modif faites, je veux que ma macro enregistre sous un répertoire particulier le fichier EXCEL1 en ajoutant le mois en cours. Exemple : EXCEL1 – octobre - 2012

3/ Ensuite, je veux que ma macro ferme EXCEL1 – octobre – 2012 et rouvre mon fichier EXCEL1

Le problème que je rencontre est que le nom du fichier enregistrer sous changera de nom tous les mois.

Voila à quoi ressemble ma macro.
Si quelqu’un pouvais m’aider, un grand merci d’avance.


'Enregister Sous
ActiveWorkbook.SaveAs Filename:= _
"F:\DocExcel\Archives\ " & "EXCEL1" & " - " & Format(Date, "mmmm - yyyy") & " .xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False


' Ouvrir le fichier d'origine
ChDir "F:\ DocExcel "
Workbooks.Open Filename:="F:\DocExcel\EXCEL1.xlsm" _
, UpdateLinks:=3