XL 2016 Enregistrer sous pdf que certains onglets

Anthonymctm

XLDnaute Occasionnel
Bonjour à tous,

Sur mon fichier j'ai une dizaine d'onglets, la plupart me servent à faire des calculs et 3 d'entre-eux pour en faire la synthèse et récapituler tout ça proprement.

J'aimerais pouvoir imprimer / enregistrer en format PDF/Word ces 3 onglets (enfin uniquement la zone sélectionnée en mise en page).

Pour imprimer j'ai trouvé ce bout de code qu'un utilisateur m'a amélioré ou on prenait le contenu de Z1 pour savoir si on selectionne ou pas l'onglet, mais en soit, comme 'jen ai que 3 et que leur titre ne changeront jamais, je peux écrire leur titre directement.
VB:
Sub PrintingChoose()
Dim ws As Worksheet, n%
For Each ws In Worksheets
  If ws.Range("Z1") = 1 Then
    n = n + 1
    ws.Select n = 1
  End If
Next
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Si je fais imprimer avec PDF créator, il me l'imprime en 2 fois et j'ai deux fichier PDF, un peu compliqué à fusionner par la suite, faudrait que ça puisse se faire en une seule fois. o_O

La cérise sur le gateau serait de pouvoir faire un export sur Word. :cool:

Voilà, qu'en pensez-vous ?
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas