Sub Enreg_Pdf()
Dim LaDate As String, LeParcours As String, LeRep As String
LeRep = ThisWorkbook.Path
LaDate = Format(Feuil1.[C1], "dd-mm-yyyy")
LeParcours = Feuil1.Range("A1").Value
Feuil1.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
LeRep & "\" & LaDate & "_" & LeParcours & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
End Sub