enregistrement automatique

[Marti]

Bonsoir à tous.

Je souhaite enregistrer un classeur excel dans un fichier "archive" sous le nom qui sera la date du jour, en cliquant sur un bouton. Ca me prend la tête et ça ne marche pas !!! Quelqu'un peut-il m'aider ? Ca serait vraiment sympa Merci à tous.

 

[Hervé]

Bonsoir

ce code permet de sauvegarder ce classeur sous le nom = date


ActiveWorkbook.SaveAs Filename:=Format(Date, "ddmmyy") & ".xls"

celui ci , copie le classeur , sauvegarde le nouveau classeur, et le ferme
Worksheets.Copy
ActiveWorkbook.SaveAs Filename:=Format(Date, "ddmmyy") & ".xls"
ActiveWorkbook.close

Salut
Hervé