Bonjour
Je cherche à écrire un script pour enregistrer dans excel une page web.
J'ai écrit ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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