Extraire d'un pdf des infos

Bonjour,

j'ai le nom d'un fichier en colonne A et le chemin en colonne E je veux boucler tous mes fichiers (.pdf) et extraire les infos de chaque fichiers dans un onglet (feuil2) sauf que le

'Ouvrir le fichier pdf avec le programme approprié
ShellExecute 0&, vbNullString, URL, vbNullString, _
vbNullString, vbNormalFocus
'Attendre 2 secondes

ne m'ouvre pas adobe reader ... donc je sèche ... si quelqu'un peux m'aider

Bien cordialement.

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()

i = 2
With Sheets("Feuil1")
Do While i < .Range("A65535").End(xlUp).Row + 1
If .Range("A" & i) <> "" And .Range("E" & i) <> "" Then
URL = .Range("A" & i) & .Range("E" & i) 'Adapter à votre fichier
'Ouvrir le fichier pdf avec le programme approprié
ShellExecute 0&, vbNullString, URL, vbNullString, _
vbNullString, vbNormalFocus
'Attendre 2 secondes
Application.Wait (Now + TimeValue("0:00:02"))
NomDeLafenetre = .Range("A" & i) & " - Adobe Reader"
AppActivate NomDeLafenetre 'Donner le focus à Adobe Reader
SendKeys "^{a}" 'Sélectionner tout avec CTRL-A
AppActivate NomDeLafenetre
SendKeys "^{c}" 'Copier avec CTRL-C
'Attendre 2 secondes
Application.Wait (Now + TimeValue("0:00:02"))
AppActivate "Microsoft Excel" 'Redonner le focus à Excel
Sheets("Feuil2").Range("A" & i).Activate
ActiveSheet.Paste
End If
i = i + 1
Loop
End With
End Sub

j'ai bien activé la référence "Microsoft Scripting RunTime"