Microsoft 365 appui bouton sur page web par VBA

yann-86

XLDnaute Nouveau
bonjour,

j'ai lu et essayé tous les articles concernant ma question mais aucune des solutions proposées ne fonctionnent.

je souhaite appuyé sur un bouton d'une page web avec un VBA.

le bouton se nomme show result, vous trouverez ci joint un screen shoot de la page et du code web du bouton

est ce que vous pouvez me sauvez svp?
il ne me reste plus que ce point et mon automatisation est terminé
 

Pièces jointes

  • 1656341535090.png
    1656341535090.png
    204.9 KB · Affichages: 63
Solution
Alternativement au .Click qui peut ne pas fonctionner, tu peux essayer de faire un .Focus suivi d'un envoi de la touche {ENTER}

Code:
Enum READYSTATE
    READYSTATE_UNINITIALIZED = 0
    READYSTATE_LOADING = 1
    READYSTATE_LOADED = 2
    READYSTATE_INTERACTIVE = 3
    READYSTATE_COMPLETE = 4
End Enum

Sub ClickOnWebPageButton()
    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.application")
    IE.Visible = True
    IE.navigate "https://mabanque.fortuneo.fr/fr/identification.jsp"
    While IE.READYSTATE <> READYSTATE_COMPLETE And IE.READYSTATE <> READYSTATE_LOADED
        DoEvents
    Wend
  
#Const BYCLICK = False

#If BYCLICK Then
    IE.document.getElementById("valider_login").Click
#Else...

Dudu2

XLDnaute Barbatruc
Bonjour,

Un exemple qui fonctionne...
Il faut examiner le source de la page et trouver l'Input Id du bouton.
Ici <input id="valider_login" type="button" name="valider_bv" title="Valider" value="Valider" tabindex="3" onclick="javascript:controleIdentification()" />
VB:
Enum READYSTATE
    READYSTATE_UNINITIALIZED = 0
    READYSTATE_LOADING = 1
    READYSTATE_LOADED = 2
    READYSTATE_INTERACTIVE = 3
    READYSTATE_COMPLETE = 4
End Enum

Sub ClickOnWebPageButton()
    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.application")
    IE.Visible = True
    IE.navigate "https://mabanque.fortuneo.fr/fr/identification.jsp"
    While IE.READYSTATE <> READYSTATE_COMPLETE And IE.READYSTATE <> READYSTATE_LOADED
        DoEvents
    Wend
    IE.document.getElementById("valider_login").Click
End Sub
 

yann-86

XLDnaute Nouveau
bonjour
tout d'avords merci pour ton retour
Dans la piece jointe de mon mail l'id bouton est
1656398571010.png


j'ai deja essaye de faire IE.document.getElementById("id_btn_search").click mais cela ne fonctionne pas.
 

Dudu2

XLDnaute Barbatruc
Bonjour @soan,
Merci pour cette précision.
Mais @yann-86 nous parle de ses difficultés à VBA-cliquer sur le bouton d'une page Web sans manifestement vouloir indiquer de quelle page il s'agit !
C'est encore l'histoire du type qui se présente au guichet SNCF et dit: "Je voudrais un billet de train" !
 

Discussions similaires

Statistiques des forums

Discussions
315 096
Messages
2 116 184
Membres
112 679
dernier inscrit
Yupanki