re:

petite correction :


Private Sub CommandButton1_Click()

Static objIE As Object

If (CommandButton1.Caption = "Ouvrir") Then
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "http://www.oricom.ca"
objIE.Visible = True
CommandButton1.Caption = "Fermer"
Else
CommandButton1.Caption = "Ouvrir"
objIE.Quit
Set objIE = Nothing
End If

End Sub


Lupin