Bonjour,
J'essaye d'éxtraire des données d'un site web. Ce que j'arrive a faire jusqu'a présent c'est d'attribuer le code HTML ci-dessous a ma variable ELEMENTS en utilisant getElementById. Ensuite j'essaye de traverser le contenu de la variable ELEMENT afin d'en extraire des infos qui se trouvent dans certaines balises, mais c'est la que sa bloque, avec le message d'erreur 438: Proprieté ou méthode non gerée par cet objet.
Voici mon code:
Voici le code HTML auquel je souhaite extraires les infos
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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46 Public Sub Editus(PNom As String, PAdresse As String) Dim ie As InternetExplorer Dim html As HTMLDocument Dim PAGE, Rue, SQL As String Dim ELEMENT As HTMLGenericElement Dim ELEMENTS As DispHTMLElementCollection Dim rsDONATEURS As DAO.Recordset Dim dbDONATEURS As DAO.Database SQL = "SELECT * FROM tblDonateurs WHERE Nom = " & "'" & PNom & "'" & ";" Set dbDONATEURS = CurrentDb Set rsDONATEURS = dbDONATEURS.OpenRecordset(SQL, dbOpenDynaset) rsDONATEURS.MoveFirst PAGE = "http://www.editus.lu/fr/recherche?q=" & PNom & "+" & PAdresse Set ie = New InternetExplorer ie.Visible = True ie.navigate PAGE Do While ie.READYSTATE <> READYSTATE_COMPLETE DoEvents Loop Set html = ie.Document 'MsgBox html.documentElement.innerHTML Set ELEMENTS = html.getElementById("list-results-ct") For Each ELEMENT In ELEMENTS If ELEMENT.className = "r-adress" Then MsgBox "Adresses Trouvée" Rue = Left(ELEMENT.innerText, InStr(Rue, "L-") - 2) rsDONATEURS.Edit rsDONATEURS.Fields("Rue") = Rue rsDONATEURS.Update rsDONATEURS.Requery End If Next ELEMENT ie.Quit Set ie = Nothing
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
17
18
19
20
21
22
23
24
25
26
27
28
29
30 <div id="list-results-ct"> <ul> <li class="r-base "> <span class="r-position">1</span> <div class="r-logo"> </div> <h2 class="r-name-client"> <a href="http://www.editus.lu/fr/NOM PRENOM ADRESSE" class="save-client-stat" data-id-cli="1468181" data-num-page="1" data-position="1" data-user-input="NOM PRENOM ADRESSE" data-id-produit-service="" data-id-rubrique-electronique="" data-indicator="0" data-situation-indicator="3" data-type-stat="C" data-page-code="PRS"> NOM PRENOM </a> </h2> <div class="r-info-client"> <p class="r-adress">ADRESSE DE LA PERSONNE</p> <div class="r-contact"> <span class="r-phone">NUMERO DE TEL DE LA PERSONNE</span> </div> </div> <div class="clear"></div> </li> </ul> </div>
Partager