Discussion :

[Ninpa]

Bonjour,

Je développe actuellement un progiciel pour mon entreprise, sous VB .net, utilisant les windows FORM.

Il est régulièrement question dans l'entreprise de devoir remplir des formulaires PDF 'a la main', les formulaires ne sont pas identiques dans leurs données, mais identique dans leurs architecture. Les données que nous rentrerons dans le formulaire PDF seront identiques. J'ai donc fais un formulaire avec les champs a remplir.

Je générais avant des fichier PDF a l'aide de iTextSharp, j'ai trouver cette page qui décrivait la procédure en C#. Malheureusement, je n'obtenais pas tout a fais les mêmes résultats que sur l'exemple donné (probablement du a ma mauvaise transition entre les deux langages), alors que la fonction présenté est exactement ce que je cherche faire.

J'ai aussi trouver pas mal de topic existant, mais beaucoup d'entre eux commence a accuser leurs ages, et si j'ai bien lu, la version d'Adobe change pas mal de chose.

C'est donc a vous que je m'en remets, j'ai auparavant utiliser iTextSharp, je préférais donc continuer son utilisation, mais avant tout l'objectif est de remplir cette fonction.

Merci a tous vos futurs réponses !

[Ninpa]

Finalement resolu mon souci avec le code C#.

Voila la solution pour ceux qui serais coincé comme je l'ai été :

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
48
49
50
51
52
53
54
55
56
57
58
59
60
 
 
Imports iTextSharp.text.pdf
Imports System.Text
Imports System.IO
 
Public Class DICTGen
 
    Dim newFile As String = "CheminDuNouveauFichierPDF\NouveauFichierPDF.pdf"
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListFieldNames()
        FillForm()
        Process.Start(newFile)
    End Sub
 
    Private Sub FillForm()
        Dim pdfTemplate As String = txtPath.Text
        Dim NomChamps As String
 
        Dim pdfReader As New PdfReader(pdfTemplate)
        Dim pdfStamper As New PdfStamper(pdfReader, New FileStream( _
            newFile, FileMode.Create))
        Dim pdfFormFields As AcroFields = pdfStamper.AcroFields
 
        For Each item In ListBox1.Items
            NomChamps = Replace(item, ", iTextSharp.text.pdf.AcroFields+Item]", "")
            NomChamps = Replace(NomChamps, "[", "")
            pdfFormFields.SetField(NomChamps, "Valeur")
        Next
 
        pdfStamper.FormFlattening = True
        pdfStamper.Close()
    End Sub
 
 
    Private Sub ListFieldNames()
        Dim pdfTemplate As String = txtPath.Text
        Dim pdfReader As PdfReader = New PdfReader(pdfTemplate)
        Dim sb As New StringBuilder()
 
        For Each de In pdfReader.AcroFields.Fields
            ListBox1.Items.Add(de.ToString)
        Next
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        With OpenFileDialog1
            .Title = "DICT"
            .FileName = ""
        End With
 
        Dim res As DialogResult
        res = OpenFileDialog1.ShowDialog()
        If res = Windows.Forms.DialogResult.OK Then
            txtPath.Text = OpenFileDialog1.FileName
        End If
    End Sub
End Class