imagemagik et vba access

Version imprimable

Bonjour,

J'essaye de convertir un état exporté en pdf, en tif (ou autre) pour pouvoir l'intégrer dans un document word.

En fait, l'état est une facture et je voudrai générer un courrier d'accompagnement dans word (publipostage) avec en copier/colle l'état en tif ...

Ce dernier volet, c'est du publipostage ... et je pense m'en sortir avec les conseils éclairés d'heureux-oli qui m'ont été donnés par le passé.

Je sèche sur imagemagick pour convertir :

- imagemagick est installé
- la bibliothèque "choisie" dans access
- le code qui pose problème :
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim VarName As ImageMagickObject.MagickImage Dim DEPART As String Dim ARRIVEE As String Set VarName = CreateObject("ImageMagickObject.MagickImage.1") DEPART = "D:\travail\DOSSIERS\" & Texte26 & "\" & Texte66 & " factures\" & Me.N°facture & "_N°dossier_" & Me.Texte26 & ".PDF" ARRIVEE = "D:\travail\DOSSIERS\" & Texte26 & "\" & Texte66 & " factures\" & Me.N°facture & "_N°dossier_" & Me.Texte26 & ".TIF" VarName.Convert DEPART, ARRIVEE Set VarName = Nothing
Et ... il ne se passe rien, aucune message d'erreur, rien ...:calim2:

Si quelqu'un a une piste ... ou un plan "B", je suis preneur ...

Merci d'avance

31/05/2010, 14h50
Tofalu

Essaye sans espace dans les chemins départ et arrivée ;)

Je ne connais pas cette librairie mais nulle part tu ne spécifies le format de conversion, c'est normal ?

Bonsoir et merci,

J'ai abandonné cette piste et travail donc sur la base de ce code :

Code:

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
Dim origPdfDoc As Acrobat.CAcroPDDoc
    Dim newPdfDoc As Acrobat.CAcroPDDoc
    Dim path As String
    Dim path2 As String
    Dim path3 As String
    Dim varNewTotalPages As Long
 
    path = "d:\temp\a.pdf" ' fichier 1
    path2 = "d:\temp\b.pdf" ' fichier 2
    path23 = "d:\temp\VOILI.pdf" ' résultat de la fusion
    Set origPdfDoc = CreateObject("AcroExch.PDDoc")
    Set newPdfDoc = CreateObject("AcroExch.PDDoc")
 
    If origPdfDoc.Open(path) Then
        If newPdfDoc.Open(path2) Then
            'Get total # of pages too insert
            varNewTotalPages = newPdfDoc.GetNumPages
            'Insert pages into original pdf
            origPdfDoc.InsertPages True, newPdfDoc, 0, varNewTotalPages, False
            'Save doc
            'origPdfDoc.Save PDSaveIncremental, path 'path doesn't matter, will save to original doc
            origPdfDoc.Save PDSaveCopy, path23
        Else
            MsgBox "Failed to open doc " & path2
        End If
 
        'Close docs
        origPdfDoc.Close
        newPdfDoc.Close
        MsgBox "Pages added to " & path3
    Else
        MsgBox "Failed to add pages to " & path3
    End If
 
    Set origPdfDoc = Nothing
    Set newPdfDoc = Nothing
End Sub

Je dois seulement maintenant trouver comment avoir un nombre de fichier à fusionner "variable" car le code ci-dessus ne fonctionne que pour 2 fichiers "au départ".

Si quelqu'un a une brillante idée, je suis (toujours) preneur ...

Hyp 1 : table intermédiaire où j'insère les fichiers que je veux fusionner, je compte ainsi le nombre d'enregistrements et je créer une boucle en prenant les enregistrements les uns après les autres... mais je ne vois pas comment construire "la boucle" avec la librairie adobe.:calim2:

Hyp 2 : pour l'instant, pas d'hypothèse n°2:mouarf: