Microsoft 365 Sélectionner un ou plusieurs onglets à exporter au format PDF

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion pat66
  • Date de début Date de début

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 !

S'inscrire
P

pat66

XLDnaute Impliqué
Bonjour le forum,

J'utilise cette macro pour exporter au format PDF, le problème c'est que je dois préciser les feuilles à exporter dans la macro

Est t'il possible de pouvoir choisir la ou les feuilles à exporter avant l'exécution de la macro ?

merci beaucoup
 

Pièces jointes

Trier par date Trier par votes
Bonjour, une idée peut-être

VB: 
Public NoPrint As Boolean

Private Sub Print_PDF()

    NoPrint = True
    Application.ScreenUpdating = False

    ' Vérification nom patient
    If Sheets("Etude").Range("D22") = "Nom(s)  et  Prénom(s)" Then
        MsgBox "Vous devez préciser le nom du patient!", vbCritical, "Analyses"
        Exit Sub
    End If

    ' ===============================
    'Choix des feuilles à exporter
    ' ===============================
    Dim Choix As String
    Dim TabFeuilles() As String
    Dim i As Integer
    Dim Sh As Worksheet

    Choix = InputBox("Entrez les noms des feuilles à exporter (séparés par des virgules) :" & vbCrLf & _
                     "Exemple : Feuil1,Feuil2,Feuil3")

    If Choix = "" Then Exit Sub

    TabFeuilles = Split(Choix, ",")

    ' Nettoyage des noms
    For i = LBound(TabFeuilles) To UBound(TabFeuilles)
        TabFeuilles(i) = Trim(TabFeuilles(i))
    Next i

    ' Vérification existence feuilles
    On Error GoTo ErreurFeuille
    Sheets(TabFeuilles).Select
    On Error GoTo 0

    ' ===============================
    'Paramétrage impression
    ' ===============================
    For Each Sh In ActiveWindow.SelectedSheets

        With Sh.PageSetup
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 1

            .LeftMargin = Application.InchesToPoints(0.1)
            .RightMargin = Application.InchesToPoints(0.1)
            .TopMargin = Application.InchesToPoints(1)
            .BottomMargin = Application.InchesToPoints(0.1)

            .Orientation = xlLandscape
        End With

    Next Sh

    ' ===============================
    'Nom du fichier
    ' ===============================
    Dim NFichier As String
    NFichier = Sheets(TabFeuilles(0)).Range("D20") & "-" & _
               Sheets(TabFeuilles(0)).Range("D22") & "-" & _
               Format(Date, "dd-mm-yyyy")

    ' ===============================
    'Export PDF
    ' ===============================
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ThisWorkbook.Path & "\" & NFichier, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

    ' Retour sur première feuille
    Sheets(TabFeuilles(0)).Select

    MsgBox "Le PDF a été enregistré !" & vbCrLf & vbCrLf & _
           "Ici ==> " & ThisWorkbook.Path & vbCrLf & vbCrLf & _
           "Sous le nom : " & NFichier & ".pdf", 64, "Analyses"

    Application.ScreenUpdating = True
    NoPrint = False
    Exit Sub

' ===============================
' Gestion erreur
' ===============================
ErreurFeuille:
    MsgBox "Une ou plusieurs feuilles n'existent pas !" & vbCrLf & _
           "Vérifiez les noms saisis.", vbCritical
    Application.ScreenUpdating = True
    NoPrint = False

End Sub

Nicolas
 
Vote positif 0 Vote négatif
Bonjour

et merci pour votre aide

J'ai suivi vos instructions, mais la macro bloque sur :
On Error GoTo ErreurFeuille
Sheets(TabFeuilles).Select
On Error GoTo 0

et pourtant j'ai bien saisi dans l'inputbox : Feuil1

merci encore
 
Vote positif 0 Vote négatif
Excel cherche une feuille qui s’appelle exactement “Feuil1” (nom d’onglet)

A tester par ce code:

