Récupération info HTTP

Bonjour,

J'ai récupéré un fichier excel qui me permet de calculer des distances et tracer des trajets sur une carte de France. Mon problème est que je voudrais l'utiliser dans un réseau d'entreprise et qu'il faudrait que le code récupère le proxy http automatiquement.

Si j'ai bien compris il faudrait que j'utilise la librairie MSXML2 qui utilise la configuration proxy par défaut du registre.

Je bloque un peu.

Merci

Je rajoute la partie du code bloquante, je comprends le fonctionnement mais j'ai du mal de voir les modifs à faire (ça bloque a .send).

Sub Distance()
Dim lg As Integer, i As Integer
Dim Url As String, Txt As String, S As String

    Application.ScreenUpdating = False
    Efface_Pt
    Init_Zeros
    With Sheets("Carte")
        lg = .Cells(Rows.Count, "B").End(xlUp).Row
        For i = 2 To lg
            Url = DIST & .Range("B" & i).Value & "&destination=" & .Range("C" & i).Value
            With CreateObject("WINHTTP.WinHTTPRequest.5.1")
                .Open "GET", Url, False
        .send
                Txt = .responseText
            End With
            If InStr(1, Txt, "distanciaRuta") > 0 Then
                .Range("D" & i).Value = Split(Split(Txt, "id=""distanciaRuta"">")(1), "</strong>")(0)
                .Range("E" & i).Value = Split(Split(Txt, """tiempo"">")(1), "</")(0)
                S = Split(Split(Txt, "var pointstrings = '[[")(1), "]]';")(0)
                Gps_lg i, S 'Gps i, S
            Else
                .Range("D" & i).Value = ""
                .Range("E" & i).Value = "Pas de réponse"
            End If
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

Bon ben je vais clôturer le sujet je verrais ça plus tard. je vais me pencher sérieusement sur les connections vers l'internet pour rapatrier des données.