XL 2013 Exporter plusieurs feuilles vers un PDF.

[thebenoit59]

Bonjour le forum.

Quelqu'un saurait exporter plusieurs feuilles d'un même classeur sur un seul fichier PDF ?
Mon classeur comporte trois feuilles, et seules les deux premières m'intéressent.

Edit: la seule astuce, utilisée pour le moment, est de masquer la troisième feuille avant l'export du classeur complet.

Merci d'avance.

 

[lauange]

Salut, défini une zone d'impression sur les 2 feuilles que tu veux.

 

[kiki29]

Salut, regarde en bas du post 1
la partie intitulée : Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant et adapte à ton contexte

bref qqch comme ceci :

Option Explicit

Sub Tst_2007()
Dim sNomFichierPDF As String
Dim Ar(1) As String

sNomFichierPDF = ThisWorkbook.Path & "\" & "Test.pdf"
Ar(0) = "Feuil1"
Ar(1) = "Feuil3"
Application.ScreenUpdating = False
Sheets(Ar).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sNomFichierPDF, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Sheets("Feuil1").Select
Application.ScreenUpdating = True
End Sub