Discussion :

[RandomTrains]

*BONJOUR,*

Est-il possible de fusionner plusieurs fichier pdf en un seul.
Seulement avec VBA et access et sans utilisé de programme tiers?
Je dois transformer un code datant d'une de 2004 qui utiliser acrobat distiller pour imprimé et fusionner en PDF et mon mandat est de faire sans.
Voici le code que j'utiliser pour l'impression des fichiers pdf.

Code :

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

1
2
3
4
5
6
7
8
Option Compare Database
 
Private Sub Détail_Click()
DoCmd.OpenForm "frmTable1"
Forms("frmTable1").Printer.Orientation = acPRORLandscape
DoCmd.OutputTo acOutputForm, "frmTable1", acFormatPDF, "path" & "fileName"
DoCmd.Close acForm, "frmTable1"
End Sub

*MERCI*

[marot_r]

Bonjour.

La réponse courte est Non. Les fichiers pdf ne sont pas gérables ni manipulables par Access.

Ce que tu peux faire c'est de créer un fichier pdf.
La solution la plus simple est de partir d'un rapport (état).
Personnellement je ferai un rapport qui contiendrait en sous-rapport les éléments à fusionner puis j'en ferai un pdf.
Cela donne un truc du genre :

RapportFusioneur

Sous-Rapport1

Rapport1

Sous-Rapport2

Rapport2

Sous-Rapport3

Rapport3

En définissant les sous-rapports avec une hauteur de 2 cm et la propriété auto-extensible on peut facilement en mettre un bon paquet dans une feuille de 40cm (taille max d'une feuille, de mémoire).

Pour transformer un formulaire en rapport :

1. Créer un rapport vide.
2. Sélectionner tous les contrôles du formulaire et les copier.
3. Coller tous les contrôles dans le rapport.
4. Définir la source du rapport comme celle du formulaire.
5. Ajuster la mise en page.

Répéter l'oppération avec les sous-formulaire si ils y en as.

A+

[Invité]

Bonjour


Autre solution si c'est un problème de coût à cause du distiller tu peux utiliser des palliatifs avec PDF Creator

Je t'invite à regarder l'ensemble de cette discussion (si tu code Excel, mais à adapter) : https://www.developpez.net/forums/d4...ro-pdfcreator/

Par contre si c'est sans logiciel tiers (gratuit ou payant), je ne vois que la solution précédente de mon collègue

Philippe

[kiki29]

Salut, concernant la fusion de PDFs, via Acrobat ( pas le Reader ) ou PDFCreator 1.7.3 ( pas les suivantes )

• Acrobat Fusion des fichiers PDF d'un dossier à partir d'une liste Excel
• PDFCreator Fusion des fichiers PDF d'un dossier avec recherche récursive ou non de ces fichiers

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

Restera à adapter le code VBA Excel à ton contexte ( je n'ai plus Access )

Téléchargements :

• Fusion des PDFs d'un dossier via PDFCreator / Excel
• Fusion des PDFs d'un dossier via Acrobat Pro / Excel

[kiki29]

Re, j'ai trouvé ceci ( pas la possibilité de le tester ), donc si tu es curieux : Include a BOOKMARK in an Access report so PDF will recognize it later

[RandomTrains]

Concernant pdfCreator je n'arrive pas a ajouter la référence dans access 2016
J'ai ajouter pdfCreator.COM.tlb, mais cela ne fonctionne toujours pas.
Sur internet certaines personnes m'ont dit d'ajouter à la plce le .dll ou même le .exe, mais access ne me laisse pas ajouter c'est fichiers comme référence.

Voici le code utilisé pour tester la présence de la référence

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
Dim oPDFJob As Object
 
On Error GoTo L_ErrIsPDFCReatorInstalled
Set oPDFJob = CreateObject("PDFCreator.clsPDFCreator")
IsPDFCreatorInstalled = (Not oPDFJob Is Nothing)
On Error GoTo 0
L_ExIsPDFCReatorInstalled:
Set oPDFJob = Nothing
Exit Function
 
L_ErrIsPDFCReatorInstalled:
Resume L_ExIsPDFCReatorInstalled
 
End Function
 
Private Sub Détail_Click()
 
If IsPDFCreatorInstalled = False Then
MsgBox Err.Description, vbDefaultButton1, "Don goofed up"
Else
MsgBox Err.Description, vbDefaultButton1, "ya did good"
End If
End Sub