Discussion :

[Bibhomas]

Bonjour à tous,

Tout d'abord je souhaite remercier tous les contributeurs du site qui m'ont permis de découvrir, d'apprendre et d'utiliser VBA depuis quelques mois.

Aujourd'hui je rencontre un probème lors de la construction de mon programme.

Je souhaite, depuis VBA, modifier une liste de fichier pdf pour ajouter sur chaque fichier une image sur la moitié basse du PDF.

Je travail avec Excel 2016 et PDF Creator Free v.3.2.2

Pour cela j'ai trouvé un début de solution, je passe par Word pour ouvrir le PDF et ajouter l'image dessus. Cependant, ces actions fonctionnent lorsqu'elles sont exécutes séparément mais ensemble cela ne fonctionne pas. Ce problème est peux être du au temps d'ouverture du document mais en utilisant un timer pour attendre avant d'executer la macro qui ajoute l'image cela ne marche pas non plus. J'ai également essayé en séparant les deux macro mais cela ne marche pas non plus. Mon code actuel est le suivant :

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
Sub modifier_pdf()
 
Set WordApp = CreateObject("word.Application")
    WordApp.Visible = True
    WordApp.Documents.Open "C:\mon_document.pdf"
 
Call suite
End Sub
 
Sub suite()
Dim image As Shape
Set image = ActiveDocument.Shapes.AddPicture(FileName:="C:mon_image.JPG")
 
With image
.RelativeHorizontalPosition = 1
.RelativeVerticalPosition = 0
.Left = CentimetersToPoints(0)
.Top = CentimetersToPoints(12)
.LockAspectRatio = msoTrue
.Height = CentimetersToPoints(15)
 
End With
End Sub

Merci d'avance pour votre aide, propositions ou solution

[TonyNiort79]

Bonjour,

moi aussi je cherche à intégrer des images dans des fichiers PDF et je n'avais pas pensé à utiliser Word,

à première vue il manque "\" sur la ligne 12 juste après le "C"

Code :

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

Set image = ActiveDocument.Shapes.AddPicture(FileName:="C\:mon_image.JPG")

[Bibhomas]

Bonjour Tony,

Merci pour ce retour, oui effectivement il manque la "\", j'ai changé lors de la recopie pour que mon code soit plus lisible mais je n'ai pas vu cette coquille.

En utilisant Word il faut au préalable désactiver l'OCR.

[TonyNiort79]

Bonjour Bibhomas ,

comment fait-on pour désactiver l'OCR ?
pour d'éventuels essais, merci