XL 2016 Extraction des données du PDF vers Excel

[eilalab1996]

Bonjour à toutes et à tous!

J'aimerai développer un script vba afin d'extraire des données d'un fichier PDF normé et les enregistrer dans un fichier excel.
Vous trouvez en pj dans le doc PDF l'ensemble des données que je voudrai récupérer colorés en rouge

A tracers ce script j'ai arrivé à extraire la totalité de l’entête avec ce script mais pas le tableau
Private Sub CommandButton1_Click()
'Ouvre un PDf et lit les informations
Dim NomPDF As String 'chemin+nom du fichier
Dim NomPdf2 As Object
Dim test As Variant
Dim n As Object
NomPDF = "C:\Users\212814114\Desktop\BV801 OK.pdf" 'Nom du PDF
ActiveWorkbook.FollowHyperlink NomPDF

Application.SendKeys "^a" 'sélectionne la totalité du pdf
Application.SendKeys "^c" 'copie la totalité du pdf


ThisWorkbook.Sheets("Sheet1").Activate
Range("A1").PasteSpecial 'coller l'ensemble de ma sélection


End Sub

J'arrive pas à extraire uniquement les données que j'en ai besoin et je comprend pas pourquoi parfois il ne marche pas le bouton

Merci pour votre aide

 

[kiki29]

Salut, voir ici , y lire/adapter les posts 2 à 6

 

[eilalab1996]

J'arrive pa à comprendre exactement comment ça marche exactement j'ai télecharger le zip de Adobe mais quand j'essaie à joindre les pdf rien n'apparait
Merci

 

[kiki29]

Re, ici tout fonctionne.

Il te restera à intégrer à la procédure générale Pdf2Txt une procédure pour ne conserver que les données jugées utiles, cela n'est pas toujours une sinécure.

Pour cela lire/pratiquer : Manipuler les chaînes de caractères en VB6 et VBA Excel

 

[eilalab1996]

AH enfin ça marché
Merci
Je cherche maintenant à extraire de ce fichier pdf que les données colorés en rouge comment dois-je procéder ?

Merci

 

[eilalab1996]

Il m'affiche ce message et j'arrive pas à extraire le pdf

 

[kiki29]

re, bis repetita placent

Il te restera à intégrer à la procédure générale Pdf2Txt une procédure pour ne conserver que les données jugées utiles, cela n'est pas toujours une sinécure.

Pour cela lire/pratiquer : Manipuler les chaînes de caractères en VB6 et VBA Excel

 

[eilalab1996]

Je suis pas forte en excel et de coup je comprend pas quelle modification je dois apporter
Merci

 

[kiki29]

Salut, il m'a fallu passer par XPDF pour obtenir un fichier texte correct, il y a aussi des solutions via Acrobat ( pas le Reader ), bref c'est de la bidouillerie qui permet d'aboutir à ceci, avec un seul fichier pdf difficile de savoir si cela sera correct pour la suite ( ce dont je doute ).

 

[kiki29]

Re, à toi de tester et poursuivre.

Pdf2Txt.xlsb pour extraite le Texte du PDF, ici BV8010 test.pdf qui sera sauver dans le dossier TXTs sous BV8010 test.txt
Voir le fichier pdftotext.txt inclus dans le dossier Doc de xpdfbin-win-3.04 pour les options disponibles.

Lecture.xlsb pour tripoter/bidouiller le fichier texte BV8010 test.txt puis le sauver en ClasseurXY.txt

 

[eilalab1996]

Merci énormément ... u are brilliant !