Discussion :

[Guigui35520]

Bonjour à tous,

J'extrait du texte de plusieurs PDF ouvert à la suite et le copie sur une feuille via ce code . Tout fonctionnait bien mais depuis peu, le code 1004 apparaît ( alors qu'avant RAS sans modification du code )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub Extraire_Texte_de_Pdf()
Dim URL As String
Dim i, fin, f As Integer
Dim DernLigne As Long
Dim y As Integer
Dim j As Integer
Dim c As Range
f = Sheets("NOMFichiers").[A65000].End(xlUp).Row
 
 i = 1
 
 
    Do Until i = f + 1
 
        If i Mod 40 = 0 Then Call Fermer_Un_Programme("AcroRd32.exe")
 
    URL = "C:\index\" & Sheets("NOMFichiers").Range("A" & i)
 
        'Ouvrir le fichier pdf avec le programme approprié
    ShellExecute 0&, vbNullString, URL, vbNullString, _
    vbNullString, vbNormalFocus
 
    'Attendre 1 seconde
    Application.Wait (Now + TimeValue("0:00:02"))
 
 
    'NomDeLafenetre = "Acrobat Reader"
 
    SendKeys "^{a}" 'Sélectionner tout avec CTRL-AAppActivate NomDeLafenetre
    SendKeys "^{c}" 'Copier avec CTRL-C
    'SendKeys ("%{F4}") 'envoi altF4"
 
        'Attendre 1 seconde
    Application.Wait (Now + TimeValue("0:00:01"))
 
    AppActivate "Microsoft Excel" 'Redonne le focus à Excel
 
    Application.Wait (Now + TimeValue("0:00:01"))
 
    Sheets("PDF").Select
    Sheets("PDF").Range("A1").Select

Sheets("PDF").Paste L'erreur est ici surlignée en jaune La méthode Paste semble poser problème...mais y a t-il un autre moyen de coller le copier?

[kiki29]

Salut, à voir et adapter si besoin à ton contexte.

Acrobat : Copie Texte d'un fichier Pdf dans une feuille Excel

En relation avec ce post

• Acrobat Reader : Pdf2Excel
• Acrobat Reader : Pdf2Excel 2007+

• XPDF : Extraction du Texte d'une liste de PDF (2)
• XPDF : Extraction du Texte d'une liste de PDF ( P-Papier )(2)

Je te conseille XPDF ( gratuit ) nettement plus véloce qu'Acrobat ou son Reader et cette liste pour naviguer dans le bazar. Sans compter que l'on échappe aux problèmes des SendKeys ( focus, timing, langue etc .)
L'extraction finale des infos utiles reste à la charge de l'utilisateur et ce n'est pas une sinécure. Pour cela lire et assimiler ces 2 références ( entre autres ) :
Manipulation des fichiers en VBA
Manipuler les chaînes de caractères en VB6 et VBA Excel

[Guigui35520]

Merci beaucoup pour ce poste complet! Plus qu'à relever les manches et s'y plonger!
A+