Imprimer plage cellule plusieurs onglets

[mix770]

Bonjour le Forum,

j'ai un tableau je souhaite imprimer en un seul fichier PDF 3 onglets sur une même plage,

ce sont les onglets: juin conv, juillet conv, aout conv.

la plage de cellule est de A9 à AG 79, j'ai regardé un peu et fait des tentatives mais sans succès.

pouvez vous m'aider SVP

merci beaucoup

 

[DoubleZero]

Re : Imprimer plage cellule plusieurs onglets

Bonjour, mix770, le Forum,

Comme ceci ?

Option Explicit
Sub PDF_x_onglets_convertir()
' Adaptation d'un code de Hasco (Merci !)
    Dim o As Worksheet
    Set o = ActiveSheet
    Sheets(Array("a", "b", "c")).Select ' noms adapter
    ActiveSheet.Range("a9:ag79").ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=ThisWorkbook.Path & "\Merci Hasco.pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False
    o.Select
End Sub

A bientôt 🙂

 

[mix770]

Re : Imprimer plage cellule plusieurs onglets

Bonjour Double zéro,
merci pour ta réponse, j'ai adapté les noms mais cela se lance j'ai un message "publication" et puis plus rien...
pas de suite.
je vois pas ce qui se passe
merci à toi
cdt

 

[DoubleZero]

Re : Imprimer plage cellule plusieurs onglets

Bonjour, mix770, le Forum,

... j'ai adapté les noms mais cela se lance j'ai un message "publication" et puis plus rien...

"publication" n'apparaît pas 😕 sur mon poste.

Le code déposé en #2 permet d'enregistrer en .pdf les diverses plages souhaitées dans le répertoire du fichier de travail.

Un autre essai, avec celui-ci, afin d'ouvrir le lecteur "pdf" et d'opter pour une impression du document.

Option Explicit
Sub PDF_x_onglets_convertir_v2()
' Adaptation d'un code de Hasco (Merci !)
    Dim o As Worksheet
    Set o = ActiveSheet
    Sheets(Array("a", "b", "c")).Select    ' noms adapter
    ActiveSheet.Range("a9:ag79").ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=ThisWorkbook.Path & "\Merci Hasco.pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
    o.Select
End Sub

A bientôt 🙂

 

[mix770]

Re : Imprimer plage cellule plusieurs onglets

Double zéro,
super ça marche !!

merci à toi double champion ;-)

cdt