VB: 
Dim ListeFeuilles As Collection
Set ListeFeuilles = New Collection

Dim NomF As String
Dim Trouve As Boolean

For i = LBound(TabFeuilles) To UBound(TabFeuilles)

    NomF = TabFeuilles(i)
    Trouve = False

    ' Recherche par nom d'onglet
    For Each Sh In ThisWorkbook.Worksheets
        If LCase(Sh.Name) = LCase(NomF) Then
            ListeFeuilles.Add Sh.Name
            Trouve = True
            Exit For
        End If
    Next Sh

    ' Recherche par CodeName
    If Not Trouve Then
        For Each Sh In ThisWorkbook.Worksheets
            If LCase(Sh.CodeName) = LCase(NomF) Then
                ListeFeuilles.Add Sh.Name
                Trouve = True
                Exit For
            End If
        Next Sh
    End If

    If Not Trouve Then
        MsgBox "Feuille introuvable : " & NomF, vbCritical
        Exit Sub
    End If

Next i

' Conversion collection → tableau
Dim TabSelect() As String
ReDim TabSelect(0 To ListeFeuilles.Count - 1)

For i = 1 To ListeFeuilles.Count
    TabSelect(i - 1) = ListeFeuilles(i)
Next i

Sheets(TabSelect).Select
 
Vote positif 0 Vote négatif
Hi,

pat66 à dit:
Est-il possible de pouvoir choisir la ou les feuilles à exporter avant l'exécution de la macro ?
Cliquez pour agrandir...
VB: 
Private Sub Worksheet_Activate()
    ActiveSheet.ListBox1.Clear
    For Each Feuille In ThisWorkbook.Sheets
        If Feuille.PageSetup.PrintArea <> "" Then ActiveSheet.ListBox1.AddItem Feuille.Name
    Next
End Sub

cf PJ.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Nicolas JACQUIN à dit:
Excel cherche une feuille qui s’appelle exactement “Feuil1” (nom d’onglet)

A tester par ce code:

VB: 
Dim ListeFeuilles As Collection
Set ListeFeuilles = New Collection

Dim NomF As String
Dim Trouve As Boolean

For i = LBound(TabFeuilles) To UBound(TabFeuilles)

    NomF = TabFeuilles(i)
    Trouve = False

    ' Recherche par nom d'onglet
    For Each Sh In ThisWorkbook.Worksheets
        If LCase(Sh.Name) = LCase(NomF) Then
            ListeFeuilles.Add Sh.Name
            Trouve = True
            Exit For
        End If
    Next Sh

    ' Recherche par CodeName
    If Not Trouve Then
        For Each Sh In ThisWorkbook.Worksheets
            If LCase(Sh.CodeName) = LCase(NomF) Then
                ListeFeuilles.Add Sh.Name
                Trouve = True
                Exit For
            End If
        Next Sh
    End If

    If Not Trouve Then
        MsgBox "Feuille introuvable : " & NomF, vbCritical
        Exit Sub
    End If

Next i

' Conversion collection → tableau
Dim TabSelect() As String
ReDim TabSelect(0 To ListeFeuilles.Count - 1)

For i = 1 To ListeFeuilles.Count
    TabSelect(i - 1) = ListeFeuilles(i)
Next i

Sheets(TabSelect).Select
Cliquez pour agrandir...
REe,
effectivement il fallait que je précise le ou les noms d'onglets
Nicolas JACQUIN à dit:
Bonjour, une idée peut-être

VB: 
Public NoPrint As Boolean

Private Sub Print_PDF()

    NoPrint = True
    Application.ScreenUpdating = False

    ' Vérification nom patient
    If Sheets("Etude").Range("D22") = "Nom(s)  et  Prénom(s)" Then
        MsgBox "Vous devez préciser le nom du patient!", vbCritical, "Analyses"
        Exit Sub
    End If

    ' ===============================
    'Choix des feuilles à exporter
    ' ===============================
    Dim Choix As String
    Dim TabFeuilles() As String
    Dim i As Integer
    Dim Sh As Worksheet

    Choix = InputBox("Entrez les noms des feuilles à exporter (séparés par des virgules) :" & vbCrLf & _
                     "Exemple : Feuil1,Feuil2,Feuil3")

    If Choix = "" Then Exit Sub

    TabFeuilles = Split(Choix, ",")

    ' Nettoyage des noms
    For i = LBound(TabFeuilles) To UBound(TabFeuilles)
        TabFeuilles(i) = Trim(TabFeuilles(i))
    Next i

    ' Vérification existence feuilles
    On Error GoTo ErreurFeuille
    Sheets(TabFeuilles).Select
    On Error GoTo 0

    ' ===============================
    'Paramétrage impression
    ' ===============================
    For Each Sh In ActiveWindow.SelectedSheets

        With Sh.PageSetup
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 1

            .LeftMargin = Application.InchesToPoints(0.1)
            .RightMargin = Application.InchesToPoints(0.1)
            .TopMargin = Application.InchesToPoints(1)
            .BottomMargin = Application.InchesToPoints(0.1)

            .Orientation = xlLandscape
        End With

    Next Sh

    ' ===============================
    'Nom du fichier
    ' ===============================
    Dim NFichier As String
    NFichier = Sheets(TabFeuilles(0)).Range("D20") & "-" & _
               Sheets(TabFeuilles(0)).Range("D22") & "-" & _
               Format(Date, "dd-mm-yyyy")

    ' ===============================
    'Export PDF
    ' ===============================
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ThisWorkbook.Path & "\" & NFichier, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

    ' Retour sur première feuille
    Sheets(TabFeuilles(0)).Select

    MsgBox "Le PDF a été enregistré !" & vbCrLf & vbCrLf & _
           "Ici ==> " & ThisWorkbook.Path & vbCrLf & vbCrLf & _
           "Sous le nom : " & NFichier & ".pdf", 64, "Analyses"

    Application.ScreenUpdating = True
    NoPrint = False
    Exit Sub

' ===============================
' Gestion erreur
' ===============================
ErreurFeuille:
    MsgBox "Une ou plusieurs feuilles n'existent pas !" & vbCrLf & _
           "Vérifiez les noms saisis.", vbCritical
    Application.ScreenUpdating = True
    NoPrint = False

End Sub

Nicolas
Cliquez pour agrandir...
Re,

effectivement je n'avais pas saisit le nom de l'onglet, maintenant la macro fonctionne parfaitement et je vous en remercie
Maintenant je vais essayer de l'adapter à celle de mon classeur post# 1 avec notamment la prise en compte des zones à imprimer car
elles sont différentes

Concernant le post "#4, je ne sais comment l'utiliser, mais merci quand même

merci beaucoup
 
Dernière édition:
Vote positif 0 Vote négatif
Si cela peut aider :
fanch55

XL 2016 Publié dans la discussion 'Bouton pour Impression de plusieurs fuilles excel dans le même fichier pdf par exempe'

Bonjour,
Comme promis sur l'autre fil, je vous donne la solution.
Je partage l'avis de @kiki29 ( bien que son code s'adresse déjà à des personnes avancées dans les macros), vous auriez pu trouver tout seul :

Voici donc un code "tout cuit" à placer sur la feuille ou se trouve votre bouton imprimante:
VB: 
Option Explicit
Private Sub CommandButton2_Click()
Dim PrintDlg        As DialogSheet
Dim CurrentSheet    As Worksheet
Dim Sh              As Worksheet
Dim Cb              As CheckBox
Dim Sel_Sheets      As String
Dim FileName        As Variant
Dim TopPos          As Integer...
  • J'aime
 
Vote positif 0 Vote négatif
Bonjour le forum,
Bonjour le fil,

et merci de m'aider à résoudre mon problème, j'ai testé toutes vos propositions et vous répond en détail

