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

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".

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 !

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

Re, mode d'emploi .....

Dézipper Test_03 light.zip

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

Fermer Test_03 light.xlsb et sauver le classeur.

Cliquez pour agrandir...