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