Bonjour,
j'utilise un requête XMLHTTP pour recueillir des informations sur internet.

Le problème c'est qu'une GPO de mer.. provoque l'affichage d'un Avertissement de sécurité Windows, que je n'ai pas si je lance le lien directement avec IE (11)

Nom : Avertissement_pas_sous_contrôle.png Affichages : 985 Taille : 5,2 Ko

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub xml()
 Set MyXMLHttp = CreateObject("Msxml2.XMLHTTP")
            URL$ = "https://www.ellisphere.fr/entreprise/327733184"
             With MyXMLHttp
                .Open "get", URL, False
                .setRequestHeader "DNT", "1"
                On Error Resume Next
                .send
                On Error GoTo 0
 
                If .Status = 200 Then
                    SP = .responseText
                    MsgBox SP
                Else
                    MsgBox "Erreur " & .Status & " " & .StatusText & " !"
                End If
            End With
End Sub
une solution ?