script pour enregistrer une page web dans excel

Bonjour
Je cherche à écrire un script pour enregistrer dans excel une page web.
J'ai écrit ce code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub main()   dim xlApp dim wk set xlApp = createObject("Excel.Application") xlApp.visible = 0 set wk = xlApp.workbooks.open("C:\Program files\Homeseer HS2\Scripts\loto\lotofdj.xlsm") 'xlApp.run "effacelaFeuilleRecup" xlApp.run "lotofdj.xlsm!Module1.loto" xlApp.run "lotofdj.xlsm!Module1.fermeture" End sub

---

Je lance donc une macro excel qui se charge de charger la page web dans excel. Mais cela plante.
Existe-il une autre façon de procéder ?

Merci de votre aide
Boboss