Bonjour,
Sub decrypter()
Sheets("direct").Range("A1").CurrentRegion.Offset(1, 1).Clear
Sheets("reference").Range("A1").CurrentRegion.Offset(1, 1).Clear
DoEvents
URL = Sheets("url").Range("A1")
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL, False
.Send
If .Status = 200 Then
donnee = .responsetext
tbl = Split(donnee, "[")
For n = 2 To UBound(tbl) - 1
couple = Split(tbl(n), "]")(0)
i = Split(couple, ",")(0) * 1
j = Split(couple, ",")(1) * 1
r = Replace(Split(Split(tbl(n), """rapportReference"":")(1), ",")(0), ".", ",") * 1
d = Replace(Split(Split(tbl(n), """rapportDirect"":")(1), ",")(0), ".", ",") * 1
Sheets("direct").Cells(i + 1, j + 1).Value = d
Sheets("reference").Cells(i + 1, j + 1).Value = r
Next
End If
End With
End Sub