voici
1- trop d'interro, le site n'a pas aimé et a du bloquer mon IP sans doute ! => faire des paquets
2- je n'ai pas voulu transformer les données, cela reste du "texte", toi de voir
Sub Maj()
Dim i%, der%, URL$
der = Cells(Rows.Count, "D").End(xlUp).Row
Range(Cells(2, "E"), Cells(der, "F")).Select
Selection.Clear
MsgBox "Interro internet ..."
On Error Resume Next
For i = 2 To der
DoEvents
URL = Cells(i, "D").Value
On Error Resume Next
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL, False
.Send
If .Status = 200 Then
Cells(i, "F") = Split(Split(Split(.responsetext, [avant1])(1), [avant])(1), [apres])(0)
Cells(i, "E") = Split(Split(Split(.responsetext, [avant2])(1), [avant])(1), [apres])(0)
End If
Cells(i, "D").Select
End With
Next
MsgBox "Interro internet terminée !"
End Sub
Salut Pierre ! j'en suis toujours aux méthodes archaïques !