Convertir plusieurs feuilles d'Excel en PDF par macro

toutes les feuilles (visibles!) d’un fichier

Sub ConvertirFeuillesEnPDF()
     Dim NomPDF: NomPDF = ThisWorkbook.Path & "\All_InOne"
     ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomPDF, OpenAfterPublish:=True
End Sub

mais vous demandez toutes les feuilles de plusieurs fichiers ???
Ca, c’est autre chose, soit créer un fichier avec toutes les feuilles de tous les fichiers et puis exporter vers PDF, soit créer un PDF pour chaque fichier et puis les joindre avec certains sites sur Internet ou certains programs.

C’est quoi que vous voulez.
ConvertirPlusieursFeuillesEn1PDF_02.xlsm (69,5 Ko)

1 « J'aime »