Discussion :

[joquetino]

Bonjour à tous,

J'ai une petite question pour générer un pdf.
Je n'ai pas de soucis à générer un pdf à partir d'une feuille EXCEL en VBA.
Mais ma problématique est différente : sur un premier onglet, j'ai un tableau où j'ai, en première colonne, le nom d'une ville, avec des données caractéristiques sur les colonnes suivantes.
Sur le second onglet, j'ai une mise en page des données. Si je renseigne la ville sur la première cellule, les données caractéristiques s'affichent avec une présentation sympa.

J'aimerai créer un bouton qui va permettre de générer un seul PDF. Dans ce PDF, chaque page correspondrait à une ville (vision du second onglet).

Avez-vous une idée pour créer ce PDF unique ?

Merci pour votre aide,

joquetino

[Menhir]

Je ne suis pas un spécialiste de la manipulation des PDF.
Je doute que ce que tu demandes soit possible avec l'Export d'Excel.
Par contre, ça doit être possible avec PDF Creator. Mais trouver la documentation sur la manipulation d'objet PDF Creator, ça n'est pas facile.

Je te propose de contourner le problème.
Si d'autres ne te proposent pas de meilleure solution, tu pourras te rabattre sur celle-ci qui reste applicable faute de mieux.

Il suffit de demander à la macro de copier toutes les colonnes de ta feuille "sympa" autant de fois que tu as de villes à mettre dans le PDF.
Elle met les noms des villes dans la case qui va bien de chaque groupe de colonne.
Elle génère le PDF classiquement (avec des sauts de page bien placés, ça ne devrait pas poser de problème).
Elle supprime ensuite les colonnes qui ont été crées au début.

[joquetino]

Bonsoir,

Merci pour ta réponse. Pdf Creator est une solution intéressante. J'ai aussi trouvé une autre alternative (grâce à mes recherches sur internet) :

En fait, j'ai une macro qui va générer dans un répertoire un pdf par ville :

Code :

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

1
2
3
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\TEMP_PDF\" & id & nomVille & ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

En fin de traitement, j'ai une macro qui va fusionner tous les pdf créés pour en faire un seul : (code trouvé sur un autre site)

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
Option Explicit
 
Dim Cpt As Long
Dim Tableau() As Variant
Const TypeFichier As String = "*.pdf"
 
Private Sub Fusion(nomFinal As String)
Dim PDF As Object
    Set PDF = CreateObject("pdfforge.pdf.pdf")
    PDF.MergePDFFiles_2 Tableau, ThisWorkbook.Path & "\PDF\" & nomFinal & ".pdf", True
    Set PDF = Nothing
End Sub
 
 
 
Sub FusionRepertoirePdf(nomFinal As String)
    Dim sChemin As String
 
    Cpt = 0
    Erase Tableau
    sChemin = ThisWorkbook.Path & "\TEMP_PDF\"
    ListeFichiers sChemin, True
    Fusion (nomFinal)
 
End Sub
 
 
 
Private Sub ListeFichiers(ByVal sChemin As String, ByVal Recursif As Boolean)
Dim FSO As Object
Dim dossier As Object
Dim SousDossier As Object
Dim Fichier As Object
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set dossier = FSO.GetFolder(sChemin)
 
 
    For Each Fichier In dossier.Files
        If UCase(Fichier.Name) Like UCase(TypeFichier) Then
            ReDim Preserve Tableau(Cpt)
            Tableau(Cpt) = Fichier.Path
            Cpt = Cpt + 1
            Application.StatusBar = Cpt
        End If
    Next Fichier
 
    If Recursif Then
        For Each SousDossier In dossier.subfolders
            ListeFichiers SousDossier.Path, True
        Next SousDossier
    End If
 
    Set dossier = Nothing
    Set FSO = Nothing
End Sub

Ce n'est sûrement pas parfait mais cela fonctionne très bien.

Bonne soirée.