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.