Export PDF - Sélection de la zone d'impression

Bonjour,

J'ai un petit soucis avec ma macro pour exporter mon fichier en pdf, en effet cela fonctionne mais il sélectionne uniquement la première page de la feuille active et non la zone d'impression entière (soit 3 pages), je ne comprends pas comment modifier le code pour qu'il sélectionne le tout, pouvez-vous m'aider?

Voici le code :

Sub Enreg_Pdf()
Dim LaDate As String, LeParcours As String, LeRep As String
LaDate = Format(Date, "dd-mmm-yyyy")
LeParcours = Range("H59").Value & " - " & Range("E16").Value & " - " & Range("F17").Value & " " & Range("H17").Value
LeRep = ThisWorkbook.Path & "\devis\"  ' à adapter
ActiveSheet.FixedFilePathName Type:=xlTypePDF, FileName:= _
    LeRep & LaDate & "Devis - " & " " & LeParcours & " - " & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
    

Bonjour

Essaie avec ce code où j'ai supprimé la partie ''From:=1, To:=1,''

Sub Enreg_Pdf()
Dim LaDate As String, LeParcours As String, LeRep As String
LaDate = Format(Date, "dd-mmm-yyyy")
LeParcours = Range("H59").Value & " - " & Range("E16").Value & " - " & Range("F17").Value & " " & Range("H17").Value
LeRep = ThisWorkbook.Path & "\devis\"  ' à adapter
ActiveSheet.FixedFilePathName Type:=xlTypePDF, FileName:= _
    LeRep & LaDate & "Devis - " & " " & LeParcours & " - " & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

Bye !

Rechercher des sujets similaires à "export pdf selection zone impression"