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?