Discussion :

[sihammaster]

Bonjour,
Je Cherche à extraire une partie d'une page web vers excel.
Dans le code que j'utilisais j'enregistre toute la page web au format Excel en fait je change juste l'extention :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  My.Computer.Network.DownloadFile(Lien, saveDisc)

je voudrais pouvoir extraire juste une balise <table> (puisque y aura plusieurs balise <table> je voudrais spécifier une ), Merci de me répondre,

[yonpo]

Salut,

Je n'ai pas tout compris mais tu souhaites extraire une chaîne de caractère dans un fichier Excel?!?

[sihammaster]

Saut,
Non je voudrais Juste extraire plusieurs données d'une page web et pas toute la page

voila la page http://www.advfn.com/p.php?pid=financials&symbol=a
je voudrais extraire les données entre Industry Information et KEY FIGURES (LTM): Price info
Merci à Vous

[yonpo]

Pour cela, il faut récupérer le code source de la page en question et ensuite extraire les informations que tu souhaites.

Pour récupérer le code source de la page, tu as la réponse dans le FAQ

Ensuite pour récupérer les infos:
Si tu souhaites récupérer ce qui suit Information Industrie sur la page que tu as donné:

Code non testé :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
intNb1 = InStr(1, strCodeSource, "Information Industrie: <")
intNb1 = InStr(intNb1, strCodeSource, "<td colspan="2">")
intNb1 = InStr(intNb1, strCodeSource, "<b>")
intNb2 = InStr(intNb1, strCodeSource, "<a")
strNomIndustrie = Mid(strCodeSource, intNb1 + 2, intNb2 - intNb1 - 2)

Bien sûr, cela est à adapter aux différentes informations que tu souhaites récupérer.
Il y a surement différentes méthodes mais celle là fonctionne bien.