Discussion :

[Lionel_b]

Bonjour,

Je souhaite piloter IE depuis une macro VBA Excel.
J'arrive à lancer IE, me connecter sur le site mais ensuite je coince.

J'ai besoin de "simuler" un click sur un TD d'un tableau (id onglet_30 dans le code ci-dessous).

Quelqu'un sait faire ?

Merci

Code :

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

1
2
3
4
5
6
7
8
 
<table class=tabTitle width=780>
  <tr>
<td id=onglet_10  class=tabOn onClick="showOnglet('10');UpdateHTabID('10');" onselectstart="return false;" onmouseover="if(this.className == 'tabOFF') this.style.color='#ff6600'" onmouseout="if(this.className != 'tabON') this.style.color='#666666';">to do</td>
<td id=onglet_20  class=tabOff onClick="showOnglet('20');UpdateHTabID('20');" onselectstart="return false;" onmouseover="if(this.className == 'tabOFF') this.style.color='#ff6600'" onmouseout="if(this.className != 'tabON') this.style.color='#666666';">my requests</td>
<td id=onglet_30  class=tabOff onClick="showOnglet('30');UpdateHTabID('30');" onselectstart="return false;" onmouseover="if(this.className == 'tabOFF') this.style.color='#ff6600'" onmouseout="if(this.className != 'tabON') this.style.color='#666666';">my queries</td>
  </tr>
</table>

[drakkar_agfa]

Bonjour,

Je ne m'y connais pas réellement dans ce genre de code mais j'avais réussis à adapter un code pour effectuer une recherche sur google.

Voici le code :

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
Sub RechercheInternet()
'   référence Microsoft Internet Controls
 
    Dim ie As InternetExplorer
    Dim IEdoc As Object
    Dim DOCelement As Object
    Dim sRecherche As String
 
    sRecherche = InputBox("Quelle recherche?")
 
    Set ie = New InternetExplorer
    ie.Visible = True
    ie.Navigate ("<a href="http://www.google.ca" target="_blank">http://www.google.ca</a>")
 
     ' attente de fin de chargement
    Do Until ie.ReadyState = 4
        DoEvents
    Loop
 
    Set IEdoc = ie.Document
 
    Set DOCelement = IEdoc.getElementsByName("q").Item
    On Error GoTo fin '<-- en cas de mémorisation du login et du mdp
    DOCelement.Value = sRecherche
 
 
    Set DOCelement = IEdoc.getElementsByName("btnG").Item
    DOCelement.Click
 
 
fin:
End Sub

IEdoc.getElementsByName("q").Item est pour la boite texte et IEdoc.getElementsByName("btnG").Item est pour le bouton Recherche.

Bonne chance!