Toofatboy, votre solution exporte bien en PDF, mais j'ai beau cocher la ou les pages à imprimer, les 3 pages sont systématiquement imprimées, je dois faire une erreur quelque part ?

J'ai aussi testé la solution de fanch55 qui fonctionne très bien, mais comme celle de Nicolas post #2, les macros ne tiennent pas compte des plages à imprimer car comme indiqué dans le classeur ci-joint (idem post#1), elles sont différentes pour chaque onglets, c'est important pour le cadrage au format PDF, j'ai bien essayé de définir la zone à imprimer, mais cela ne sert à rien

Je trouve l'idée de l' Inputbox pour choisir la ou les feuilles à imprimer, très facile à utiliser, mais je ne sais ni écrire ni adapter ma macro
Pourriez vous m'aider à insérer dans mon code cette possibilité ?

Merci d'avance
 

Pièces jointes

Vote positif 0 Vote négatif
pat66 à dit:
Toofatboy, votre solution exporte bien en PDF, mais j'ai beau cocher la ou les pages à imprimer, les 3 pages sont systématiquement imprimées, je dois faire une erreur quelque part ?
Cliquez pour agrandir...
Ce que j'ai proposé n'exporte rien du tout. Ça se contente de faire ce qui est demandé en #1, c'est-à-dire permettre de sélectionner les feuilles désirées.
Ensuite tu lances ta macro d'impression en PDF pour chacune des feuilles sélectionnées.

En résumé : ça t'affiche la liste (à sélection multiple) des feuilles dont la zone d'impression est définie, et il faut ensuite que tu crées un bouton pour lancer une macro qui va "scanner" la liste pour n'appeler ta macro d'exportation en PDF que pour les feuilles sélectionnées.
 
Dernière édition:
Vote positif 0 Vote négatif
pat66 à dit:
J'ai aussi testé la solution de fanch55 qui fonctionne très bien, mais comme celle de Nicolas post #2, les macros ne tiennent pas compte des plages à imprimer car comme indiqué dans le classeur ci-joint (idem post#1), elles sont différentes pour chaque onglets, c'est important pour le cadrage au format PDF, j'ai bien essayé de définir la zone à imprimer, mais cela ne sert à rien
Cliquez pour agrandir...
Le code ci-dessous tient compte des zones d'impression :
VB: 
Option Explicit
Private Sub CommandButton2_Click()
Dim PrintDlg        As DialogSheet
Dim CurrentSheet    As Worksheet
Dim Sh              As Worksheet
Dim Cb              As CheckBox
Dim Sel_Sheets      As String
Dim FileName        As Variant
Dim TopPos          As Integer

Application.ScreenUpdating = False

    ' Check for protected workbook
    If ActiveWorkbook.ProtectStructure Then
        MsgBox "Le classeur est protégé.", vbCritical
        Exit Sub
    End If

    ' Add a temporary dialog sheet
    Set CurrentSheet = ActiveSheet
    Set PrintDlg = ActiveWorkbook.DialogSheets.Add

    ' Add the checkboxes
    TopPos = PrintDlg.Buttons(1).Top
    For Each Sh In ActiveWorkbook.Worksheets
        ' Skip hidden sheets
        If Sh.Visible Then
           PrintDlg.CheckBoxes.Add(78, TopPos, 100, 16.5).Text = Sh.Name
           TopPos = TopPos + 13
        End If
    Next
    
    ' Move the OK and Cancel buttons
    PrintDlg.Buttons.Left = PrintDlg.CheckBoxes(1).Left + PrintDlg.CheckBoxes(1).Width
    
    ' Set dialog height, width, and caption
    With PrintDlg.DialogFrame
        .Height = Application.Max(68, PrintDlg.DialogFrame.Top + TopPos - 34)
        .Width = PrintDlg.Buttons(1).Left ' <-- bizarre mais fonctionne
        .Caption = "Cochez les feuilles à publier"
    End With
    
    ' Set focus on Cancel
    PrintDlg.Buttons(1).BringToFront
    
    ' Display the dialog box
    CurrentSheet.Activate
    Application.ScreenUpdating = True
        If PrintDlg.Show Then
            For Each Cb In PrintDlg.CheckBoxes
                If Cb.Value = xlOn Then Sel_Sheets = Trim(Sel_Sheets & " " & Cb.Caption)
            Next Cb
            If Sel_Sheets <> vbNullString Then
               ' Display the dialog box to obtain filename
                FileName = Application.GetSaveAsFilename( _
                    FileFilter:="Publication (*.pdf),*.pdf", _
                    InitialFileName:=ThisWorkbook.Path)
                If Not FileName = False Then
                    ' Select sheets to export
                    Sheets(Split(Sel_Sheets)).Select
                    ' Publication
                    ActiveSheet.ExportAsFixedFormat _
                        Type:=xlTypePDF, OpenAfterPublish:=True, _
                        IgnorePrintAreas:=False, _
                        FileName:=FileName
                End If
            End If
        End If

    ' Delete temporary dialog sheet (without a warning)
    Application.DisplayAlerts = False
    PrintDlg.Delete

