Fusionner Fichiers PDF+VB6

Question

Hi tout le monde,


Est ce qqu'un put m'envoyer un exemple d'un code qui me permet de fusionner 2 fichiers pdf et les sauvegarder en un seul fichier. 


Bref un code VB qui me Fusionne/ins&#232;re des pages pdf. Comment utiliser pdf via vb ?


Merci d'avance


Ciao


email: [mailto:ingridnlfr@hotmail.com ingridnlfr@hotmail.com]

cs_Jack · Answer

Salut
A ma connaissance, je n'ai jamais vu de source VB6 qui g&#233;n&#232;re de fichier PDF, alors la fusion ...
Peut-&#234;tre en vb.Net ...

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

nhervagault · Answer

Salut,

Pour la g&#233;n&#233;ration de pdf avec VB6, j'ai vu que le programme pdfcreator sur source forge le fait.
Il ajoute une imprimante virtuelle qui fait des pdf.
Utiles pour sauvegarder des pages web, .... sans avoir &#224; les imprimer.
et autres documents

Mais pour la fusion, je pense que c'est tres compliqu&#233;

cs_abracadabra · Answer

Salut,
En fait c'est possible. J'ai trouv&#233; un code sur internet qui fusionne 2 fichiers pdf en un seul (c mon but). Mais il fonctionne pas , en fait il n'arrive pas &#224; ouvrir le fichier pdf. est ce qqu'un puet l'essayer et me dire s'il marche. ci-dessous le code: 

cFiles is just a collection of filenames in the order I want the PDF files to be combined.
You'll have to set a references to the Acrobat Type library but you might already know that.

Private Sub Combine(ByVal cFiles As Collection)
  Dim i As Long
  Dim oPDF As Acrobat.CAcroPDDoc
  Dim oTemp As Acrobat.CAcroPDDoc
  Dim sDir As String
  Dim nPagesTo As Long
  Dim nPagesFrom As Long
  
  On Error GoTo ERRHANDLER
  
  sDir = File1.Path
  If Right$(sDir, 1) <> "" Then sDir = sDir & ""
  
  Set oPDF = CreateObject("AcroExch.PDDoc")
  If Not oPDF.Open(sDir & cFiles(1)) Then
    Err.Raise vbObjectError + 1001, "Combine", "Unable to open " & cFiles(1)
  End If
  
  nPagesTo = oPDF.GetNumPages
  
  For i = 2 To cFiles.Count
    Set oTemp = CreateObject("AcroExch.PDDoc")
    If Not oTemp.Open(sDir & cFiles(i)) Then
      Err.Raise vbObjectError + 1001, "Combine", "Unable to open " & cFiles(i)
    End If
    nPagesFrom = oTemp.GetNumPages
    If Not oPDF.InsertPages(nPagesTo - 1, oTemp, 0, nPagesFrom, True) Then
      Err.Raise vbObjectError + 1001, "Combine", "Unable to add " & cFiles(i)
    End If
    nPagesTo = oPDF.GetNumPages
  Next i
  
  If Not oPDF.Save(PDSaveFull, sDir & Text1.Text) Then
    Err.Raise vbObjectError + 1001, "Combine", "Unable to save " & Text1.Text
  End If
  
  Set oPDF = Nothing
  Exit Sub
  
ERRHANDLER:
  MsgBox Err.Description & vbCrLf & _
         Err.Source, vbExclamation
  Set oPDF = Nothing
  Set oTemp = Nothing
End Sub

nhervagault · Answer

Salut,



C'est normal que ca ne fonctionne pas, il faut acrobat distiller ou un produit d'adobe pour faire cela.

Si le logiciel d'adobe n'est pas install&#233; ca risque pas de fonctionner.



Un autre probleme est que ce logiciel n'est pas gratuit ;-)

bdl20042000 · Answer

Salut,
moi j'utilise pdftk.exe via un Shell en VB pour fusionner les fichiers PDF (mais il permet de faire bien plus de chose que cela).
Il est freeware.
Via Google tu peux le trouver facilement.

Fusionner Fichiers PDF+VB6

5 réponses

Discussions similaires