Discussion :

[timtim0]

Bonjour,

Je souhaiterais pouvoir insérer des pages dans un PDF, sur ces pages on pourrait lire un titre présent dans une cellule.
Je crée le PDF à partir de plusieurs liens (à l'aide de cette discussion http://www.developpez.net/forums/d16...s/#post8758332).
Je ne sais pas si l'idéal serait de modifier mon code ou d'en créer un nouveau pour insérer les titres.

Illustration :

	A	B	C	D
1	...	Titre1	...	lien1
2	...	Titre2	...	lien2
3	...		...	lien3
4	...	Titre3	...	lien4
5	...		...	lien5

Je voudrais donc obtenir :
page 1 : Titre1
page 2 : Document du lien1
page 3 : Titre2
page 4 : Document du lien2
page 5 : Document du lien3
etc...


Et voici mon code actuel :

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
 
Sub Fusion_PDF_croise()   
Dim Tableau() As Variant
Dim pdf As Object
Dim i As Long, j As Long
 
    Erase Tableau
    For i = 7 To Range("D1048576").End(xlUp).Row
        Range("D" & i).Hyperlinks.Add Anchor:=Range("D" & i), Address:=Range("D" & i)  
        ReDim Preserve Tableau(j)
        Tableau(j) = HLink2Path(ActiveSheet.Range("D" & i))
        j = j + 1
    Next i
 
    Set pdf = CreateObject("pdfforge.pdf.pdf")                                          
    pdf.MergePDFFiles_2 Tableau, ThisWorkbook.Path & "\" & "docFinal.pdf", True
    Set pdf = Nothing
 
    MsgBox "Le PDF a bien été créé dans " & ThisWorkbook.Path & "\"
End Sub

J'espère que c'est clair ^^, merci d'avance.

[kiki29]

Salut, également à voir et adapter à ton contexte : PDFCreator 1.7.3 Insertion x Pages d'un pdf dans un autre Pdf, sinon ton code à priori se suffit à lui-même.

[timtim0]

Merci!
Mais j'ai un petit soucis, je viens de passer sur Excel 2016 et Set pdf = CreateObject("pdfforge.pdf.pdf") ne fonctionne plus sur aucun de mes codes, y a t-il une nouvelle manière de créer un objet sur Excel 2016?

[kiki29]

Salut, à part une réinstallation de PDFCreator 1.7.3, je ne vois pas de raison pour que cela ne fonctionne pas.

[timtim0]

C'est bon, c'était une incompatibilité avec office en 64 bits, du coup je l'ai réinstallé en 32.
Sinon j'ai un peu de mal à comprendre le fonctionnement du code "Insertion x Pages d'un pdf dans un autre Pdf", et donc je ne vois pas trop comment l'adapter. Serait-il possible d'avoir une explication un peu détaillée?

[kiki29]

Salut, toujours d'actualité : Développer avec Office 64 bits

D'autant plus que même Microsoft déconseille l'installation d'une version 64 bits d'Office.

Office 32 bits est recommandé pour la plupart des utilisateurs
Nous recommandons la version 32 bits d’Office pour la plupart des utilisateurs, car elle offre une plus grande compatibilité avec la plupart des autres applications, en particulier les compléments tiers. C’est la raison pour laquelle la version 32 bits d’Office 2013 est installée par défaut, même sur les systèmes d’exploitation Windows 64 bits. Sur ces systèmes, le client Office 32 bits est pris en charge en tant qu’installation Windows-32-on-Windows-64 (WOW64). WOW64 est l’émulateur x86 qui permet l’exécution de façon transparente des applications Windows 32 bits sur les systèmes Windows 64 bits. Cela permet aux utilisateurs de continuer à utiliser les contrôles ActiveX et les compléments COM Microsoft avec la version 32 bits d’Office.

Pour PDFCreator la fonction est détaillée dans l'exemple fourni

'Public Function AddPageNumberToPDFFile( _
' sourceFilename As String, _
' destinationFilename As String, _
' fromPage As Integer, _
' toPage As Integer, _
' startPageNumber As Integer, _
' NumberOfPages As Integer, _
' pageNumberPosition As Integer, _
' borderXMillimeter As Single, _
' borderYMillimeter As Single, _
' ByRef textObject As pdfText _
') As Integer

sourceFilename Name of the pdf source file.
destinationFilename Name of the pdf destination file.
fromPage Start page. Must be bigger than 0.
toPage Last page. Use 0 for the last page if you don't know the count of pages.
startPageNumber Start page number.
numberOfPages Number of pages.
pageNumberPosition 1: top left, 2: top middle, 3: top right, 4: bottom left, 5: bottom middle, 6: bottom right
borderXMillimeter X-Position in millimeters from border.
borderYMillimeter Y-Position in millimeters from border.
textObject A PDFText object which defines the text parameters.
Return Value Returns the count of pages on which a page number is added. 0 if there was an error

Cet exemple te permet de tout tester. Il n'est donné qu'à titre indicatif.
Bis repetita : sinon ton code à priori se suffit à lui-même