Récupérer des données d'un site WEB et les collées sur une feuille Excel

**clem4491** · 29/06/2014, 10h18

Bonjour le forum,

J'essaye de trouver une solution pour récupérer des données contenues sur le site de l'INSEE. Ces données sont sous forme de tableau et je cherche simplement à recopier ce tableau sur une feuille Excel. Il faut savoir que ce tableau est évolutif tout les trimestres. L'objectif c'est que grâce à un bouton contenue sur un Userform les données soient récupérées automatiquement. J'ai regardé pas mal de solutions ( et notamment ici ) déjà proposées sur le forum et j'ai essayé d'adapter les codes à mon problème. Mais pour le moment je n'arrive pas au résultat souhaité.

Voici le 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
47
48
49
50
51
52
53
Sub RécupIRL()
'Lancer la recherche par le bouton
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim htmlTagCol As IHTMLElementCollection
Dim htmlGeneric As HTMLGenericElement
Dim htmlTabResultat As HTMLGenericElement
Dim htmlLigneResultat As HTMLGenericElement
Dim NumLigne As Byte
Dim NumImg As Byte
Dim Ws_IRL As Worksheet
 
   'On ouvre la page Web
   IE.navigate "http://www.insee.fr/fr/themes/conjoncture/indice_loyer.asp"
   IE.Visible = True
   WaitIE IE
   Set IEDoc = IE.document
 
   'On pointe la feuille IRL, si besoin & _
   Il faudra bien sûr ajouter une feuille nommée IRL
   Set Ws_IRL = ThisWorkbook.Sheets("IRL")
 
   'On pointe sur la table contenant les données
   'Et on se décale sur le premier élément qu'il contient (le body)
   Set htmlTabResultat = IEDoc.body.all("base").Children(0)
 
   'On crée la ligne d'entête du tableau Excel
   'n° Match    Equipe n°1  Equipe n°2  Résulat
   Ws_IRL.Range("A1") = "Date"
   Ws_IRL.Range("B1") = "Indice  de référence"
   Ws_IRL.Range("C1") = "Variation annuelle"
 
   'On commencera à renseigner le tableau à la ligne 2
   NumLigne = 2
 
   'On parcourt chaque ligne de la table Html
   For Each htmlLigneResultat In htmlTabResultat.Children
 
    'On récupère le contenu de chaque partie
      'Et on renseigne le tableau IRL
      'Date
      Ws_IRL.Cells(NumLigne, 1) = htmlLigneResultat.Children(0).innerText
      'Indice de référence
      Ws_IRL.Cells(NumLigne, 2) = htmlLigneResultat.Children(1).innerText
      'Variation annuelle
      Ws_IRL.Cells(NumLigne, 3) = htmlLigneResultat.Children(3).innerText
      'Résultat
 
      'On passe à la ligne suivante du tableau
      NumLigne = NumLigne + 1
   Next
 
End Sub

