Bonsoir, j'ai bien lu tous les codes et explications mis en ligne sur ce sujet mais je n'arrive pas à conclure...
voilà ce que j'ai utilisé , à chaque fois le sendkeys ^a /c me copie le code et non le contenu du pdf , j'ai compris que c'est un problème d'activation de page....
pouvez vous m'aider à conclure , j'ai plusieurs centaine de pdf à traiter , je me sens pas de faire cela à la main ....


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
42
43
44
45
46
47
48
Sub Pdf2Txt()
Dim sFichier As String
Dim sAcro As String
 
    EffacerClipboard
    DoEvents
 
    With Feuil1
        .Activate
        .Cells.Clear
        .Range("A1").Select
    End With
 
    sFichier = ThisWorkbook.Path & "P:\xxxx\xxx\xxx\yyyyy\zzzzz\abc 128-114\" & "abc 128-114.pdf"
 
    sAcro = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRD32.exe"
 
    'Clavier (j'ai désactivé cette ligne car cela bug)
 
    DoEvents
 
    Shell sAcro, vbNormalFocus
 
    SendKeys "^o" '(cette ligne n'a aucun effet sur mon pdf ?)
    SendKeys sFichier '(cette ligne n'a aucun effet sur mon pdf ?)
    SendKeys "{ENTER}"' (cette ligne n'a aucun effet sur mon pdf ?)
 
    AppActivate ("01-abc 128-114.pdf") 'activer la fenetre Acrobat Reader
    Application.Wait (Now + TimeValue("0:00:01"))
 
 
    SendKeys "^a" '( [U]lors de cette commande c'est mon code vba qui est sélectionner et non le contenu du pdf )
    SendKeys "^c"
    SendKeys "^q"
 
    AppActivate ("01-abc 128-114.pdf")
    SendKeys "^{q}" 'Quitter Acrobat Reader
 
    Clavier 'pour annuler les effets néfastes de SendKeys
    AppActivate "classeur7.XLSX" 'Redonner le focus à Excel
 
    DoEvents
    With Feuil1
        .Activate
        .Paste
        .Range("B1").Select
    End With
End Sub