Bonjour,
Je rencontre un souci avec ma macro vba. Je n'arrive pas à agir sur un bouton d'un site internet avec ma macro excel vba. J'ai le message d'erreur : variable objet ou variable de bloc with non définie. La macro vba s'arrête sur le code : Achat = IEDoc.all("Acheter").
Voici mon code vba :
Voici les caractéristiques du site :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Option Explicit Sub WaitIE(IE As InternetExplorer) Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop End Sub Sub Test() Dim IE As New InternetExplorer Dim IEDoc As HTMLDocument IE.Visible = True WaitIE IE Set IEDoc = IE.document Dim Achat As HTMLInputElement Achat = IEDoc.all("Acheter") Achat.Click WaitIE IE Set IE = Nothing Set IEDoc = Nothing End Sub
Il y a 2 boutons : Acheter ou Vendre. Quand on clique sur Acheter, Vendre se grise et vice versa (c'est la logique d'un bouton radio sauf que ce sont des types button).
Mais quand j'exécute la macro, problème de propriété. Voici le code html :
Code html : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 <div class="row-fluid"> <div class="btn-group btn-switch"> <button class="btn btn-large span6 tailleTreize btn-primary gras " id="Vendre" type="button" data-bind="css:{'btn-primary' : aiguilleur.isVendre(), 'gras' : aiguilleur. isVendre ()}, click: aiguilleur.origineVendre.bind($data,window.spi.enums.Booleen.TRUE)">...</button> <button class="btn btn-large span6 tailleTreize" id="Acheter" type="button" data-bind="css:{'btn-primary' : aiguilleur.isAcheter(), 'gras' : aiguilleur. isAcheter()}, click: aiguilleur.origineAcheter.bind($data,window.spi.enums.Booleen.TRUE)">...</button> </div>
Merci d'avance pour votre aide
Partager