récuperation d1 page web sur excel

[blacsap]

salut
voila je voudrai récuperer toutes les données d'1 page htm sur 1 feuille de excel
j'ai crée 1 macro ,mais il ne s'affiche que la moitie de la page et ca ce bloque
si quelqu 1 peut m'aider
merci d'avance
@+
blacsap

 

[Dan]

Bonjour Blacsap,

j'ai tenté d'exécuter ta macro (excel 97) et je n'ai qu'une colonne avec les années.
Je n'arrive pas à ouvrir ta macro puisque tu as mis un mot de passe.- et ne peux pas encore de dire si je peux t'aider efficacement.

Maintenant juste une suggestion, je ne sais si tu la connais mais il existe une fonction en excel pour la récupération de données sur le web (Menu données-> données externes -> creer une requete sur le web).
Vérifie également dans l'aide d'excel en tapant "Web" tu trouves une explication sur ce sujet.

@+

Dan

 

[blacsap]

salut
voila le code qui plante ,en fait il m'affiche que la moitie de la page html sur 1 feuille excel et il bloque

Sub Htm(Chemin As String, WS As String, plage As String)
ThisWorkbook.PublishObjects.Add(xlSourceRange, Chemin, WS, plage, xlHtmlStatic, "", "").Publish (True)
End Sub
Sub telecartes()
Set fich = Workbooks.Open("http://perso.wanadoo.fr/mickael.lecointre/1987-88.html")
MsgBox fich.Sheets(1).Cells.Find("CAC 40", , , xlWhole).Offset(0, 1)
fich.Close (False) '(referme la page Web)
End Sub

merci d'avance si quelqu un peut m 'aider
@+
blacsap

\|||/
(\ /)
------------------------------oOO-(_)-OOo------------------