Select une feuille et export range de cel en pdf

Bonjour à tous,

j'aimerais après avoir sélectionner une feuille, exporter un range de cellules (A1:AH150) vers un fichier (Nom de la feuille.pdf) ...... après de multiples essais, je me retrouve toujours avec une erreur de compilation

extrait du code : Sheets(Ar).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "Essai.pdf" _

, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

:=False, OpenAfterPublish:=False

Merci pour votre aide

Bonjour VINCENTNINI, bonjour le forum,

Une proposition qui enregistre dans le même dossier que le fichier.

Sub convert_selection_to_pdf()
ActiveSheet.Range("A1:H150").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path & "\Nom de la feuille.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
ActiveSheet.Range("A1").Select
End Sub

Joseph

Super merci....