Exécuter un clique sur page HTML depuis VBA excel

Version imprimable

01/09/2012, 13h14
Debutant10

Exécuter un clique sur page HTML depuis VBA excel

Bonjour à travers plusieurs exemple visité dans les forums

Comment puis-je exécuter un clique sur un bouton depuis VBA excel, voici les données HTML
de ma page :

Code:

</i></td><td class="x-btn-center"><em unselectable="on"><button class="x-btn-text" type="submit" id="ext-gen932">Chercher </button></em></td><td class="x-btn-right"><i> </i></td>

Merci de votre aide
01/09/2012, 14h35
XLRATOR
Bonsoir,
Tout dépend s'il s'agit là d'une page web (c-à-d: page publique déployée sur internet)
Vous pouvez attribuer l'adresse HTML du bouton Web en quéstion à votre Bouton Excel.
Pour ce faire, faites un clique droit sur le bouton HTML, copier le lien du bouton et à l'aide de l'instruction suivante le tour serait joué:
Code:

1 2 3 'Remplacez le text entre guillemets par le lien de votre bouton WEB. ActiveWorkbook.FollowHyperlink "LienHypertexteDuBoutonDeLaPageWeb"
Cordialement.

Karim
01/09/2012, 14h36
SfJ5Rpw8

bonjour,

un peu de lecture : l’interaction entre Excel VBA et Internet Explorer.

surement en utilisant l'id "ext-gen932"

Surement en utilisant l'id "ext-gen932" mais comment faire le lien
avec le code HTML ci-dessous je ne sais pas faire le déclenchement du bouton en gros appuyer et commander avec VBA

Code:

</i></td><td class="x-btn-center"><em unselectable="on"><button class="x-btn-text" type="submit" id="ext-gen932">Chercher </button></em></td><td class="x-btn-right"><i> </i></td>
Code:

1 2 3 4 5 6 7 8 9 Sub connexion() Dim IE As InternetExplorer Dim IEdoc As Object Dim DOCelement As Object Set IE = New InternetExplorer IE.Visible = True IE.navigate ("http://www.lesite.com/")

Après plusieurs recherche, comment faire pour l'adapter à mon cas

avec le code HTML ci-dessous je ne sais pas faire le déclenchement du bouton en gros appuyer et commander avec VBA

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
im IE As SHDocVw.InternetExplorer      ' Internet Explorer
Dim oHDoc As MSHTML.HTMLDocument        ' Document html
 
Dim oLink As MSHTML.HTMLAnchorElement   ' Lien html (<a></a>)
Dim bTrouve As Boolean
 
 
 
' Rercher lien "Export" dont la cible est
' comme "*index.php?PHPSESSID=*REQUETE_ID=12125"
bTrouve = False
For Each oLink In oHDoc.getElementsByTagName("a")
    If oLink.href Like "*index.php?PHPSESSID=*REQUETE_ID=12125" Then
       bTrouve = True
       Exit For
    End If
Next
 
If bTrouve = False
   MsgBox "Le lien 'Export' n'a pas été trouvé"
   Exit Sub
End If
 
' On clique sur le lien
oLink.Click
' On attend que la nouvelle pas soit chargée
Do
  DoEvents
Loop Until IE.Busy = False And IE.readyState = READYSTATE_COMPLETE
' Référencer l'objet Document de la nouvelle page
Set oHDoc = IE.Document
 
end Sub