Sub Renomme()
Sheets("Feuil1").Select
Dim jour As String
Dim AncienNom As String, NouvNom As String
lejour = Format([Feuil1!F2], "dd-mm-yyyy")
lheure = Format([Feuil1!G2], " hh-mm")
cejour = lejour & lheure
AncienNom = "C:\Impressions\Fiche.docx"
NouveauNom = "C:\Impressions\" & Range("A" & 2) & "_" & Range("B" & 2) & " " & cejour & ".docx"
'MsgBox NouveauNom
Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFile(AncienNom)
On Error Resume Next
Name AncienNom As NouveauNom
If Err = 75 Then Exit Sub
End Sub