Excel vba enregistrer sous + nom cel + date

Bonjour,
Voici un code qui peux vous s'avérer très utile.
Ce code vas vous donner lorsque que vous cliquerez sur le bouton enregistrer:

-Enregistrer dans le dossier de votre choix
+
-Le titre écrit dans une cellule spécifique
+
-La date de l'enregistrement écrit avant le titre

Voici le code:

------------------------------------------------------------------------------------------------------------

Public Sub CommandButton2_Click() 'ENREGISTER SOUS + NOM CELLULE + DATE
Dim nom As String
ChDir "C:\Users\Duperret\Desktop\base\base2\duperret"
nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & Range("C9") & ".xls"
ThisWorkbook.SaveAs (nom)
End Sub

------------------------------------------------------------------------------------------------------------

Voili voilou....

Dites moi juste de ce que vous en pensé

Salutation