Sub PDF_ENREGISTRER()
Dim LHeure As String, LeDate As String
LHeure = Format(Time, "HMS")
LaDate = Format(Date, "dd" & "." & "mm" & "." & "yyyy")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"P:\ " & LaDate & " " & LHeure & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=18, OpenAfterPublish:=False
End Sub