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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fisoccer

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

Pièces jointes

Dernière édition:
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 !
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
45
Réponses
3
Affichages
533
Retour