Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Angelosanto
"steph b" a écrit dans le message de 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" <stephol@prodiag.fr> a écrit dans le message de
news:4dc25d9e$0$30772$ba4acef3@reader.news.orange.fr...
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
"steph b" a écrit dans le message de 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
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" a écrit dans le message de news: 4dc6d5ce$0$25363$
"steph b" a écrit dans le message de 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
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" <angelosa@free.fr> a écrit dans le message de news:
4dc6d5ce$0$25363$426a74cc@news.free.fr...
"steph b" <stephol@prodiag.fr> a écrit dans le message de
news:4dc25d9e$0$30772$ba4acef3@reader.news.orange.fr...
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
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" a écrit dans le message de news: 4dc6d5ce$0$25363$
"steph b" a écrit dans le message de 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
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" a écrit dans le message de 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
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" <stephol@prodiag.fr> a écrit dans le message de news:
4dc25d9e$0$30772$ba4acef3@reader.news.orange.fr...
bonjour
voici le code source d une page web
<div id="map" style="cursor: move"></div>
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" a écrit dans le message de news: 4dc25d9e$0$30772$
bonjour voici le code source d une page web <div id="map" style="cursor: move"></div>