[XL-2016] Problème de scraping

Bonsoir à tous,

J'essaye de récupérer des données en lignes sur https://www.boursorama.com/bourse/in...torique/1rPCAC mais n'y parviens pas...

Je souhaite obtenir les valeurs contenues dans la colonne "Dernier" mais le mieux que j'ai réussi à faire pour le moment est d'avoir n fois la chaîne caractère "Dernier" et non les valeurs:
Pièce jointe 444978

Le code qui me fourni ce résultat est le suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim element As IHTMLElement
Dim elements As IHTMLElementCollection
 
Set html = ie.document
 
Set elements = html.getElementsByClassName("c-table__row")
 
Dim count As Long
count = 1
 
For Each element In elements
 
        oshScrap.Cells(count, 1) = html.getElementsByClassName("c-table__cell c-table__cell--dotted")(1).innerText
 
        count = count + 1
 
Next element

le code source de la page qui m'intéresse est le suivant une fois réagencé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
<tbody class="c-table__body">
<tr class="c-table__row">
<td class="c-table__cell c-table__cell--dotted">25/01/2019</td>
<td class="c-table__cell c-table__cell--dotted">4 925.82</td>
<td class="c-table__cell c-table__cell--dotted c-table__cell--positive">+1.11%</td>
<td class="c-table__cell c-table__cell--dotted">4 931.80</td>
<td class="c-table__cell c-table__cell--dotted">4 890.90</td>
<td class="c-table__cell c-table__cell--dotted">4 895.59</td>
</tr>
<tr class="c-table__row">
<td class="c-table__cell c-table__cell--dotted">24/01/2019</td>
<td class="c-table__cell c-table__cell--dotted">4 871.96</td>
<td class="c-table__cell c-table__cell--dotted c-table__cell--positive">+0.65%</td>
<td class="c-table__cell c-table__cell--dotted">4 883.90</td>
<td class="c-table__cell c-table__cell--dotted">4 832.40</td>
<td class="c-table__cell c-table__cell--dotted">4 839.59</td>
 </tr>
 
etc...

Merci d'avance pour votre aide.