Discussion :

[TheDan85]

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:

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

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

[Jean-Philippe André]

Salut,

un peu de lecture
http://qwazerty.developpez.com/tutor...-et-vba-excel/

avec en particulier un exemple de ton erreur 438 et son explication
http://qwazerty.developpez.com/tutor...-excel/#LV-A-1