Copier/Coller PDF vers Excel

Bonjour nouveau projet assez difficile pour mois...

Je souhaiterais ouvrir un PDF copier tout son contenue donc ctrl+A Ctrl+C puis tout coller dans une feuille Excel.

J'ai trouvé des codes sur le net mais évidemment ca ne marche pas et les codes sont trop complexe pour que j'y comprenne quelque chose.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Option Explicit
Sub ExportNotePDF()
Dim navigate As String
navigate = "https://ent.cesi.fr/api/semestre/dossier?codePersonne=2205607&codeSession=2092809&numeroSemestre=6&libelleSession=FISA+20-23+LYON+CESI+CFA+SUP"
Shell ("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe -url " & navigate)
Dim sFichier As String
Dim sAcro As String

    With Feuil1
        .Activate
        .Cells.Clear
        .Range("A1").Select
    End With

    sFichier = PlusRecent("C:\Users\gpetit\Downloads", "")
    sAcro = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"

    Shell sAcro, vbNormalFocus

    SendKeys "^o"
    SendKeys sFichier
    SendKeys "{ENTER}"

    SendKeys "^a"
    SendKeys "^c"
    SendKeys "^q"

    DoEvents
    With Feuil1
        .Activate
        .Paste
        .Range("B1").Select
    End With
End Sub
Function PlusRecent(ByVal Folder As String, ByVal Identi As String) As String
' Variable Identi sert à identifier les fichiers analysés
Dim FSO As Object
Dim f As Object
Dim DerDate As Date
  Set FSO = CreateObject("Scripting.FileSystemObject")
  On Error GoTo ExitPoint
  For Each f In FSO.GetFolder(Folder).Files
    If InStr(1, f.Name, Identi, 1) Then
      If f.DateCreated > DerDate Then
        DerDate = f.DateCreated
        PlusRecent = f.Name
      End If
    End If
  Next
ExitPoint:
End Function

En gros j'ouvre un lien internet qui télécharge le PDF dans le dossier téléchargement

Avec une fonction (trouvé sur le net) je trouve le PDF en question car c'est le plus récent, et le reste du cocde devrais send keys pour coller le tout dans la cellule A1

Ca a l'air de presque fonctionner sauf que le programme colle en Cellule A1 le contenu de mon presse papier avant l'execution du prog donc le ctrl+c ne doit pas se faire correctement

Merci des pistes que vous pourrez m'apporter

A+

Bonjour

Essayez avec ce lien -> https://forum.excel-pratique.com/astuces/convertir-un-tableau-d-un-fichier-pdf-vers-un-fichier-excel...

Cordialement

Bonjour Dan,

Merci de la réponses mais j'ai besoin que cette procédure soit automatisé par VBA...

Je sais que avec un simple CtrlC/V le format à l'arrivé sur Excel sera exécrable mais ca m'importe peu car il sera tjrs le même donc j'utiliserais VBA pour extraire les données qui m'interessent.

En fait il faudrais que j'arrive à manipuler la fenêtre de mon PDF via Excel, pour que lors du Sendkey ctrl+c je soit bien sur adore reader, puis une fois fait pourquoi pas fermer adobe reader.

Hello, un petit up si jamais il existe une solution.. voir un code tout fait ?

A+