Discussion :

[Daniel53]

Bonjour,

J'utilise une macro VBA sous Excel (Office 365) pour construire une notice à partir d'une nomenclature dans une feuille XLS et j'ai besoin de remplacer des pages dans le fichier PDF.

J'utilise la librairie Adobe Acrobat DC avec une formule Acrobat Pro DC, et je m'appuie sur la documentation Adobe https://opensource.adobe.com/dc-acro...Exch_PDDoc.htm

J'ai un problème avec les méthodes ReplacePages et Save qui me retourne 0 indiquant l'opération n'a pas été réalisé avec succès...
Pour circoncire le problème j'ai construite la macro ci-dessous. seul les méthodes ReplacePages et Save me retourne 0.

Merci d'avance de votre aide pour résoudre mon dysfonctionnement

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
 
Sub essaisAcrobat()
 
    Dim oPdfDoc1 As Acrobat.CAcroPDDoc
    Dim oPdfDoc2 As Acrobat.CAcroPDDoc
 
    sfic1 = "C:\test\Notice.pdf"
    sfic2 = "C:\test\test1.pdf"
    sfic3 = "C:\test\testR.pdf"
 
    Set oPdfDoc1 = CreateObject("AcroExch.PDDoc")
    Set oPdfDoc2 = CreateObject("AcroExch.PDDoc")
 
    WasOpened1 = oPdfDoc1.Open(sfic1)
    WasOpened2 = oPdfDoc2.Open(sfic2)
 
    NbPgPDF1 = oPdfDoc1.GetNumPages()
 
 
    NumPageDocx = 8
    NbPgPDF2 = oPdfDoc2.GetNumPages
    WasReplace = oPdfDoc1.ReplacePages(NumPageDocx, oPdfDoc2, 0, NbPgPDF2, 1)
    WasSaved = oPdfDoc1.Save(1, sfic1)
 
    Wasdeleted = oPdfDoc1.DeletePages(0, 1)
    Wasinsert = oPdfDoc1.InsertPages(2, oPdfDoc2, 0, 1, 0)
    WasSaved = oPdfDoc1.Save(PDSaveFull, sfic3)
    WasClosed = oPdfDoc2.Close
    WasClosed = oPdfDoc1.Close
 
 
    Set oPdfDoc1 = Nothing
    Set oPdfDoc2 = Nothing
 
End Sub

[Daniel53]

En remplaçant l'instruction ReplacePages par les instructions DeletePages et InsertPages, j'arrive à traiter une partie des dysfonctionnements mais j'ai de manière non maitrisé l'instruction save qui ne marche pas toujours...
Je suis preneur de toutes pistes pour m'aiguiller dans la résolution de ce dysfonctionnement.
Merci