Sauvegarder plusieurs onglets Excel en PDF [Fermé]

Signaler
-
Messages postés
6930
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 septembre 2020
-
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.

5 réponses

Messages postés
6930
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 septembre 2020
552
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


1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60769 internautes nous ont dit merci ce mois-ci

Messages postés
558
Date d'inscription
mardi 5 août 2008
Statut
Membre
Dernière intervention
21 septembre 2020
3
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
Messages postés
6930
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 septembre 2020
552
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à
Messages postés
558
Date d'inscription
mardi 5 août 2008
Statut
Membre
Dernière intervention
21 septembre 2020
3
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
Messages postés
6930
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 septembre 2020
552