Microsoft 365 appui bouton sur page web par VBA

[yann-86]

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é

 

[Dudu2]

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.

 

[Deadpool_CC]

Par contre si c'est du SAP ... pourquoi pas faire une connexion classique à la BDD et les lire simplement ?
ton service informatique peux pas te renseigner la dessus ?

 

[yann-86]

quelles données je peux vous fournir afin de m'aider svp?

 

[soan]

@Deadpool

il s'agit d'un site interne avec mot de pass

Il l'avait dit

je vous donne l'adresse URL mais comme il s'agit d'un site interne avec mot de pass je doute que vous puissiez vous connecter.​

ah oui, tu as raison !

soan

 

[Deadpool_CC]

Au pire enregistre ta page au format HMTL et post là ... le contenu devrait être assez proche du vrai pour tester le click bouton.

 

[Dudu2]

Alternativement au .Click qui peut ne pas fonctionner, tu peux essayer de faire un .Focus suivi d'un envoi de la touche {ENTER}

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]

Alternativement au .Click qui peut ne pas fonctionner, tu peux essayer de faire un .Focus suivi d'un envoi de la touche {ENTER}

surtout que d'après sa toute premiere captue de code, le bouton semble etre l'action par défaut.

 

[yann-86]

ok j'essaye ca

merci

 

[Dudu2]

Après faudrait savoir quel type d'erreur tu as ?
Une erreur VBA ?
Aucun effet du .Click ?

 

[yann-86]

ca marche
tu es mon sauveur.

je continue pour voir les autres boutons a suivre

merci merci merci .....

 

[Deadpool_CC]

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

 

[yann-86]

c'est le .focus et ensuite le sendkeys {ENTER} qui permette l'appui bouton

 

[Hasco]

Bonjour,

Si je me souviens bien, la méthode .Submit du formulaire devrait suffire.

cordialement