Bonjour
Je cherche à écrire un script pour enregistrer dans excel une page web.
J'ai écrit ce code
Je lance donc une macro excel qui se charge de charger la page web dans excel. Mais cela plante.
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
Existe-il une autre façon de procéder ?
Merci de votre aide
Boboss
Partager