Save un classeur avec la date

Bonsoir,
Je souhaite faire des copies de sauvegarde d'une feuille d'un classeur,
juste avant que cette feuille ne se remette à 0 par une macro. La copie se
faisant dans un nouveau classeur.
J'ai besoin que cette sauvegarde se place dans un endroit bien précis : D:
Mes documents
Et que son nom de sauvegarde soit la date du jour par exemple (de façon à
avoir une sauvegarde auto par jour)
Comment puis-je faire.
Par avance merci.

Hervé

Bonsoir,

A défaut d'une feuille, le classeur ? (vois dans les archives pour copier
la feuille vers un nouveau classeur et sauvegarder ce classeur, fais
attention aux liens éventuels des feuilles).

Sub test()
chemin = "D:mes documents"
dat = Format(Now, "yyyymmdd") & ".xls"
If Right(chemin, 1) <> "" Then chemin = chemin & ""
fil = chemin & dat
ActiveWorkbook.SaveCopyAs fil
End Sub

@+
FxM

Merci de ton aide.
Ca marche.
Hervé

Bonsoir,

A défaut d'une feuille, le classeur ? (vois dans les archives pour copier
la feuille vers un nouveau classeur et sauvegarder ce classeur, fais
attention aux liens éventuels des feuilles).

Sub test()
chemin = "D:mes documents"
dat = Format(Now, "yyyymmdd") & ".xls"
If Right(chemin, 1) <> "" Then chemin = chemin & ""
fil = chemin & dat
ActiveWorkbook.SaveCopyAs fil
End Sub

@+
FxM