ca fonctione nickel , je l'ai mis au même format que les autres du coup :-)
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 rendc(1 To k, 1 To 1)
URL = Cells(i, [www].Column).Value
Application.StatusBar = "Mise à jour des rendements 2021 en cours …"
On Error Resume Next
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL, False
.Send
If .Status = 200 Then
donnee = .responsetext
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>"
indice = 4
donnee = Split(Split(donnee, avant)(indice), apres)(0)
donnee = Val(Replace(donnee, "%", ""))
End If
End With
Application.StatusBar = False
Cells(i, [rend2k21].Column).Value = donnee & "%"
Next
maintenant que grace a toi tout fonctione je vais creuser un peu quelques détails , la valorisation ne fonctione pas sur toutes les valeurs , MICROSOFT fonctione , HERMES ne renvois rien