vba - copier le contenu d'un pdf téléchargé

albert

XLDnaute Occasionnel
Bonsoir à tous et à toutes,

Je cherche le moyen de copier le contenu d’un pdf
http://www.cn.ca/customer_centre/services_support/fuel_surcharge/includes/FSC_07_2008_en.pdf

//********************

les données externes ne donnent rien :
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.cn.ca/customer_centre/services_support/fuel_surcharge/includes/FSC_07_2008_en.pdf" _
, Destination:=Range("A1"))
.Refresh BackgroundQuery:=False
End With
//*************************

Workbooks.Open Filename donne également un résultat inutilisable :

Workbooks.Open Filename:= _
"http://www.cn.ca/customer_centre/services_support/fuel_surcharge/includes/FSC_07_2008_en.pdf"
ActiveWindow.Visible = True

//***************************

j’ai donc utilisé l’ Hyperlinks
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://www.cn.ca/customer_centre/services_support/fuel_surcharge/includes/FSC_07_2008_en.pdf"
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Le .pdf est ouvert, mais je ne peux pas sélectionner Sheets("FSC_07_2008_en.pdf").Select
c'est une opération essentielle
=> bug
Pour en copier le contenu

Selection.Copy
Windows("West Texas IntermediateTest1.xls").Activate
ActiveSheet.Paste



//******************

existe-t-il un moyen de copier les données du pdf ?

merci d’avance

albert
 

Discussions similaires

Réponses
4
Affichages
2 K

Statistiques des forums

Discussions
312 201
Messages
2 086 171
Membres
103 152
dernier inscrit
Karibu