Sauvegarder plusieurs onglets Excel en PDF

Question

Bonjour,

Comme le titre l'indique, je cherche à sauvegarder plusieurs onglets d'un fichier Excel en PDF. Ma macro actuelle me permet d'enregistrer uniquement le premier onglet et néglige totalement le ou les suivant. :

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=newpdf, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Pourtant, lors de l'enregistrement manuel une option permet de selectionner "Entire Workbook" (File, Save as, PDF, Options (bouton en dessous du format), Entire workbook) mais même l'enregistreur de macro n'enregistre pas cette étape je ne sais donc pas comment la retranscrire dans mon code....

Si quelqu'un à une idée de la meilleure façon de solutionner mon problème, je le remercie d'avance.

cs_Le Pivert · Answer

Bonjour,

Pour enregistrer tous les onglets avec leur noms:

Option Explicit
Dim nom, chemin  As String
Dim ctr
Private Sub CommandButton1_Click()
For ctr = 1 To Sheets.Count
   Sheets(ctr).Select
   nom = Sheets(ctr).Name
    Save_pdf
 Next
End Sub
Private Sub Save_pdf()
chemin = "C:\Users\....\Documents\" 'chemin du dossier destination à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin & "\" & nom & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
        MsgBox "Enregistrer" 'on peut supprimer
End Sub

Mistral_13200 · Answer

Bonjour Le Pivert,

Je cherche à sauvegarder plusieurs onglets en PDF et je suis tombé sur ta macro mais je n'arrive pas à la faire fonctionner.

Je suis sous Windiws7 et Excel 2010.
Je crois que je ne mets pas la macro au bon endroit, je l'ai mise dans un module. Je crois que j'ai tout faux.
Peux m'aider.

D'avance merci.
Cordialement.
Mistral

cs_Le Pivert · Answer

Bonjour,

Pour acceder à l'editeur Alt F11.

Insertion : UserForm, 

Affichage Boite à outils
 ajouter un bouton de commande sur l'UserForm 

Double cliquez sur le bouton et mettre le code dans la page qui s'ouvre

Voilà

Mistral_13200 · Answer

Bonsoir Pivert,

Je suis vraiment trop nul!
Même en suivant ce que tu m'as expliqué dans ton dernier message je n'y suis pas arrivé. Je crée le bouton, je colle le code mais je ne vois le bouton nul par dans le classeur.
Je ne vois pas ou je me plante!

Indépendamment de cet échange, que je souhait continuer, j'en lance un autre pour être complet avec un fichier d'essais. J'espère que tu ne m'en tiendra pas rigueur.

Cordialement
Mistral

cs_Le Pivert · Answer

Voir ceci:

https://www.vulgarisation-informatique.com/introduction-vba.php

Sauvegarder plusieurs onglets Excel en PDF

5 réponses

Discussions similaires

Newsletters