Extraction pdf vers Excel

Bonjour,

Merci pour votre réponse.

Le document PDF est un formulaire administratif type cerfa avec des champs texte et des cases à cocher que l'on peut renseigner.
Ce document va être envoyé par mail à plusieurs personnes qui vont renseigner les champs et renvoyer le formulaire rempli.
je souhaite garder ces documents renseignés en archive mais en même temps, je souhaite compiler les retours sur base de données Excel.
Voilà

Bonjour,

a voir:

https://www.developpez.net/forums/d431662-3/logiciels/microsoft-office/general-vba/contribuez/excel-word-pdf-adobe-acrobat-pro-pdfcreator-1-7-3-obsolete/#post6883184

Merci pour l lien mais j'ai peur d'être assez nul dans cette maîtrise de macro

Je me suis contenté de recopier cette macro :

Option Explicit

Sub SelectionFichier2()
Dim FD As FileDialog

    Set FD = Application.FileDialog(msoFileDialogFilePicker)
    With FD
        .InitialFileName = ThisWorkbook.Path
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "PDF", "*.pdf", 1
        .ButtonName = "Ouvrir fichier"
        .Title = "Sélectionner un fichier PDF"
    End With

    If FD.Show = True Then Lire2 FD.SelectedItems(1)

    Set FD = Nothing
End Sub

'   Cocher Reference : Microsoft Forms 2.0 Object Library
Sub Lire2(sFichier As String)
Dim PDDoc As Object
Dim PDPage As Object
Dim PDText As Object
Dim TextSelt As Object
Dim Rep As Long
Dim i As Long, j As Long
Dim wkPage As Long
Dim wkCnt As Long
Dim wkText As String
Dim FName As String
Dim oDO As Object

    FName = sFichier
    Set PDDoc = CreateObject("AcroExch.PDDoc")
    Rep = PDDoc.Open(FName)

    Set TextSelt = CreateObject("AcroExCh.HiliteList")
    TextSelt.Add 0, 32767

    wkPage = PDDoc.GetNumPages()
    For i = 0 To wkPage - 1
        Set PDPage = PDDoc.AcquirePage(i)
        Set PDText = PDPage.CreatePageHilite(TextSelt)
        wkCnt = PDText.GetNumText()
        For j = 0 To wkCnt - 1
            wkText = wkText & PDText.GetText(j)
        Next j
    Next i
    PDDoc.Close

    Set PDPage = Nothing
    Set PDText = Nothing

    Set oDO = New MSForms.DataObject
    oDO.Clear
    oDO.SetText wkText
    oDO.PutInClipboard

    Application.ScreenUpdating = False
    ShTest.Cells.Clear
    ShTest.Range("A1").PasteSpecial

    Set oDO = Nothing
    Set TextSelt = Nothing
    Set PDDoc = Nothing

    ShTest.Range("H1").Select
    Application.ScreenUpdating = True
End Sub

Et j'ai le message suivant sur

New MSForms.DataObject

"Erreur de compilation. Type défini par l'utilisateur non défini"

Re,

Il me faudrait un formulaire PDF, pour que je puisse faire des tests.

A mettre sur https://www.cjoint.com/

Bonsoir,

Ci-joint

https://www.cjoint.com/?DBftoZEy9U0

Au cas où, le lien pour télécharger le document

http://www.google.fr/...