adri1l
Habitué
Bonjour a tous!
J'ai une question sur le type de donnees que l'on peut importer d'une page web avec la requete ActiveSheet.QueryTables.Add
Il semble que ces donnees doivent etre dans un tableau sur le site, non?
Faut il qu'elles soient exprimees dune certaines facon dans le html ou peut on controler le type dans l'import?
Je m'explique, de la page web ci dessous je n'arrive a rien importer alors quil marche tres bien pour dautres pages:
Voici mon code:
[cpp]
url_page = "URL;" & "http://www.boursorama.com/derives/warrants/pricer.phtml?symbole=1rPF108Z"
With ActiveSheet.QueryTables.Add(Connection:=url_page, Destination:=Sheets("WEB").Range("A1"))
.Name = name_page
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With
[/cpp]
Est ce quil y a une solution?
Merci!
J'ai une question sur le type de donnees que l'on peut importer d'une page web avec la requete ActiveSheet.QueryTables.Add
Il semble que ces donnees doivent etre dans un tableau sur le site, non?
Faut il qu'elles soient exprimees dune certaines facon dans le html ou peut on controler le type dans l'import?
Je m'explique, de la page web ci dessous je n'arrive a rien importer alors quil marche tres bien pour dautres pages:
Voici mon code:
[cpp]
url_page = "URL;" & "http://www.boursorama.com/derives/warrants/pricer.phtml?symbole=1rPF108Z"
With ActiveSheet.QueryTables.Add(Connection:=url_page, Destination:=Sheets("WEB").Range("A1"))
.Name = name_page
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With
[/cpp]
Est ce quil y a une solution?
Merci!