Sub Export_PDF()
Chemin = ThisWorkbook.Path
fichier = ActiveSheet.Name & ".pdf"
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = Chemin
rep = .Show
If rep = 0 Then Exit Sub
Chemin = .SelectedItems(1)
End With
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, Filename:=Chemin & "\" & fichier, _
Quality:=x1QualityMinimum, IncludeDocProperties:=True, ignorePrintAreas:=False, OpenAfterPublish:=False
End Sub