Renommer automatiquement la feuille en quittant

[Peter]

Bonjour,

Mon souci est que je met quotidiennement à jour un fichier excel, et que dans son nom j'indique pour m'y retrouver, la date.

ex: "ma liste au 01-11-2002.xls"

A chaque fois je dois faire "enregistrer sous" en modifiant la date...
Et quand j'oublie ou me trompe ....

Je cherche le moyen d'automatiser tout ça.... est ce possible.

Merci d'avance

 

[juju]

Hello,

Tu peux te créer un bouton de sauvegarde auquel tu affecterai la macro suivante :

Sub Save()
ThisWorkbook.SaveCopyAs Filename:="C:\" & "ma liste " & Format(Date, "dd-mm-yyyy") & ".xls"
End Sub

Espérant avoir pu t'aider ...

Bonne soirée

Ju

 

[juju]

Re,
A la limie met celle-ci.. cela permettra que ton fichier avec l'ancien nom se ferme sans sauvegarder :

Sub Save()
ThisWorkbook.SaveCopyAs Filename:="C:\" & "ma liste " & Format(Date, "dd-mm-yy") & ".xls"
ThisWorkbook.Saved = True
ThisWorkbook.Close
End Sub

@ +

Ju

 

[Peter]

Merci

Merci pour cette réponse Juju,

Je vais essayer ça de suite et merci pour la rapidité.

A +