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