' Reactivate original sheet
CurrentSheet.Activate
Set CurrentSheet = Nothing
Set PrintDlg = Nothing

End Sub
 
Vote positif 0 Vote négatif
TooFatBoy à dit:
Ce que j'ai proposé n'exporte rien du tout. Ça se contente de faire ce qui est demandé en #1, c'est-à-dire permettre de sélectionner les feuilles désirées.
Ensuite tu lances ta macro d'impression en PDF pour chacune des feuilles sélectionnées.

En résumé : ça t'affiche la liste (à sélection multiple) des feuilles dont la zone d'impression est définie, et il faut ensuite que tu crées un bouton pour lancer une macro qui va "scanner" la liste pour n'appeler ta macro d'exportation en PDF que pour les feuilles sélectionnées.
Cliquez pour agrandir...
Comme tu t'en es rendu compte mes connaissances sont très limitées et je viens enfin de comprendre grâce à tes précisions,

En fait tu as conservé la macro en #1 et tu as ajouté la possibilité, à l'aide d'une listbox, de choisir la ou les feuilles à imprimer après avoir défini la zone d'impression, c'est génial !!!! c'est exactement ce dont je souhaitais, je n'ai plus personnaliser l'apparence de la Lisbox et le tour est joué !

Mille merci pour ton aide !
 
Vote positif 0 Vote négatif
Bonsoir le fil,

Je vous remercie pour votre aide car toutes vos solutions fonctionnent et je suis sur que cela va aider d'autres personnes, mais pour résoudre ce problème, je vais opter pour la solution de TooFatBoy qui me permet de conserver ma macro avec la possibilité de sélectionner la ou les feuilles que je souhaite imprimer comme évoqué en post #1

Bonne soirée à tous

Cdt
 
Vote positif 0 Vote négatif
pat66 à dit:
pourriez me dire ou placer la fonction ".Orientation = xlLandscape"
Cliquez pour agrandir...
Definissez l'orientation au préalable pour chaque feuille comme vous définissez les zones d'impressions
1774026407018.png
 
Vote positif 0 Vote négatif
pat66 à dit:
Comme tu t'en es rendu compte mes connaissances sont très limitées et je viens enfin de comprendre grâce à tes précisions,
Cliquez pour agrandir...
Oui, je viens de le comprendre.


pat66 à dit:
En fait tu as conservé la macro en #1 et tu as ajouté la possibilité, à l'aide d'une listbox, de choisir la ou les feuilles à imprimer après avoir défini la zone d'impression, c'est génial !!!! c'est exactement ce dont je souhaitais,
Cliquez pour agrandir...
Pour être précis, j'ai seulement ajouté une feuille "Imprimer" contenant la liste des feuilles du classeur qui ont une zone d'impression déjà définie..
Ladite liste se met à jour quand on sélectionne la feuille "Imprimer".

