Microsoft 365 Exporter plusieurs feuilles Excel en plusieurs pdf avec nom de fichier spécifique

[fisoccer]

Bonjour,

Est-il possible d'exporter une sélection de plusieurs feuilles (donc pas toutes les feuilles du classeur) en plusieurs pdf avec comme noms des pdf les noms des onglets + une date saisie dans une feuille "intro!$D$12" ?

Merci

 

[kiki29]

Salut, voir Test_03.zip ou la version light et l'adapter à ton contexte, sinon toujours consultable liste contributions PDF.
Les PDF sont sauvés dans un dossier " Dossier_PDFs" créé et placé à la racine de l'appli.
La gestion des doublons éventuels est possible via un indice de 1 à 999.
La sauvegarde des feuilles en PDF peut être individuelle ou dans un seul PDF baptisé par défaut "fusion.pdf".

 

[fisoccer]

Merci pour cette réponse rapide. Etant débutant ce code me parait complexe. J'ai testé celui ci-dessous qui fonctionne sauf pour 2 points :
- mettre automatiquement la date saisie dans une cellule au lieu du 13-11-2022 dans le code
- choisir certaines feuilles à exporter plutôt que tout le classeur

Voici le code :

Sub ExportOngletsPDF()

Application.ScreenUpdating = False
On Error Resume Next
MkDir "c:\mesdocuments"
For i = 1 To Sheets.Count
Sheets(i).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\mesdocuments\" & Sheets(i).Name & "_" & "13-11-2022" & ".pdf"
Next i
Sheets(1).Select
Application.ScreenUpdating = True
MsgBox ("Les " & Sheets.Count & " documents PDF viennent d'être créés et sont disponibles dans le répertoire C:\mesdocuments ")
End Sub

Merci !

 

[kiki29]

Salut, balise ton code, les réponses sont dans liste contributions PDF.
Comme je dis tjs : pas de bras ... pas de chocolat.

 

[kiki29]

Re, mode d'emploi .....

Dézipper Test_03 light.zip

Ouvrir le fichier désiré pour y intégrer la feuille Récap de Test_03 light par copie.

Copier le code du module mPDF de Test_03 light dans le fichier désiré et un module créé à cet effet.

Fermer Test_03 light.xlsb et sauver le classeur.