PDF vers feuille active excel

[jp65]

Bonjour le forum

Je vous soumet mon dernier souci.

Je souhaite récupérer dans excel le contenu d'un fichier pdf.
J'utilise ce code:

 Sub toto()
 
    Dim Classeur As Workbook
    Dim Tablo() As String
    Dim Chemin As String
    Dim Fichier As String
    Dim I As Variant
    Dim J As Variant
    Dim Valeur As String
    Dim Cel As Range
    Dim Fso As Object
    Dim newnom As String
    

    Chemin = Application.GetOpenFilename("Adobe Acrobat Document (*.pdf), *.pdf", , _
    "Sélectionnez un fichier :")
     Fichier = Dir(Chemin & "*.pdf")
     Fichier = Dir(Chemin)
        I = I + 1
        ReDim Preserve Tablo(1 To I)
        Tablo(I) = Fichier
       Fichier = Dir
       For I = 1 To UBound(Tablo) 'bouc
        Set Classeur = Workbooks.Open(Tablo(I))
      Next
 
End Sub

Ce code ouvre un nouveau classeur portant le nom du fichier pdf et contenant les données du pdf.

Ma question:
Y a t'il un moyen de récupérer ces données directement dans la feuille active initiale.

Question complémentaire:
Peut on récupérer une donnée directement dans tablo sans passer par la récupération complète dans une feuille excel.

Merci pour votre aide

Bonne soirée et restez au chaud.