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

[Panda79360]

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

 

[patricktoulon]

bonjour
remplace simplement "activesheet" par "thisworkbook"
et si ca te met même les feuilles invisible alors il faudra faire une selection
et sa sera alors selectedsheet

 

[Phil69970]

Bonjour à tous

@Panda79360

Je te propose ceci :

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

 

[Panda79360]

Génial Merci à vous