Lorsqu'on enregistre un fichier Excel au format pdf, on n'obtient que la feuille en cour dans le document final. Est-ce que vous avez une astuce pour obtenir toutes les feuilles contenant des données dans le document au format pdf.
Sub PDF()
Dim w As Worksheet, n%
For Each w In Worksheets
If Application.CountA(w.Cells) Then w.Select n = 0: n = n + 1
Next
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\MonPDF"
End Sub