Sub PDF()
chemin = Workbooks(ActiveWorkbook.Name).Path
Feuille = ActiveSheet.Name
Dossier = "Mars \"
fa = Format([M1], " dd mmm")
d = Range("M2").Value
s = Range("M3").Value
t = Range("M4").Value
nomFichier = "" & s & fa & "" & " " & d & " " & t & ".pdf"
If Dir(chemin & "\" & Dossier) = "" Then
On Error Resume Next
MkDir chemin & "\" & Dossier
On Error GoTo 0
End If
CheminEvent = chemin & "\" & Dossier
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
CheminEvent & "\" & nomFichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub