Excel / Word / PDF avec Adobe Acrobat Pro et PDFCreator 1.7.3 (obsolète)

**Chrysostome** · 29/09/2016, 09h59

Merci pour ta réponse, mais ça ne résout malheureusement pas mon problème, je l'avais déjà fait en VB.
Je vais me tourner vers un vbs externe, si je me rappelle comment on lui fait passer des valeurs à partir de vba.

Est-ce que le fait de payer me donnera la possibilité d'écrire directement dans le pdf?

Merci de ta réponse.

**kiki29** · 29/09/2016, 10h15

Re, comme l'interface com 2.x est très succincte ( voir via explorateur d'objets ) , à part revenir en 1.7.3 où les exemples fournis fonctionnent. Que tu essaies via VBA/VBS ou autre ne changera rien à ton problème puisque les méthodes/propriétés ne sont plus accessibles.

**Chrysostome** · 29/09/2016, 16h57

J'ai tellement passé de temps à développer ce programme que je ne vais pas abdiquer maintenant.

Merci de tes précisions maintes fois répétées. Voici un VB6 qui fonctionne (avec PDFCreator en reference), j'écris sur une image de fond qui fait le cadre de ma facture et je la personnalise:

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
 
Private Sub Command1_Click()
  Dim PDFQueue As New Queue, MyJob As PrintJob
  Screen.MousePointer = vbHourglass
  Command1.Enabled = False
  PDFQueue.Initialize
  MyJob.SetProfileByGuid ("DefaultGuid")
 
  Printer.Font.Size = 10
  Printer.CurrentX = 1750
  Printer.CurrentY = 4112
  Printer.Print "Référence : "
  Printer.CurrentX = 1750
  Printer.CurrentY = 4612
  Printer.Print "Date Paiement :"
  Printer.CurrentX = 1750
  Printer.CurrentY = 5112
  Printer.Print "Id Client :"
 
  Printer.Font.Size = 10
  Printer.CurrentX = 7000
  Printer.CurrentY = 4112
  Printer.Print "NomFacture: "
  Printer.CurrentX = 7000
  Printer.CurrentY = 4612
  Printer.Print "AdresseFacture1:"
  Printer.CurrentX = 7000
  Printer.CurrentY = 4912
  Printer.Print "AdresseFacture2 :"
  Printer.CurrentX = 7000
  Printer.CurrentY = 5412
  Printer.Print "CP1 et Ville :"
 
  Printer.EndDoc
  Do Until PDFQueue.Count > 0
    DoEvents
  Loop
  Set MyJob = PDFQueue.NextJob
  Call MyJob.SetProfileSetting("OpenViewer", "false")
  Call MyJob.ConvertTo("C:\pdftest.pdf")
  Do Until MyJob.IsFinished
    DoEvents
  Loop
  Call PDFQueue.ReleaseCom
  Command1.Enabled = True
  Screen.MousePointer = vbNormal
End Sub

Mais dès que je la mets en vba (Access ou Outlook), j'ai carrément un arrêt du logiciel avec un reboot.

Si c'était le problème de la version de PDFCreator, ça ne marcherait pas en VB6 (c'est pourquoi je vais essayer en vbs), et c'est là où j'ai encore besoin de tes compétences pour le faire fonctionner en vba.

Merci d'avance de bien vouloir te pencher sur mon problème.

**kiki29** · 29/09/2016, 17h34

La classe Printer n'existe pas pour le VBA. Donc c'est PDFCreator 1.7.3 ou sinon rien.

**Chrysostome** · 29/09/2016, 19h06

Voilà, je suis passé au 1.7.3, je commence à entrevoir une solution, grâce à toi.

Lors de "pdf.StampPDFFileWithImage" j'ai une erreur de "Le paramètre n'est pas valide."

J'ai eu beau changer l'un puis l'autre, vérifier les adresses de mes fichiers, rien n'y fait! Aurais-tu une proposition à me faire?

Encore merci.

Envoyé par kiki29

PDFCreator Insertion Image de fond dans Document Pdf
Cette image se centre automatiquement et de sa définition dépendra la surface couverte sur le document
On n'a accès ni à son positionnement xy ni à un facteur d'échelle

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
Option Explicit
 
Sub Tst_Filigrane()
Dim pdf As Object, SNomFichier As String
 
     'Public Function StampPDFFileWithImage( _
     '    sourceFilename As String, _
     '    destinationFilename As String, _
     '    imageFilename As String, _
     '    fromPage As Integer, _
     '    toPage As Integer, _
     '    overUnder As Boolean, _
     '    fillOpacity As Single, _
     '    blendMode As Integer _
     ') As Integer
 
    '	Blend mode
    '1 	Color burn
    '2 	Color dodge
    '3 	Color compatible
    '4 	Color darken
    '5 	Color difference
    '6 	Color exclusion
    '7 	Color hardlight
    '8 	Color lighten
    '9 	Color multiply
    '10 Color normal
    '11 Color overlay
    '12 Color screen
    '13 Color softlight
 
    SNomFichier = ThisWorkbook.Path & "\" & "Snoopy.jpg"
    Set pdf = CreateObject("pdfforge.pdf.pdf")
 
    ' L'image sera en arrière plan : overUnder = False
    pdf.StampPDFFileWithImage "Document.pdf", "Document Snoopy.pdf", SNomFichier, 1, 1, False, 0.5, 10
 
    Set pdf = Nothing
End Sub

**kiki29** · 29/09/2016, 19h29

j'ai une erreur de "Le paramètre n'est pas valide."

Non, je ne pratique pas l'extispicine. Quel paramètre et sur quelle ligne ?

**Chrysostome** · 29/09/2016, 19h51

Arrêt sur erreur "Le paramètre n'est pas valide." :

pdf.StampPDFFileWithImage "Document.pdf", "Document Snoopy.pdf", SNomFichier, 1, 1, False, 0.5, 10

malheureusement, rien ne dit lequel c'est, c'est pourquoi j'ai essayé de changer les uns et les autres un par un mais rien n'y fait.

As-tu déjà testé sur du vba (Access ou Outlook)?

Voilà le sub:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Tst_Filigrane()
Dim pdf As Object
Dim SNomFichier As String
 
    SNomFichier = "C:\Facture_02.pdf"
    Set pdf = CreateObject("pdfforge.pdf.pdf")
    pdf.StampPDFFileWithImage "C:\Document.Pdf", "C:\DocumentSnoopy.pdf", SNomFichier, 1, 1, False, 1, 10
 
    Set pdf = Nothing
End Sub

**kiki29** · 29/09/2016, 20h41

Je n'ai pas Access, donc j'arrête ces verbiages et jacasseries inutiles qui ne font que polluer ce blog.

**modus57** · 04/10/2016, 08h54

Bonjour.

Bravo pour votre super boulot, c'est une mine de pépite PDF.

Le post #237 "Visualisation d'une liste de fichiers PDF dans une UserForm via IExplorer" permet à la sélection d'un fichier PDF dans la ListBox quelle que soit la version d'Acrobat Reader.

Est-ce possible d'afficher automatiquement dans le WebBroser le fichier PDF sélectionné sans les barres d'outils, de l'ajuster à la page entière et ajuster le WebBrowser à la largeur du PDF pour ne pas voir les parties grisées de chaque côté.

Je n'ai pas trouvé la solution, peut-être mal cherché !

Merci d'avance pour votre réponse.

**kiki29** · 04/10/2016, 11h38

Salut, dans le post# 237 il y a un lien vers Parameters for Opening PDF Files qui contient les fameux paramètres. Paramètres à placer dans Private Sub Textbox1_Change() de l'UserForm.

**modus57** · 04/10/2016, 13h39

Bonjour kiki29

Toujours aussi réactif et efficaces.

Sur le lien j'ai trouvé la réponse et en modifiant Private Sub Textbox1_Change() "#zoom=xx%&page=1&toolbar=0", en bidouillant la largeur et hauteur du WebBrowser j'arrive à supprimer les zones grises.

Qu'elle est la solution pour adapter automatiquement la taille du WebBrowser à la taille plein page du PDF.

**kiki29** · 04/10/2016, 14h11

Je t'ai donné plus haut le lien d'un doc pdf à lire.

**kiki29** · 20/10/2016, 19h35

Concernant Xpdf il y a un utilitaire Pdfinfo.exe qui renvoie les métadonnées d'un pdf. Toujours avec les mêmes contraintes sur les noms/chemins.

PDFCreator Lecture des métadonnées d'un fichier PDF
PDFCreator Ecriture des métadonnées dans un fichier PDF
Acrobat Lecture des métadonnées d'un fichier PDF
Acrobat Ecriture des métadonnées dans un fichier PDF

**jurassic pork** · 21/10/2016, 07h57

hello,
pour ce problème :

Envoyé par kiki29

La contrainte principale dans l'usage d'Xpdf est que les noms/chemins des fichiers/exé ne doivent pas comporter d'espaces.

l'ajout de guillemets (avec Chr(34)) sur l'exécutable pdf2text.exe (avec son chemin) et sur le nom du fichier PDF dans la ligne de commande windows devrait faire l'affaire.
Exemple :

Code :

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

1
2
  Wsh.Run "cmd  /c  chcp 65001 && " & Chr(34) & "F:\temp\test Excel\bin32\pdftotext.exe" & Chr(34) & _
            " " & Chr(34) & sFichier & Chr(34) & " -enc UTF-8 -raw - | clip", vbHide, True

Ami calmant, J.P

**kiki29** · 21/10/2016, 08h43

Salut, cela me turlupinait depuis le début, et là c'est bon, une fois de plus à chacun son manioc ... et encore un grouick d'honneur. Cela va alléger considérablement le code initial.

**kiki29** · 27/10/2016, 00h10

Qqs stats sur l'usage d'Xpdf et des SendKeys.

**Crevette54** · 16/11/2016, 21h47

Bonsoir,

un grand merci à Kiki pour ces codes qui servent bien.

Je souhaiterais aplatir un formulaire pdf depuis le code vba en sachant que la ligne de script mit sur un bouton du formulaire est :

Code :

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

this.flattenPages();

Merci par avance.

Jérôme.

**Axel_lexcel** · 24/11/2016, 13h23

Bonjour.

Un grand merci, aussi, a tous pour les codes sources. Super!

Néanmoins est que quelqu'un a remarqué que l'implémentation de [this.Pagenum=x/] ne fonctionne pas sur Adobe touch Reader?

Par contre en changeant, pour un "Atteindre une vue de page", là ca remarche à nouveau. Les liens sont actifs à nouveau.
Existe il, un moyen de scripter l'action "Atteindre une vue de page" ?

Merci pour vos conseils avisés.
Axel