Ensuite, si tu veux exporter les feuilles sélectionnées, il faut créer une macro qui va scanner la liste et appeler, pour chaque feuille sélectionnée, la macro d'exportation.

Je ne suis pas très doué en VBA, mais si tu n'arrives pas à terminer le travail, je peux tout de même tenter de te pondre un bout de code VBA pour ça.

pat66 à dit:
je n'ai plus personnaliser l'apparence de la Lisbox et le tour est joué !
Cliquez pour agrandir...
Oui, il faut personnaliser le look de la ListBox, parce que j'avais mis des couleurs un peu pourries... 😅
 
Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

patricktoulon
Exporter en pdf ou imprimer un userform en mode photo
Réponses
0
Affichages
278
patricktoulon
patricktoulon
P
  • Résolu(e)
Microsoft 365 Activer désactiver Workbook_BeforePrint(Cancel As Boolean)
Réponses
14
Affichages
197
dysorthographie
dysorthographie
jeff1494
  • Résolu(e)
XL 2021 Export d'un Userform au format Docx;
3 4 5
Réponses
60
Affichages
1 K
job75
job75
patricktoulon
  • Résolu(e)
XL 2013 lancement de phase de test de l’exporter html pdf coloration syntaxique version 2025/2026
2
Réponses
27
Affichages
2 K
patricktoulon
patricktoulon
pascal21
  • Question Question
XL 2019 filter en VBA des nombres au format texte
Réponses
1
Affichages
159
sylvanu
sylvanu
R
  • Question Question
Microsoft 365 Export 2 onglets en 1 seul PDF suivant critères
Réponses
11
Affichages
743
raf26
R
D
  • Résolu(e)
XL 2019 plusieurs critères
Réponses
5
Affichages
247
Dand87
D
Dudu2
  • Résolu(e)
XL 2021 VBA - Enregistrer en fichier un Embbeded PDF créé en présence d'Adobe Acrobat sur le PC
2 3 4
Réponses
50
Affichages
1 K
Dudu2
Dudu2
patricktoulon
Capturer et imprimer ou exporter en pdf un userform
Réponses
4
Affichages
613
PHV62
P
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
1 K
Nounours4173
N
D
  • Question Question
XL 2016 Exporter au format PDF dans un dossier existant les colonnes ciblées et en filtrant les lignes qui contiennent une valeur quelconque.
Réponses
6
Affichages
904
Phil69970
Phil69970
jeff1494
  • Résolu(e)
XL 2021 Extraction images depuis commentaire de cellule vers dossier.
11 12 13
Réponses
182
Affichages
4 K
patricktoulon
patricktoulon
M
  • Question Question
Microsoft 365 Envoi (mail) d'une seule feuille de calcul (active) en pdf
Réponses
7
Affichages
2 K
patricktoulon
patricktoulon
L
  • Question Question
XL 2021 [Power Query] Appliquer un nettoyage identique sur plusieurs tableaux d'une même documentation
Réponses
1
Affichages
191
chris
chris
F
  • Résolu(e)
XL 2021 Génération d'un fichier TXT à partir d'une feuille Excel
Réponses
3
Affichages
434
fd.30
F
T
  • Résolu(e)
Microsoft 365 Exporter les plages nommées vers un nouveau classeur - plage nommée invalide selon VBA
Réponses
2
Affichages
519
tnion
T
kadelmalin
  • Question Question
XL 2010 Double tableaux au format pdf
Réponses
2
Affichages
446
kiki29
kiki29
jeff1494
  • Question Question
XL 2021 Affichage document (Word ou PDF) dans un formulaire depuis un bouton.
2
Réponses
19
Affichages
597
jeff1494
jeff1494
D
  • Résolu(e)
XL 2019 Boucle sur plusieurs feuilles
Réponses
6
Affichages
627
dadaze
D
Retour