Option Explicit
'activer la reference Microsoft Html Object Library
Dim WithEvents maPageHtml As HTMLDocument
Private Sub userForm_Initialize()
'Me.WebBrowser1.Navigate "C:\Users\...\Documents\...\batterie samsung galaxy s3.jpg"
Me.WebBrowser1.Navigate "C:\Users\...\Documents\...\"
'Set maPageHtml = WebBrowser1.Document
End Sub
Private Function maPageHtml_onClick() As Boolean
MsgBox "clic"
End Function