XL 2016 Complément de code sur impression PDF

[Didou1]

Bonjour le forum,

J'utilise ce code pour enregistrer mes feuilles Excel en format PDF
on peut nommer le dossier
récupérer certaines valeurs dans la feuille pour nommer le nom du fichier
Très pratique

Je cherche à rajouter dans le code en limitant le champ d'impression
Il prend tous les éléments présents dans la feuille
Je souhaiterais ajouter la sélection de A1 à D38

Est-ce que ceci est possible

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

 

[Sylvain]

ActiveSheet.PageSetup.PrintArea = "A1:d38"