Imprimer plusieurs feuilles Excel dans 1 fichier PDF

Bonjour,

J'ai joint un fichier pour mieux comprendre ce que je veux.

J'ai un onglet Commun qui contient le nom des onglets Facture. Les onglets à imprimer on été renommé au nom du client et sinon le nom de l'onglet reste inchanger Facture6, Facture7, Facture8.

J'ai 2 autres onglets à imprimer soient Liste aliments et Temps.

Donc j'aimerais connaître la façon d'imprimer le contenu des onglets Fact Jean, Fact Louis, Fact Paul, Fact Luc, Fact Karl ainsi que Liste aliments et Temps en VBA en appuyant sur un bouton.

Comment faire pour définir plusieurs feuilles donc la longueur des feuilles est variable?

Exemple onglet Fact Jean j'ai 2 factures, onglet Fact Louis j'ai 4 factures, les autres j'ai 1 facture.

Merci,

Oiseau bleu

Dans l'onglet commun, sélectionne un nom ...

J'ai fait au plus simple, on peut aménager.

Sub pdf()
    If Selection.Value = "" Then Exit Sub
    nompdf = Environ("USERPROFILE") & "\Desktop\" & Selection.Value
    ThisWorkbook.Sheets(Array(Selection.Value, "Liste aliments", "Temps")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

le pdf sera sur ton bureau

mets tes feuilles à l'échelle de l' "imprimante"