Sub PDF_Menu()
Chemin = Workbooks(ActiveWorkbook.Name).Path
Feuille = ActiveSheet.Name
Dossier = "JB"
fa = Format([B8], " mmm yy")
nom = Format([B5], " mmm yy")
'Poste = Range("F14").Value
nomFichier = "" & "A4 " & fa & "" & " à " & nom & " .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