Imprimer chaque onglet d'une fichier sheet sur des PDF séparés
Fermé
amelieB
-
16 sept. 2020 à 16:09
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 16 sept. 2020 à 19:16
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 16 sept. 2020 à 19:16
A voir également:
- Imprimer plusieurs onglets excel en pdf
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Liste déroulante excel - Guide
- Comment signer un pdf sans l'imprimer - Guide
- Convertir pdf en word excel gratuit - Guide
- Restaurer onglets chrome - Guide
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
16 sept. 2020 à 19:16
16 sept. 2020 à 19:16
Bonjour,
en vba faire Alt F11 pour accéder à l'éditeur
Ensuite allez dans le ruban: insertion Module
coller ce code:
Ensuite enregistrer sous: classeur Excel prenant en charge les macros
Ensuite retourner dans le Module, mettre le curseur sur Save_onglet et appuyer sur la touche F5 du clavier.
Tous les PDF vont s'enregistrer dans le même dossier que le classeur
Voilà
en vba faire Alt F11 pour accéder à l'éditeur
Ensuite allez dans le ruban: insertion Module
coller ce code:
Option Explicit
Dim nom, chemin As String
Dim sh As Worksheet
Sub Save_onglet()
Application.ScreenUpdating = False
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each sh In ThisWorkbook.Worksheets
nom = sh.Name
Sheets(nom).Select
Save_pdf
Next
Application.ScreenUpdating = True
End Sub
Private Sub Save_pdf()
chemin = ActiveWorkbook.Path & "\" 'chemin du dossier destination à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & nom & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
' MsgBox "Enregistrer" 'on peut supprimer
End Sub
Ensuite enregistrer sous: classeur Excel prenant en charge les macros
Ensuite retourner dans le Module, mettre le curseur sur Save_onglet et appuyer sur la touche F5 du clavier.
Tous les PDF vont s'enregistrer dans le même dossier que le classeur
Voilà
