Discussion :

[Debutant10]

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 html :

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

</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>&nbsp;</i></td>

Merci de votre aide

[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 :

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

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

Cordialement.

Karim

[SfJ5Rpw8]

bonjour,

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

surement en utilisant l'id "ext-gen932"

[Debutant10]

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 html :

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

</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>&nbsp;</i></td>

Code :

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

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/")

[Debutant10]

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 :

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
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