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 :
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
Voici les caractéristiques du site :
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