simuler click page web vba

Le
steph b
bonjour
voici le code source d une page web
<div id="map" style="cursor: move"></div>

je voudrais simuler un click sur ce lien en vba

est ce possible?

merci d avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Michel Angelosanto
Le #23345011
"steph b" news:4dc25d9e$0$30772$
bonjour
voici le code source d une page web
<div id="map" style="cursor: move"></div>

je voudrais simuler un click sur ce lien en vba

est ce possible?

merci d avance




Il y a deux moyens, avec cet exemple tu devrais t'en sortir.

Option Explicit
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics"
(ByVal nIndex As Long) As Long
Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As
Long) As Long
Declare Sub mouse_event Lib "user32" _
(ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons
As Long, _
ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Dim x As String
Dim dct, num As Integer
Sub MonWeb()
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Navigate ("http://angelosa.free.fr/")
IE.Visible = True: IE.Top = 0: IE.Left = 0
IE.Width = GetSystemMetrics32(0) 'ou bien IE.Height = GetSystemMetrics32(1)
'While x <> "Terminé"
'x = IE.StatusText
'Wend
Do While IE.ReadyState <> 4
Loop
'essai
'recherche d'une image avec lien et click
Set dct = IE.Document
For num = 0 To dct.getElementsByTagName("img").Length - 1
Cells(2, 1) = dct.getElementsByTagName("img").Item(num).Title
If dct.getElementsByTagName("img").Item(num).Title = "Modifier" Then
dct.getElementsByTagName("img").Item(num).Click
Exit For
End If
Next
Set dct = Nothing


'recherche d'un lien et click
Set dct = IE.Document
For num = 0 To dct.getElementsByTagName("a").Length - 1
Cells(2, 1) = dct.getElementsByTagName("a").Item(num).innertext
If dct.getElementsByTagName("a").Item(num).innertext = "Chercher" Then
dct.getElementsByTagName("a").Item(num).Click
Exit For
End If
Next
Set dct = Nothing

'envoi de commandes à IE
SetCursorPos 487, 222
Application.Wait (Now + TimeValue("0:00:01"))
clic 468, 539
While x <> "Terminé"
x = IE.StatusText
Wend
clic 414, 464
While x <> "Terminé"
x = IE.StatusText
Wend
'SendKeys ("zaza") 'user
SendKeys "{TAB}"
'SendKeys ("zzzzz~") 'passeword
'x = ""
'While x <> "Terminé"
'x = IE.StatusText
'Wend
Set IE = Nothing
End Sub
Sub clic(x As Integer, y As Integer)
' On place le curseur
SetCursorPos x, y
' On simule le clic
mouse_event MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, x, y, 0, 0
End Sub

Michel Angelosanto, Bordeaux, France
steph b
Le #23346641
désolé mais je m 'en sors pas là
je peux te donner l adresse d un lien si tu veux.

http://paris-a-la-carte-version-pl.paris.fr/carto/mapping#
simuler le click sur carte

"Michel Angelosanto" 4dc6d5ce$0$25363$

"steph b" news:4dc25d9e$0$30772$
bonjour
voici le code source d une page web
<div id="map" style="cursor: move"></div>

je voudrais simuler un click sur ce lien en vba

est ce possible?

merci d avance




Il y a deux moyens, avec cet exemple tu devrais t'en sortir.

Option Explicit
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics"
(ByVal nIndex As Long) As Long
Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As
Long) As Long
Declare Sub mouse_event Lib "user32" _
(ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal
cButtons As Long, _
ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Dim x As String
Dim dct, num As Integer
Sub MonWeb()
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Navigate ("http://angelosa.free.fr/")
IE.Visible = True: IE.Top = 0: IE.Left = 0
IE.Width = GetSystemMetrics32(0) 'ou bien IE.Height =
GetSystemMetrics32(1)
'While x <> "Terminé"
'x = IE.StatusText
'Wend
Do While IE.ReadyState <> 4
Loop
'essai
'recherche d'une image avec lien et click
Set dct = IE.Document
For num = 0 To dct.getElementsByTagName("img").Length - 1
Cells(2, 1) = dct.getElementsByTagName("img").Item(num).Title
If dct.getElementsByTagName("img").Item(num).Title = "Modifier" Then
dct.getElementsByTagName("img").Item(num).Click
Exit For
End If
Next
Set dct = Nothing


'recherche d'un lien et click
Set dct = IE.Document
For num = 0 To dct.getElementsByTagName("a").Length - 1
Cells(2, 1) = dct.getElementsByTagName("a").Item(num).innertext
If dct.getElementsByTagName("a").Item(num).innertext = "Chercher" Then
dct.getElementsByTagName("a").Item(num).Click
Exit For
End If
Next
Set dct = Nothing

'envoi de commandes à IE
SetCursorPos 487, 222
Application.Wait (Now + TimeValue("0:00:01"))
clic 468, 539
While x <> "Terminé"
x = IE.StatusText
Wend
clic 414, 464
While x <> "Terminé"
x = IE.StatusText
Wend
'SendKeys ("zaza") 'user
SendKeys "{TAB}"
'SendKeys ("zzzzz~") 'passeword
'x = ""
'While x <> "Terminé"
'x = IE.StatusText
'Wend
Set IE = Nothing
End Sub
Sub clic(x As Integer, y As Integer)
' On place le curseur
SetCursorPos x, y
' On simule le clic
mouse_event MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, x, y, 0, 0
End Sub

Michel Angelosanto, Bordeaux, France
steph b
Le #23348281
ca marche
mais mon soucis maintenant c est que le clik engendre l ouverture d un autre
page web explorer
et je voudrais pouvoir fermer la premiere et travailler sur la deuxieme.

est ce possible?

merci d avance



"steph b" 4dc25d9e$0$30772$
bonjour
voici le code source d une page web
<div id="map" style="cursor: move"></div>

je voudrais simuler un click sur ce lien en vba

est ce possible?

merci d avance


Publicité
Poster une réponse
Anonyme