'HTMLDocumentClass' est introuvable

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:

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

il faut que tu ajoutes

Code:

Imports MSHTML

en debut de source

et
Code:

1 2 Microsoft HTML object library
dans les références de ton projet

bon courage

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