Voir le flux RSS

patricktoulon

fonction getobject pour internet explorer (les page non ouvertes par vba

Note : 4 votes pour une moyenne de 1,00.
par , 16/09/2018 à 15h50 (111 Affichages)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
    With CreateObject("Shell.Application")
        For Each Wind In .Windows
            'Debug.Print TypeName(Wind.document)
            If TypeName(Wind.document) = "HTMLDocument" And Wind.LocationURL = url Then Set getobject_IE_BY_URL = Wind
        Next
    End With
End Function

Envoyer le billet « fonction getobject pour internet explorer (les page non ouvertes par vba » dans le blog Viadeo Envoyer le billet « fonction getobject pour internet explorer (les page non ouvertes par vba » dans le blog Twitter Envoyer le billet « fonction getobject pour internet explorer (les page non ouvertes par vba » dans le blog Google Envoyer le billet « fonction getobject pour internet explorer (les page non ouvertes par vba » dans le blog Facebook Envoyer le billet « fonction getobject pour internet explorer (les page non ouvertes par vba » dans le blog Digg Envoyer le billet « fonction getobject pour internet explorer (les page non ouvertes par vba » dans le blog Delicious Envoyer le billet « fonction getobject pour internet explorer (les page non ouvertes par vba » dans le blog MySpace Envoyer le billet « fonction getobject pour internet explorer (les page non ouvertes par vba » dans le blog Yahoo

Mis à jour 16/09/2018 à 19h09 par dourouc05

Catégories
Sans catégorie

Commentaires