Piloter IE depuis macro VBA Excel

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:

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>

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