Discussion :

[hikrab]

Salut,

Je travaille sur une application pour mon projet qui consiste a ouvrir un document html et de filtrer tous les URL.
En lançant l'application j'ai ce message "Le membre public 'Document' du type 'HTMLDocumentClass' est introuvable."

Code:

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
Dim documentMSHTML As New mshtml.HTMLDocument
        Dim Document2 As mshtml.IHTMLDocument2
        Dim ips As IPersistStreamInit
 
        ips = DirectCast(documentMSHTML, IPersistStreamInit)
        ips.InitNew()
        Document2 = documentMSHTML.createDocumentFromUrl("www.menara.ma", vbNullString)
        Do Until Document2.readyState = "complete"
            Application.DoEvents()
        Loop
Dim elements As HTMLElementCollection = _
                   Document2.Document.GetElementsByTagName("A")
        For Each element As HtmlElement In elements
            ListBox1.Items.Add(element.GetAttribute("href"))
            Application.DoEvents()
        Next

Merci pour votre aide et bonne soirée

[lacsap49]

il faut que tu ajoutes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Imports MSHTML

en debut de source

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Microsoft HTML object library

dans les références de ton projet

bon courage

[hikrab]

Salut lacsap,
J'ai deja fait cela, mais toujours rien.