Enregistrer sous un nom défini ...

[If]

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

 

[Popeye]

ce que tu peux faire c faire un test avant l'enregistrement pour voir si le fichier existe

la command c dir je crois

dir("chemin/nom.xls") renvoie true si il existe
apres tu balances sur l'une ou l'autre de t macros