XL 2016 VBA - Récupérer le texte d'un fichier PDF

Private Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal nMaxCount As Long) As Long
Private Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Private x&

Private Function EnumWindowsProc&(ByVal hwnd&, ByVal lParam&)
    Dim SLength&, Buffer As String, RetVal&
    SLength = GetWindowTextLength(hwnd) + 1
    If SLength > 1 Then
    Buffer = Space(SLength)
    RetVal = GetWindowText(hwnd, Buffer, SLength)
    x = x + 1
    Cells(x, 1) = Left(Buffer, SLength - 1)
    Cells(x, 2) = CBool(IsWindowVisible(hwnd))
    End If
    EnumWindowsProc = 1
End Function

Sub WinList()
    Application.ScreenUpdating = False
    Cells.ClearContents
    Cells(1, 1) = "CAPTION"
    Cells(1, 2) = "VISIBLE"
    Range("A1:B1").Font.Bold = True
    Range("A2").Select
    ActiveWindow.FreezePanes = True
    x = 1
    EnumWindows AddressOf EnumWindowsProc, 0
    Cells.Columns.AutoFit
End Sub

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'-----------------------------------------
'Open a PDF and copy the text in the sheet
'-----------------------------------------
Function GetPDFText(FichierPDF As String) As String
    Dim Clipboard As Object

    'Chrome exe file
    Const Chrome = "C:\Program Files\Google\Chrome\Application\chrome.exe"
    
    'DataObject late binding
    Set Clipboard = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    
    'Run Chrome
    Call Shell(Chrome & " --new-window -url " & """" & FichierPDF & """", vbNormalFocus)
    Sleep 2000
     
    'Send keys to Select All / Copy / Kill the application
    CreateObject("wscript.shell").SendKeys "^a"
    Temporisation 100
    CreateObject("wscript.shell").SendKeys "{TAB}"
    Temporisation 100
    CreateObject("wscript.shell").SendKeys "^c"
    Temporisation 100
    CreateObject("wscript.shell").SendKeys "%{F4}"
    Temporisation 10000
    
    'Get the text from the Clipboard
    With Clipboard
        .GetFromClipboard
        GetPDFText = .GetText(1)
        .SetText ""
        .PutInClipboard
    End With
End Function

'-------------
'Temporisation
'-------------
Private Sub Temporisation(NbDoEvents As Integer)
    Dim k As Integer
    
    For k = 1 To NbDoEvents
        DoEvents
    Next k
End Sub

let
    Source = Pdf.Tables(File.Contents("C:\Users\cousi\Documents\essai.pdf"), [Implementation="1.3"]),
    Expand = Table.ExpandTableColumn(Source, "Data", {"Column1", "Column2"}, {"Data.Column1", "Data.Column2"})
in
    Expand