Comment intégrer une date lors de mon enregistrement

Bonjour à tous,

J'aimerais pouvoir mettre la date du jour automatiquement lorsque j'enregistre mon document en nom du fichier.

Mais sans écaser la précédente;c'est à dire:

J'ouvre mon fichier "20/09/2008", je rajoute quelques modifs et j'enregistre.A ce moment je dois avoir le fichier "20/09/08" et donc le fichier"23/09/08" avec les dernières modifs!!

Merci par avance

Bonjour,

Essaie avec ce code à placer en VBA dans THISWORKBOOK

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Macro par Dan pour renono - 23/09/08
Dim i As Byte
Dim nomfichier
Dim chemin As String
chemin = ThisWorkbook.Path
With ThisWorkbook
nomfichier = Format(Now(), "yymmdd") & ".xls"
MsgBox "Votre sauvegarde porte la référence : " & nomfichier
.SaveAs Filename:=chemin & nomfichier
End With
End Sub

Une fois placée, n'oublie pas de sauver ton fichier avant de le fermer.

La macro reste dans le fichier sauvegardé.

Amicalement

Dan

Alors la je dis bravo et merci!!

Je comprends rien mais ca marche à un détail près.

quand on enregistre c'est jamais au meme endroit!

J'aimerais que ca soit dans un même fichier

Comment l'intégrer dans les lignes de commandes??

En tout cas merci

re,

quand on enregistre c'est jamais au meme endroit!

J'aimerais que ca soit dans un même fichier

Tu peux expliquer là ? L'endroit c'est quoi ? ton fichier, le répertoire, un dossier ?

Dan

re,

j'aimerais que tous les enregistrements se fassent dans un même dossier crée pour l'occasion.

Cordialement

Bonjour,

rajoute un \ à la fin de cette ligne :

chemin = ThisWorkbook.Path & "\"