Je dois récupérer la totalité d'un texte d'un fichier pdf afin d'extraire
ensuite certaines données de texte... quelqu'un aurait-il une solution ?
Pour l'instant j'ouvre mon fichier pdf, je fais "sélectionner tout" ensuite
je fais un coller dans une feuille excel et je lance ma macro VBA de
récupération des données...
Ce la passait tant que je n'avais qu'un seul pdf de temps en temps, mais là
j'en ai une cinquantaine à traiter et je vais en avoir plusieurs par jours
d'ici peu...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
docm
Bonjour.
Tu peux automatiser l'ouverture du fichier PDF ainsi que le Copier-Coller de la façon suivante:
Private Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub Extraire_Texte_de_Pdf()
URL = "C:mes documentsGazel_no22.pdf" 'Adapter à votre fichier 'Ouvrir le fichier pdf avec le programme approprié ShellExecute 0&, vbNullString, URL, vbNullString, _ vbNullString, vbNormalFocus
NomDeLafenetre = "Acrobat Reader" AppActivate NomDeLafenetre 'Donner le focus à Acrobat Reader SendKeys "^{a}" 'Sélectionner tout avec CTRL-A AppActivate NomDeLafenetre SendKeys "^{c}" 'Copier avec CTRL-C
Je dois récupérer la totalité d'un texte d'un fichier pdf afin d'extraire ensuite certaines données de texte... quelqu'un aurait-il une solution ?
Pour l'instant j'ouvre mon fichier pdf, je fais "sélectionner tout" ensuite
je fais un coller dans une feuille excel et je lance ma macro VBA de récupération des données...
Ce la passait tant que je n'avais qu'un seul pdf de temps en temps, mais là
j'en ai une cinquantaine à traiter et je vais en avoir plusieurs par jours d'ici peu...
@+
Bonjour.
Tu peux automatiser l'ouverture du fichier PDF ainsi que le Copier-Coller de
la façon suivante:
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub Extraire_Texte_de_Pdf()
URL = "C:mes documentsGazel_no22.pdf" 'Adapter à votre fichier
'Ouvrir le fichier pdf avec le programme approprié
ShellExecute 0&, vbNullString, URL, vbNullString, _
vbNullString, vbNormalFocus
NomDeLafenetre = "Acrobat Reader"
AppActivate NomDeLafenetre 'Donner le focus à Acrobat Reader
SendKeys "^{a}" 'Sélectionner tout avec CTRL-A
AppActivate NomDeLafenetre
SendKeys "^{c}" 'Copier avec CTRL-C
Tu peux automatiser l'ouverture du fichier PDF ainsi que le Copier-Coller de la façon suivante:
Private Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub Extraire_Texte_de_Pdf()
URL = "C:mes documentsGazel_no22.pdf" 'Adapter à votre fichier 'Ouvrir le fichier pdf avec le programme approprié ShellExecute 0&, vbNullString, URL, vbNullString, _ vbNullString, vbNormalFocus
NomDeLafenetre = "Acrobat Reader" AppActivate NomDeLafenetre 'Donner le focus à Acrobat Reader SendKeys "^{a}" 'Sélectionner tout avec CTRL-A AppActivate NomDeLafenetre SendKeys "^{c}" 'Copier avec CTRL-C