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:
Merci pour votre aide et bonne soirée
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
Partager