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