Sauvegarder plusieurs page en un pdf

Bonjour,

J'ai cherché sur differents forums, mais impossible de trouver ma solution.

Le but est de sauvegarder 2 feuilles de mon classeur en 1 pdf.

Le code que j'utilise pour 1 page marche nickel, mais comment inclure une deuxieme page svp ?

    Sheets("page1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.path & "\PDFSetupSheets\" & Sheets("UserForm").Range("B6").value, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

PS : Je souhaite pouvoir l'utiliser sans add-on etc, pour que les 20 personnes qui l'utiliseront n'aient pas besoin de faire trop de manipulations sur leur PC.

Merci d'avance,

Martin

bonjour, bienvenue sur le forum

un debut de reponce

Sheets(Array("Feuil1", "Feuil2")).Select
    Sheets("Feuil1").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False

a essayer en modifiant votre code

Cdt

Didier