Click sur un lien en VBS

**Arsene12** · 01/06/2019, 08h26

Bonjour,

sauriez-vous comment cliquer en vbs sur ce lien d'une page html intitulé page1, svp.

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>

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, 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/page1.html" then	
 
	msgbox "ok"
	' CODE POUR FAIRE UN CLIC
 
    end if  
 
  End If
Next
 
Set objApp = Nothing

**Arsene12** · 01/06/2019, 12h48

Voici la réponse :

' CODE POUR FAIRE UN CLIC

Code VBA :

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

Window.Document.getElementsByTagName("a")(0).Click

Click sur un lien en VBS

VBScript

Discussions similaires

Partager

Partager