[CODE]Sub test()
Dim objIE As Object
url = "https://www.google.fr/?gws_rd=ssl"
Set objIE = getobject_IE_BY_URL(url)
If Not objIE Is Nothing Then
MsgBox objIE.document.body.innertext
'ici exploitation de objIE.document......
Else
MsgBox "cette page web n'est pas ouverte"
End If
End Sub
Function getobject_IE_BY_URL(url) As Object
Dim Wind As Object
...