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