Sub EnregistrerAvecVersion()
ChDir "C:\Documents and Settings\Eric\Bureau\Archivage"
NomCourt = Mid(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) - 4)
FileSVG = Application.GetSaveAsFilename(InitialFileName:=NomCourt & _
"-Version " & Format(Time, "hh-mm"), _
fileFilter:="Fichiers Excel (*.xls), *.xls", _
Title:="Enregistrer avec le nom proposé ?")
ActiveWorkbook.SaveAs Filename:=FileSVG, FileFormat:=xlNormal, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub