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

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
 

Phil69970

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
3
Affichages
476

Statistiques des forums

Discussions
313 193
Messages
2 096 075
Membres
106 490
dernier inscrit
fabintou