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: 56
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
De toutes façons si on ne peut pas tester (URL non accessible, mot de passe, ...) va falloir que tu te débrouilles tout seul.
Le code que j'ai indiqué fonctionne pour la page de Fortuneo sur laquelle j'ai testé.
C'est tout ce que je peux faire.
 

Dudu2

XLDnaute Barbatruc
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
    IE.document.getElementById("valider_login").Focus
    CreateObject("wscript.shell").SendKeys "{ENTER}"
    DoEvents
#End If

End Sub
 

Deadpool_CC

XLDnaute Accro
l'id pour celui qu'à le 'btndefault' n'est pas id_btn_search mais id_btn_search-inner
As-tu essayer avec cet ID ?

1656418724892.png
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof