Cliquer sur un Bouton HTML

**Arsene12** · 11/05/2019, 07h53

Bonjour, j'aimerais cliquer sur le bouton situé sur la page html décrite ci-dessous. En VBScript, j'ai essayé plusieurs méthodes qui n'ont pas marchée, du genre :

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

Window.Document.getElementsByClassName("myButtonOn")(0).getElementsByClassName("myClass")(0).click

Savez-vous la formule à utiliser pour cliquer sur ce bouton, svp?

Code HTML :

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
<div class="MaClassButton">
	<ul>
		<li>
		...............
		</li>
		<li>
			<!-- XXXXX Détail li-->
			<div class="myButtonOn" id="Button002" 
			       onmouseover="myClass=this.className;this.className='myButtonOn';"
			       onmouseout="this.className=myClass;" onclick="goToY(myY, this);">				
			       <img width="4" height="4" alt="2" src="https://xxxxx/picturesx.gif" border="2">
			       My Bouton Untel
			</div>
		</li>
		<li>
		...............
		</li>
	</ul>
</div>

**ericlm128** · 11/05/2019, 08h49

https://www.w3schools.com/jsref/met_html_click.asp

**Arsene12** · 11/05/2019, 10h20

Envoyé par ericlm128

https://www.w3schools.com/jsref/met_html_click.asp

C'est ce qui m'était apparu comme le plus évident :

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

Window.Document.getElementById("Button002").click

mais ça ne fonctionne pas. Y'a pourtant qu'un ID="Button002" dans la page. Je crois qu'il doit falloir cibler les <ul> ou les <li>.

**Arsene12** · 15/05/2019, 07h06

Voici le code de la page HTML :

Code HTML :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
<!DOCTYPE html>
<html>
<body>
<h2>JavaScript Alert</h2>
<button class="myButtonOn" id="Button002" onclick="goToY(id, this)">Try it</button>
 
<script>
function goToY(pro, idBouton) {
  alert(pro);
}
</script>
 
</body>
</html>

Quand je fais ce test, ça marche :

Code VBA :

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
22
Option Explicit
Dim objApp, nIE, oIE, Window, argument
Dim n, counter, monURL
Set objApp = CreateObject("Shell.Application")
Set oIE = Nothing
counter = 0
 
For Each Window In objApp.Windows
 
  If Window = "Internet Explorer" Then
    counter = counter+1    
    Set oIE = Window  
    monURL = objApp.Windows(counter).locationUrl  
    if monURL = "file:///C:/Users/myUsername/Desktop/maPage.html" then 
         msgbox "ok"		 
	 msgbox oIE.Document.getElementById("Button002").innerText
         oIE.Document.getElementById("Button002").click
    end if
 
  End If
 
Next

**Arsene12** · 16/05/2019, 17h47

Je me suis trompé de section. Le problème que je rencontre vient du fait que je suis sur une web application et que l'adresse de la page contient des re-routage, du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

https://xxxxxxxxxxxxxxxx=https://xxxxxxxxxxxxReroutage.xxxxxproxy=https://xxxxxxxxxxxxxxxxxxxxxxxxx=https://xxxxxxxxxxxxxxxxxx.au

Y'a pas de www. après les https://
Il me faudrait voir avec des experts du html car faire un clic sur un bouton en powershell, c'est tout simple.

Cliquer sur un Bouton HTML

VBScript

Vue hybride

Discussions similaires

Partager

Partager