Click sur un lien

**Arsene12** · 30/05/2019, 06h13

Bonjour,

Voici une page html, maPage.html, qui contient une deuxième page html, page1.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
<!DOCTYPE html>
<html>
<head>
<title> partage avec hiérarchie imbriquée</title>
</head>
<frameset cols="20%,80%">
<frame src="page1.html" name="zone2">
<frameset rows="20%,80%">
<frame src="page2.html" name="zone1">
<frame src="page3.html" name="zone3">
</frameset>
</frameset>
</html>

Code HTML :

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

1
2
3
4
5
6
7
8
<!DOCTYPE html>
<html>
<head>
<ul id="menu-vertical">
	<li><a href="https://www.google.fr">GOOGLE</a>
    </li>
</ul>
</html>

Je voudrais faire un clic sur le lien situé sur page1.html.

Sauriez-vous me dire ce que je dois taper en vbs pour accomplir cette action, svp?

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
Option Explicit
Dim objApp, Window, monURL, count
 
Set objApp = CreateObject("Shell.Application")
 
count = -1
For Each Window In objApp.Windows
  If Window = "Internet Explorer" Then
    count = count+1
    monURL = objApp.Windows(count).locationUrl  
	msgbox monURL
    if monURL = "file:///C:/Users/username/Desktop/maPage.html" then
	   'window.top.frames(1).Document.getElementsById("menu-vertical")(0).Click  
	   'window.frames().Document.getElementsByTagName("a").item(0).innerHTML
 
	   'CODE POUR FAIRE LE CLIC"	   
 
    end if    
  End If
 
Next

Merci d'avance de votre aide.
Arsene

**Arsene12** · 07/06/2019, 04h24

Voici la réponse :

Je dois auparavant rajouter une id dans le code HTML de maPage.html:

Code HTML :

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

<frame src="page1.html" name="zone2" id="zone2">

Code VBA :

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

Window.document.getElementById("zone2").contentWindow.document.getElementById("menu-vertical").getElementsByTagName("a")(0).click

Si je fais :

Code VBA :

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

Window.document.getElementByName("zone2").contentWindow.document.getElementById("menu-vertical").getElementsByTagName("a")(0).click

ça marche pas.

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
Option Explicit
Dim objApp, Window, monURL, count
 
Set objApp = CreateObject("Shell.Application")
 
count = -1
For Each Window In objApp.Windows
  If Window = "Internet Explorer" Then
    count = count+1
    monURL = objApp.Windows(count).locationUrl  
	msgbox monURL
    if monURL = "file:///C:/Users/username/Desktop/maPage.html" then
 
       Window.document.getElementById("zone2").contentWindow.document.getElementById("menu-vertical").getElementsByTagName("a")(0).click
 
    end if    
  End If
 
Next

Click sur un lien

VBScript

Discussions similaires

Partager

Partager