Bouton imprimer PDF certaines feuilles

Bonjour,

J'ai ce code pour un bouton d'impression en PDF de deux feuilles spécifiques avec un aperçu avant impression.

Malheureusement je ne comprends pas pourquoi il me donne un message d'erreur:

Sub BoutonImprimerCertainesFeuilles()
Sheets(Array("Diagramme traction", "Capacité remorquage")).Select
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & _
Format(Date, "yyyymmdd") & " - " & [B3].Value & " - " & "\Diagramme de traction.pdf"
Sheets(1).Select
End Sub

Pouvez-vous m'aider?

Meilleures salutations,

Thierry

Bonjour,

La méthode ExportAsFixedFormat n'existe que pour une variable Worksheet mais pas pour une collection Worksheets (les 3 onglets). Il vous faut imprimer à partir de votre imprimante pdf.

Sub Enregistrer_onglets_en_pdf()

Dim Chemin_pdf As String

    Chemin_pdf = ActiveWorkbook.Path & "\" & _
                 Format(Date, "yyyymmdd") & " - " & [B3].Value & " - " & "\Diagramme de traction.pdf"
    Sheets(Array("Suivi Activité", "Source", "Suivi Janvier")).Select
    ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True, IgnorePrintAreas:=False, _
                                         ActivePrinter:="Microsoft Print to PDF", PrintToFile:=True, _
                                         PrToFileName:=Chemin_pdf

End Sub

Bonjour Eric,

Votre proposition fonctionne très bien et je vous en remercie.

Bonne fin de semaine!

Thierry