XL 2010 Enregistrer sous un seul PDF toutes les feuilles visibles d'un classeur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Panda79360

XLDnaute Nouveau
Bonjour,

je suis au bout de mon fichier,
Je tiens à remercier toutes les personnes sur ce forum qui est un trésor et une mine d'information infini 🙂

Ma dernière question est la suivante :
- J'aimerai une macro via un bouton qui m'enregistre toutes les feuilles actives de mon classeur sous un seul PDF

J'avais cette macro mais elle m'enregistre que la feuille active où le bouton est mis :

Sub PDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Classeur1.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
Merci par avance de votre aide
 
Bonjour à tous

@Panda79360

Je te propose ceci :

VB:
Option Explicit

Sub PDF()
Application.ScreenUpdating = False
Dim Wsh As Worksheet, NFichier$, Tabl

NFichier = "MonFichier" ' A adapter
Tabl = Array()
For Each Wsh In ThisWorkbook.Worksheets
    If Wsh.Visible = True Then
        ReDim Preserve Tabl(UBound(Tabl) + 1)
        Tabl(UBound(Tabl)) = Wsh.Name
    End If
Next Wsh

With Sheets(Tabl).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & NFichier
End With

End Sub

Merci de ton retour
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
245
Réponses
3
Affichages
885
Réponses
3
Affichages
671
Réponses
10
Affichages
547
Retour