eilalab1996
XLDnaute Nouveau
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
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
Dernière édition: