Discussion :

[Crusifi_x]

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:


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

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

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

[Crusifi_x]

Re-bonsoir,

J'ai continué à chercher et suis arrivé à une solution qui me satisfait même si elle n'est pas optimale en utilisant la ligne suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oshScrap.Cells(count, 1) = Mid(CStr(element.innerText), 12, 1) & Mid(CStr(element.innerText), 14, 6)

Pour obtenir le contenu de mes balises <tr class="c-table__row"> il fallait utiliser le bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

element.innerText

Peut-être qu'un jour ça pourra aider quelqu'un.