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)