comment récupérer les info sur page html ???

[albert]

Bonjour à tous et à toutes, bonjour forum,
J’ai écrit une fonction qui ouvre une page html :

Function portfolio(sicovam)
sicovam = Cells(1, 1)
Shell ("C:\Program Files\Internet Explorer\iexplore.exe http://www.boursorama.com/cours.phtml?code=" & sicovam & "&choix_bourse=pays%3D33&categorie=")
End Function

Il suffit d’inscrire le code sicovam en A1 + entrée, la page html s’ouvre.

Ma question : comment récupérer(en vba) le nom et le prix correspondant à la ligne drernier pour les inscrire en B2, C2 ???

Merci d’avance

 

[albert]

Eurêka!!! j'ai trouvé
...il faut utiliser WebTables

Sub Macro1()
cours = Sheets("Feuil2").Cells(1, 10)
Cells.Select
Selection.Clear

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.fininfo.fr/fininfo/GetResume.event?id=" & cours & "" _
, Destination:=Range("A1"))
.WebFormatting = xlWebFormattingNone
'.WebTables = "7" 'tableau
.WebTables = "8" 'dernier
.Refresh BackgroundQuery:=False
End With
Cells(1, 1).Select
End Sub

 

[jmps]

Bonsoir Albert,

Ouah ! Je dois dire que tu m'as soufflé. J'avais vu ta question mais j'avais pas de réponse. Et pour cause. Je ne pensais pas que c'était possible. J'ai pas testé mais ça m'impressionne rien qu'en lisant le code. Je testerai dès que j'ai un peu de temps. T'es un chef !

A+

José

 

[albert]

bonjour jmps,

si tu veux tester, il faut mettre le code isin en Feuil2, par exemple pour alcatel :FR0000130007
(fichier joint)
pour .WebTables, il faut chercher par tâtonnements

je vais essayer d'en faire une Function() pour pouvoir obtenir des résultats dans plusieurs cellules (pour faire un portefeuille de plusieurs titres)