Sub Test()
Dim chemin$, fichier$
chemin = ThisWorkbook.Path & "\"
fichier = "test.pdf"
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=chemin & fichier, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False
End Sub