Sub ChangeNom()
Dim AncienNom$, NouveauNom$, Rep$, dte, dth
Rep = ThisWorkbook.Path & "\"
dte = Format(Date, "dd mmmm yyyy"): dth = Format(Time, "hh mm")
AncienNom = "benji71_" & dte & "_" & dth & ".xls"
If Rep = "\" Then
'le fichier n'est pas encore enregistré
ActiveWorkbook.SaveAs Filename:=Chemin & AncienNom
Else
'enregistre l'ancien sous le nouveau nom et supprime l'ancien
AncienNom = Rep & ActiveWorkbook.Name
NouveauNom = "benji71_" & dte & "_" & dth & ".xls"
ActiveWorkbook.SaveAs Filename:=Rep & NouveauNom
kill AncienNom
End If
End Sub