et voici l'extrait des éléments de la page internet:

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
<table id="base" summary="Valeur de l'indice de référence des loyers">
		<caption>Tableau des valeurs de l'indice de référence des loyers base 100 au 4<sup>e</sup> trimestre 1998</caption>
		<thead>
 
			<tr>
				<th scope="col">Période</th>
				<th scope="col">Date de parution au Journal Officiel<br><span></span></th>
				<th scope="col">Indice de référence des loyers</th>
				<th scope="col">Variation annuelle en %</th>
			</tr>
		</thead>
		<tbody>
			<tr>
			</tr>
			<tr>
				<td>1er trimestre 2014</td>
				<td class="tab-chiffre">18/04/2014</td>
				<td class="tab-chiffre">125,00</td>
				<td class="tab-chiffre">0,60%</td>
			</tr>
			<tr>
				<td>4e trimestre 2013</td>
				<td class="tab-chiffre">17/01/2014</td>
				<td class="tab-chiffre">124,83</td>
				<td class="tab-chiffre">0,69%</td>
			</tr>
			<tr>
				<td>3e trimestre 2013</td>
				<td class="tab-chiffre">23/10/2013</td>
				<td class="tab-chiffre">124,66</td>
				<td class="tab-chiffre">0,90%</td>
			</tr>
			<tr>
				<td>2e trimestre 2013</td>
				<td class="tab-chiffre">16/07/2013</td>
				<td class="tab-chiffre">124,44</td>
				<td class="tab-chiffre">1,20%</td>
			</tr>
			<tr>
				<td>1er trimestre 2013</td>
				<td class="tab-chiffre">16/04/2013</td>
				<td class="tab-chiffre">124,25</td>
				<td class="tab-chiffre">1,54%</td>
			</tr>
			<tr>
				<td>4e trimestre 2012</td>
				<td class="tab-chiffre">12/01/2013</td>
				<td class="tab-chiffre">123,97</td>
				<td class="tab-chiffre">1,88%</td>
			</tr>
			<tr>
				<td>3e trimestre 2012</td>
				<td class="tab-chiffre">13/10/2012</td>
				<td class="tab-chiffre">123,55</td>
				<td class="tab-chiffre">2,15%</td>
			</tr>
			<tr>
				<td>2e trimestre 2012</td>
				<td class="tab-chiffre">17/07/2012</td>
				<td class="tab-chiffre">122,96</td>
				<td class="tab-chiffre">2,20%</td>
			</tr>
			<tr>
				<td>1er trimestre 2012</td>
				<td class="tab-chiffre">18/04/2012</td>
				<td class="tab-chiffre">122,37</td>
				<td class="tab-chiffre">2,24%</td>
			</tr>
			<tr>
				<td>4e trimestre 2011</td>
				<td class="tab-chiffre">15/01/2012</td>
				<td class="tab-chiffre">121,68</td>
				<td class="tab-chiffre">2,11%</td>
			</tr>
			<tr>
				<td>3e trimestre 2011</td>
				<td class="tab-chiffre">15/10/2011</td>
				<td class="tab-chiffre">120,95</td>
				<td class="tab-chiffre">1,90%</td>
			</tr>
			<tr>
				<td>2ème trimestre 2011</td>
				<td class="tab-chiffre">22/07/2011</td>
				<td class="tab-chiffre">120,31</td>
				<td class="tab-chiffre">1,73%</td>
			</tr>
			<tr>
				<td>1er trimestre 2011</td>
				<td class="tab-chiffre">16/04/2011</td>
				<td class="tab-chiffre">119,69</td>
				<td class="tab-chiffre">1,60%</td>
			</tr>
			<tr>
				<td>4e trimestre 2010</td>
				<td class="tab-chiffre">16/01/2011</td>
				<td class="tab-chiffre">119,17</td>
				<td class="tab-chiffre">1,45%</td>
			</tr>
			<tr>
				<td>3e trimestre 2010</td>
				<td class="tab-chiffre">16/10/2010</td>
				<td class="tab-chiffre">118,70</td>
				<td class="tab-chiffre">1,10%</td>
			</tr>
			<tr>
				<td>2e trimestre 2010</td>
				<td class="tab-chiffre">22/07/2010</td>
				<td class="tab-chiffre">118,26</td>
				<td class="tab-chiffre">0,57%</td>
			</tr>
			<tr>
				<td>1er trimestre 2010</td>
				<td class="tab-chiffre">16/04/2010</td>
				<td class="tab-chiffre">117,81</td>
				<td class="tab-chiffre">0,09%</td>
			</tr>
			<tr>
				<td>4e trimestre 2009</td>
				<td class="tab-chiffre">17/01/2010</td>
				<td class="tab-chiffre">117,47</td>
				<td class="tab-chiffre">-0,06%</td>
			</tr>
			<tr>
				<td>3e trimestre 2009</td>
				<td class="tab-chiffre">16/10/2009</td>
				<td class="tab-chiffre">117,41</td>
				<td class="tab-chiffre">0,32%</td>
			</tr>
			<tr>
				<td>2e trimestre 2009</td>
				<td class="tab-chiffre">25/07/2009</td>
				<td class="tab-chiffre">117,59</td>
				<td class="tab-chiffre">1,31%</td>
			</tr>
			<tr>
				<td>1er trimestre 2009</td>
				<td class="tab-chiffre">17/04/2009</td>
				<td class="tab-chiffre">117,70</td>
				<td class="tab-chiffre">2,24%</td>
			</tr>
			<tr>
				<td>4e trimestre 2008</td>
				<td class="tab-chiffre">17/01/2009</td>
				<td class="tab-chiffre">117,54</td>
				<td class="tab-chiffre">2,83%</td>
			</tr>
			<tr>
				<td>3e trimestre 2008</td>
				<td class="tab-chiffre">21/11/2008</td>
				<td class="tab-chiffre">117,03</td>
				<td class="tab-chiffre">2,95%</td>
			</tr>
			<tr>
				<td>2e trimestre 2008</td>
				<td class="tab-chiffre">17/07/2008</td>
				<td class="tab-chiffre">116,07</td>
				<td class="tab-chiffre">2,38%</td>
			</tr>
			<tr>
				<td>1er trimestre 2008</td>
				<td class="tab-chiffre">19/04/2008</td>
				<td class="tab-chiffre">115,12</td>
				<td class="tab-chiffre">1,81%</td>
			</tr>
			<tr>
				<td>4e trimestre 2007</td>
				<td class="tab-chiffre">16/02/2008</td>
				<td class="tab-chiffre">114,30</td>
				<td class="tab-chiffre">1,36%</td>
			</tr>
			<tr>
				<td>3e trimestre 2007</td>
				<td class="tab-chiffre">14/02/2008</td>
				<td class="tab-chiffre">113,68</td>
				<td class="tab-chiffre">1,11%</td>
			</tr>
			<tr>
				<td>2e trimestre 2007</td>
				<td class="tab-chiffre">14/02/2008</td>
				<td class="tab-chiffre">113,37</td>
				<td class="tab-chiffre">1,24%</td>
			</tr>
			<tr>
				<td>1er trimestre 2007</td>
				<td class="tab-chiffre">14/02/2008</td>
				<td class="tab-chiffre">113,07</td>
				<td class="tab-chiffre">1,44%</td>
			</tr>
			<tr>
				<td>4e trimestre 2006</td>
				<td class="tab-chiffre">14/02/2008</td>
				<td class="tab-chiffre">112,77</td>
				<td class="tab-chiffre"></td>
			</tr>
			<tr>
				<td>3e trimestre 2006</td>
				<td class="tab-chiffre">14/02/2008</td>
				<td class="tab-chiffre">112,43</td>
				<td class="tab-chiffre"></td>
			</tr>
			<tr>
				<td>2e trimestre 2006</td>
				<td class="tab-chiffre">14/02/2008</td>
				<td class="tab-chiffre">111,98</td>
				<td class="tab-chiffre"></td>
			</tr>
			<tr>
				<td>1er trimestre 2006</td>
				<td class="tab-chiffre">14/02/2008</td>
				<td class="tab-chiffre">111,47</td>
				<td class="tab-chiffre"></td>
			</tr>
		</tbody></table>

