Sauvegarder plusieurs onglets Excel en PDF

Fermé
Taylen - 13 juil. 2015 à 11:46
cs_Le Pivert Messages postés 7823 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 30 septembre 2022 - 30 nov. 2015 à 18:38
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

cs_Le Pivert Messages postés 7823 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 30 septembre 2022 716
13 juil. 2015 à 14:29
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
Mistral_13200 Messages postés 591 Date d'inscription mardi 5 août 2008 Statut Membre Dernière intervention 7 novembre 2021 4
28 nov. 2015 à 09:40
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
0
cs_Le Pivert Messages postés 7823 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 30 septembre 2022 716
28 nov. 2015 à 10:21
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à
0
Mistral_13200 Messages postés 591 Date d'inscription mardi 5 août 2008 Statut Membre Dernière intervention 7 novembre 2021 4
30 nov. 2015 à 18:32
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_Le Pivert Messages postés 7823 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 30 septembre 2022 716
30 nov. 2015 à 18:38
0