Private Sub CommandButton12_Click()
Dim nom As String
Dim Ch As String
Ch = "C:\Users\rdebouve\Documents\Essais_enregistrements\"
nom = Ch & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & Sheets("OKD Salle propre").Range("G4").Value & ".xls"
ThisWorkbook.SaveAs (nom)
End Sub