Enregistrer sous un nom défini ...

Bonjour,

J'ai la macro (macro 1) ci-dessous qui enregistre le fichier sous le nom
de la date du lendemain (par exemple 030515.xls).
Celle-ci fonctionne très bien mais lorsque le fichier existe déjà, j'obtiens
le message suivant :
Un fichier nommé c:\030515.xls existe déjà à cet emplacement. Voulez vous le remplacer ?

Si je clique sur oui, là je n'ai pas de problème, le fichier est remplacé.
Mais si je clique su non, je souhaiterais que la macro enregistrer-sous (macro 2) apparaîsse.
J'aimerais également que lorsque cette macro s'exécute, que le chemin de la
macro 1 sois repris (c:\ en lieu et place de Mes Documents)

Merci de votre aide.

Macro 1
---------
Sub Sauver()
Dim NomFichier As String, Chemin As String

Chemin = "C:\"
NomFichier = Format(Now() + 1, "yymmdd")
ActiveWorkbook.SaveAs (Chemin & NomFichier)
End Sub


Macro 2
---------
Sub EnregistrerSous()
Dim Enregistrer
Enregistrer = Application.GetSaveAsFilename _
("Date -> AnnéeMoisJour", "Tous les fichiers (*.*), *.*," &
_"Microsoft Excel (*.xls),*.xls", _2)
End Sub