[Toutes versions] images en jpg concaténées en pdf

[Chrysostome]

Bonjour à tous les Grands Maîtres,

à peu près tout est dans le titre, sachant que c'est VBA (Access).

Voilà la commande en passant par le TIFF:

Code :

1
2
3
Shell ("C:\Program Files\IrfanView\i_view32.exe /multitif=(D:\Assur\Archivimage\5172\test1.tif,D:\Assur\Archivimage\5172\0.jpg,D:\Assur\Archivimage\5172\3.jpg,D:\Assur\Archivimage\5172\4.jpg)
Waits (5000)
Shell ("C:\Program Files\PDFCreator\pdfcreator.exe /PF""D:\Assur\Archivimage\5172\test1.tif")")

Est-ce qu'il est possible de simplifier en utilisant uniquement pdfcreator?

Merci de vos réponses.

[loufab]

Bonjour,

tu crées un tiff avec plusieurs jpg en passant par irfanview.

Tu peux également charger les tiff dans un état et l'imprimer dans un pdf. Avec 2007 même plus besoin de pdfcreator.

Voici le code pour imprimer autant d'image que tu passes dans un tableau.

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
' Un graphique par page
 
    Me.Controls("image").Picture = tblImages(Me.Page - 1)
 
    If UBound(tblImages) > Me.Page Then
        Me.MoveLayout = True
        Me.NextRecord = False
    End If
End Sub

Code :

tblimage()

est le tableau qui contient les images (leur chemin et nom de fichier).

Code :

Image

est le nom du controle image dans l'état.

C'est une méthode. Il y en a surement d'autres.

Cordialement,

[Chrysostome]

Tout d'abord merci pour ta réponse, mais elle ne répond pas parfaitement à ma question qui était:

"Est-ce qu'il est possible de simplifier en utilisant uniquement pdfcreator?"

En fait, c'est pour un courtier d'assurances qui scanne les éléments dans un dossier et qui veut faire un fichier unique de ces éléments. Le taille des fichier Tif est trop gros.

D'autres part, le help de pdfcreator nous donne un exemple:

Code :

pdfcreator.exe /IF"C:\image1.tif" /OF"C:\image1.pdf"

Comment est la syntaxe avec shell?

Code :

1
2
3
Shell(pdfcreator.exe /IF"C:\image1.tif" /OF"C:\image1.pdf"): erreur
 
Shell("pdfcreator.exe /IF"C:\image1.tif" /OF"C:\image1.pdf""): erreur

Bref, j'ai tout (ou à peu près) essayé.

Merci de vos réponses.

[loufab]

Je n'utilise plus PdfCreator.
Par contre la règle VBA pour les double-cote c'est qu'elles doivent être doublées.

Dans le cas de ta ligne

Code :

pdfcreator.exe /IF"C:\image1.tif" /OF"C:\image1.pdf"

En toute logique elle doit être transformée en

Code :

"pdfcreator.exe /IF""C:\image1.tif"" /OF""C:\image1.pdf"""

Cordialement,

[Chrysostome]

Encore merci de ta réponse, mais je n'arrive pas à trop me dépatouiller ça marche sur mon ordi, ça ne marche pas sur 2 autres, avec les "~mêmes paramétrages". Je vois pas trop d'autres solutions.

[loufab]

Droits d'écriture ?
Version de pdfcreator ?
...