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 !
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" ?
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
- 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