Déclancher un évènement au clic - WebBrowser

Bonjour,

Toujours en galère avec mes WebBrowser.

Cette fois je souhaiterais savoir s'il était possible de déclancher un évènement au clic sur mon WebBrowser.

J'ai aveuglément essayé :

Private Sub WebBrowser1_Click()

Mais comme je m'en doutais, cela ne fonctionne pas.

Est-il possible d'affecter un tel évènement à un WebBrowser ? Si oui, auriez-vous la syntaxe ?

D'avance merci.

Cordialement

bonsoir a tous

il ya "stagiaireenmousse" qui as posé la même question sur un autre forum

Pascal

Bonjour,

Un grand merci à Hervé du forum Excel downloads :

'activer la reference Microsoft Html Object Library
Dim WithEvents maPageHtml As HTMLDocument

Private Sub UserForm_Initialize()

Me.WebBrowser1.Navigate [i]Chemin_du_gif[/i]
Set maPageHtml = WebBrowser1.Document

Private Function maPageHtml_onClick() As Boolean
[i]Code qui s'active au clic sur le WebBrowser[/i]
End Function

@Grisan : allez-vous me pister comme ça à chaque post que je fais sur un forum ou sur l'autre?