Bonjour,
je récupére sur cette page la valeur PER 2020
https://www.boursorama.com/cours/1zMSF/
à l'aide du bloc ci-dessous et cela fonctione tres bien :
avant = "<td class=""c-table__cell c-table__cell--dotted c-table__cell--inherit-height c-table__cell--align-top / u-text-left u-text-right u-ellipsis"">"
apres = "</td>"
On Error Resume Next
For i = 2 To k
DoEvents
ReDim PER(1 To k, 1 To 1)
PER(1, 1) = Cells(i, [per2k20].Column).Value
URL = Cells(i, [www].Column).Value
Application.StatusBar = "Mise à jour du PER 2021 en cours …"
On Error Resume Next
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL, False
.Send
If .Status = 200 Then PER(i, 1) = Val(Split(Split(.responseText, avant)(12), apres)(0))
End With
Application.StatusBar = False
Cells(i, [per2k20].Column).Value = PER(i, 1)
Next
je souhaite maintenant récupérer , toujours sur la même page la valorisation :
j'utilise pour cela le même bloque de texte que précédement mais je l'ai modifié pour chercher la bonne clée ( enfin disons que j'ai éssayé )
avant = "<div class=""c-list-info c-list-info--bottom-separator@sm-max c-list-info--left-separator@lg-min c-list-info--no-gutter@md-min"">""<ul class=""c-list-info__list c-list-info__list--split-half"">""<li class=""c-list-info__item c-list-info__item--no-padding@md"">""<p class=""c-list-info__heading u-color-neutral"">"
apres = "</td>"
On Error Resume Next
For i = 2 To k
DoEvents
ReDim PER(1 To k, 1 To 1)
COT(1, 1) = Cells(i, [valorisation].Column).Value
URL = Cells(i, [www].Column).Value
Application.StatusBar = "Mise à jour de la valorisation en cours …"
On Error Resume Next
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL, False
.Send
If .Status = 200 Then COT(i, 1) = Val(Split(Split(.responseText, avant)(1), apres)(0))
End With
Application.StatusBar = False
Cells(i, [valorisation].Column).Value = COT(i, 1)
Next
je ne récupere rien , j'ai donc écris une mauvaise syntaxe entre AVANT et APRES
quelqu'un sourait il m'aider à modifier ma syntaxe ?
d'avance merci pour votre soutien