re:

suggestion :

pour un bouton donnée, utiliser la technique du flip/flop.

ex.:


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
End If

End Sub


Lupin