Merci d'avance pour votre aide.

Invité · 29/06/2014, 11h42

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Sub RécupIRL()
'Lancer la recherche par le bouton
Dim IE 'As New InternetExplorer
Dim IEDoc 'As HTMLDocument
Dim htmlTabResultat 'As HTMLGenericElement
Dim Ws_IRL As Worksheet
 Set IE = CreateObject("InternetExplorer.application")
   'On ouvre la page Web
   IE.navigate "http://www.insee.fr/fr/themes/conjoncture/indice_loyer.asp"
   IE.Visible = True
   WaitIE IE
   Set IEDoc = IE.document
 
   'On pointe la feuille IRL, si besoin & _
   Il faudra bien sûr ajouter une feuille nommée IRL
   Set Ws_IRL = ThisWorkbook.Sheets("IRL")
 
   'On pointe sur la table contenant les données
   'Et on se décale sur le premier élément qu'il contient (le body)
   Set htmlTabResultat = IEDoc.body.all("base")
    'On crée la ligne d'entête du tableau Excel
   Ws_IRL.Range("A1") = "Période"
   Ws_IRL.Range("B1") = "Date"
   Ws_IRL.Range("C1") = "Indice  de référence"
   Ws_IRL.Range("D1") = "Variation annuelle"
  Set htmlTabResultat = IEDoc.body.all("base")
 TXT = ReturnTableau(htmlTabResultat.innerhtml)
 Range("A2:D" & UBound(TXT)) = TXT
