none
'HTMLDocumentClass' est introuvable RRS feed

  • Question

  • 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:

    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
    mardi 22 janvier 2008 05:23