Discussion :

[screamjojo]

Bonjour à tous,

Tout d'abord merci pour ce super forum qui m'a dépanné plus d'une fois.
Je suis novice en VBA mais j'arrive toujours à m'en sortir à peu près mais la je bloque depuis des heures.
Je vous explique mon "problème" :
J'ai un menu déroulant dans ma feuille 1 qui va chercher des infos dans un tableau (qui me sert de base de données) dans ma feuille 2. J'ai ensuite un bouton qui me permet d'exporter chaque choix de mon menu déroulant dans un fichier PDF mais malheureusement après génération mon fichier PDF ne contient qu'une seule personne de mon menu déroulant, je pense que mon code n'est pas adapté et qu'il écrase chaque personne lors de chaque "passage".
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Export_PDF()
    Dim xRg As Range
    Dim xCell As Range
    Dim xRgVList As Range
    Set xRg = Worksheets("Sheet1").Range("C9")
    Set xRgVList = Evaluate(xRg.Validation.Formula1)
    sNomFichierPDF = ThisWorkbook.Path & "\" & Worksheets("Sheet1").Range("C9") & ".pdf"
    For Each xCell In xRgVList
        xRg = xCell.Value
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    Next
End Sub

J'ai essayé d'adapter le code de #kiki29 présent ici : https://www.developpez.net/forums/d4...ro-pdfcreator/ mais je n'y arrive pas

Merci d'avance pour votre aide.

Cdt

[Menhir]

Etant donné que tu fixes le nom du PDF avant le For Each, il est évident que chaque tour de la boucle va générer un nouveau fichier qui écrasera le précédent.

A ma connaissance, l'Export PDF d'Excel ne peut pas concaténer des PDF comme peut le faire PDF Creator.
En tout cas, je ne vois aucun paramètre de ExportAsFixedFormat qui semble indiquer que ce soit possible.
https://docs.microsoft.com/fr-fr/off...tasfixedformat

Si tu veux faire ce que tu décris, il faudra donc sans doute passer par un outil supplémentaire comme PDF Creator qui, lui aussi, peut se piloter avec VBA.

[kiki29]

Salut, il te faudra générer tes fichiers pdf avec une dénomination différente pour chaque fichier, via par exemple un incrément dans ta boucle for...each, puis ensuite en faire la fusion.
Pour cela voir via cette liste Liste des contributions et téléchargements

Qqch dans le genre ( pas testé )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
Sub Export_PDF()
Dim sNomFichierPDF As String
Dim xRg As Range
Dim xCell As Range
Dim xRgVList As Range
Dim i As Long
 
    Set xRg = Worksheets("Sheet1").Range("C9")
    Set xRgVList = Evaluate(xRg.Validation.Formula1)
    For Each xCell In xRgVList
        xRg = xCell.Value
        i = i + 1
        sNomFichierPDF = ThisWorkbook.Path & "\" & Worksheets("Sheet1").Range("C9") & "_" & i & ".pdf"
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                        Filename:=sNomFichierPDF, _
                                        Quality:=xlQualityStandard, _
                                        IncludeDocProperties:=True, _
                                        IgnorePrintAreas:=False, _
                                        OpenAfterPublish:=False
    Next xCell
End Sub

[kiki29]

Salut, concernant la fusion de PDFs, via Acrobat / PDFCreator 1.7.3, à voir suivant les outils dont tu disposes :

• PDFCreator Extraction de pages d'un catalogue PDF et fusion de ces pages dans un seul fichier Pdf
• Acrobat Fusion des fichiers PDF d'un dossier
• Acrobat Fusion des fichiers PDF d'un dossier à partir d'une liste Excel
• PDFCreator Modifier l'ordre dans la queue d'impression puis fusionner le tout en un seul PDF
• PDFCreator Fusion des fichiers PDF d'un dossier avec recherche récursive ou non de ces fichiers
• PDFCreator Chainage Impression / Fusion en un seul Pdf
• PDFCreator Fusion de certaines feuilles de classeurs Excel 2003 dans un seul PDF
• Excel 2007 Fusion Feuilles de Classeurs en PDFs

Cette liste permet en principe de naviguer dans le bazar
Liste des contributions et téléchargements

Téléchargements :

• Fusion des PDFs d'un dossier via PDFCreator / Excel
• Fusion des PDFs d'un dossier via Acrobat Pro / Excel
• Impression/Fusion de certains onglets d'un classeur en PDF
• Fusion de certaines feuilles de classeurs Excel 20XX en un seul PDF via PDFCreator
• Fusion d'images dans un PDF
• Fusion de certaines feuilles de classeurs Excel 2003 en un seul PDF via PDFCreator

[screamjojo]

Salut, il te faudra générer tes fichiers pdf avec une dénomination différente pour chaque fichier, via par exemple un incrément dans ta boucle for...each, puis ensuite en faire la fusion.
Pour cela voir via cette liste Liste des contributions et téléchargements

Qqch dans le genre ( pas testé )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
Sub Export_PDF()
Dim sNomFichierPDF As String
Dim xRg As Range
Dim xCell As Range
Dim xRgVList As Range
Dim i As Long
 
    Set xRg = Worksheets("Sheet1").Range("C9")
    Set xRgVList = Evaluate(xRg.Validation.Formula1)
    For Each xCell In xRgVList
        xRg = xCell.Value
        i = i + 1
        sNomFichierPDF = ThisWorkbook.Path & "\" & Worksheets("Sheet1").Range("C9") & "_" & i & ".pdf"
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                        Filename:=sNomFichierPDF, _
                                        Quality:=xlQualityStandard, _
                                        IncludeDocProperties:=True, _
                                        IgnorePrintAreas:=False, _
                                        OpenAfterPublish:=False
    Next xCell
End Sub

Bonjour,

C'est parfait c'est ce que je cherchais à faire depuis hier, je pensais qu'avec un script VBA et en m'appuyant sur ton code "Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant" j'y arriverais mais au final cela me convient parfaitement comme ça.
Merci encore pour votre aide.

Cdt

[kiki29]

Re, ce VBA Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant permet de le faire mais pour des feuilles existantes déjà présentes dans le classeur