J'ai trouvé la réponse sur http://www.excelabo.net
Public Sub Saveascopy()
Dim strDate As String
Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
strDate = Format(Date, "dd-mm-yy" ) & " " & Format(Time, "h-mm-ss" )
ThisWorkbook.SaveCopyAs filename:=Name & strDate & ".xls"
End Sub
Merci à tous les programmeurs de ce site qui est une vraie mine d'or!
---------------
FoH