End Sub
'Procèdure placée dans un module standard pour vérifier le chargement total de la page.
Sub WaitIE(IE)
   'On boucle tant que la page n'est pas totalement chargée
   Do Until IE.readyState = 4
      DoEvents
   Loop
End Sub
Function ReturnTableau(ByVal TXT As String)
Dim T
Dim T2()
Dim T3
Dim I2 As Integer
TXT = Replace(TXT, Chr(10), "")
TXT = Replace(TXT, Chr(13), "")
TXT = Replace(UCase(TXT), Chr(9), "")
TXT = Replace(TXT, "</tr>", vbCrLf)
TXT = Replace(TXT, "<tr>", "")
TXT = Replace(UCase(TXT), "</TD>", ";")
TXT = Replace(UCase(TXT), "<TD CLASS=""TAB-CHIFFRE"">", "")
TXT = Replace(UCase(TXT), "<TD>", "")
TXT = Replace(UCase(TXT), "</TBODY>", "")
 
T = Split(TXT, "<TBODY>")
T = Split(T(1), vbCrLf)
ReDim T2(UBound(T), 4)
For i = 0 To UBound(T)
If Trim("" & T(i)) <> "" Then
Debug.Assert Asc(Trim("" & Left(T(i), 1)))
T3 = Split(T(i), ";")
T2(I2, 0) = T3(0)
T2(I2, 1) = T3(1)
T2(I2, 2) = T3(2)
T2(I2, 3) = T3(3)
T2(I2, 4) = T3(4)
I2 = I2 + 1
End If
Next
ReturnTableau = T2
End Function

**Marc-L** · 29/06/2014, 12h05

Bonjour clem4491,

t'as pas bien regardé dans les discussions du forum !

La table comportant un ID

GetElementById !

Une table est composée de lignes dans une collection rows.

La propriété length d'une collection renvoie le nombre exact d'éléments (Item).
Toutefois, même si l'affichage des Items commence à un, le premier indice d'une collection est en réalité le zéro …

Chaque ligne est composée d'une collection cells contenant les données au format texte (innerText) …

Aucun souci donc pour alimenter des cellules préformatées en texte d'une feuille de calculs d'Excel
et pas besoin d'une usine à gaz, une vingtaine de lignes de codes fait l'affaire !

Exemple à copier directement dans le module d'une feuille :

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
Sub Demo()
    With CreateObject("InternetExplorer.Application")
        .Navigate "http://www.insee.fr/fr/themes/conjoncture/indice_loyer.asp"
        Do: Loop Until .readyState = 4
 
        With .document.GetElementById("base").Rows
            For R& = 1 To .Length
                With .Item(R - 1).Cells
                    For C& = 1 To .Length:  Cells(R, C).Value = .Item(C - 1).innerText:  Next
                End With
            Next
        End With
 
        .Quit
    End With
    End
End Sub

_______________

_____________________________________

_____________________________

Merci de cliquer sur

pour chaque message ayant aidé puis sur

pour clore cette discussion …

**clem4491** · 29/06/2014, 22h01

Un grand merci à tous les deux. En effet Marc-L pourquoi faire compliqué lorsqu'on peut faire simple. Encore faut-il savoir comment faire

. Ta solution est radicalement efficace en quelque lignes de code.
rdurupt, j'ai une erreur 1004 (La méthode range de l'objet Worksheet à echouée) sur la ligne 28 du code. J'ai essayé de la modifier en mettant Ws_IRL.Range("A2:D" & UBound(TXT)) = TXT mais sa ne change rien.

Pour moi le sujet est tout de même résolu car la méthode de Marc-L fonctionne.

Merci encore

++

Clem4491

**Marc-L** · 30/06/2014, 12h19

Bien plus rapide est d'utiliser une bibliothèque XML (IE étant le plus lent ! Mais hélas pas toujours substituable …)
comme dans le tutoriel VBA et développement Web …

Exemple dans cette discussion combiné avec l'utilisation d'une variable tableau …

Récupérer des données d'un site WEB et les collées sur une feuille Excel [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager