sauver sous date du jour

[bynabik]

Bonjour à tous,
j'ai trouvé su le forum il y a quelques jours une chouette formule pour enregister un fichier à son nom suivi de la date du jour .(par ex test31jan06.xls)le problème suivant se pose en cas de 2 sauvegardes le même jour : j'obtiens test31jan0631jan06.xls Je préfererais évidemment qu'xl me signale que le fichier existe déjà et me propose de l'écraser.
Cependant ce code est trop compliqué pour moi et je ne sais pas comment le modifer...ce serait gentil si vous me donniez un coup de main pour le corriger :

Sub macrodate()
Dim d As String
Dim N As String 'nom complet du fichier sans l'extension
Dim A As Long, toto As Boolean
'définit la variable D (format à adapter mais certains caractères sont interdits)
d = Format(Date, 'ddmmmyy')

'définit la variable N (Left permet de retirer '.xls')
N = IIf(IsNumeric(Mid(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 10, 6)), Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 10), Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 4))
'enregistre le classeur sous
ThisWorkbook.SaveAs (N & d)
Application.Dialogs(xlDialogSendMail).Show

End Sub

j'ai placé le tout dans thisworkbook
je sais ça n'est pas propre j'ai fait avec mes petits moyens..
Une question en passant ce ficher s'enregistre chez moi dans le répertoire où est l'original; est ce toujours le chemin par défaut?
Merci beaucoup pour les corrections