Comment puis-je envoyer une requête HTTP POST à ​​un serveur depuis Excel à l'aide de VBA?

Quel code VBA est requis pour effectuer un HTTP POST à ​​partir d'une feuille de calcul Excel?

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
URL = "http://www.somedomain.com"
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.send("")

Sinon, pour un meilleur contrôle sur la requête HTTP, vous pouvez utiliser WinHttp.WinHttpRequest.5.1à la place de MSXML2.ServerXMLHTTP.

Si vous en avez besoin pour fonctionner à la fois sur Mac et Windows, vous pouvez utiliser QueryTables:

With ActiveSheet.QueryTables.Add(Connection:="URL;http://carbon.brighterplanet.com/flights.txt", Destination:=Range("A2"))
    .PostText = "origin_airport=MSN&destination_airport=ORD"
    .RefreshStyle = xlOverwriteCells
    .SaveData = True
    .Refresh
End With

Remarques:

• Concernant la sortie ... je ne sais pas s'il est possible de renvoyer les résultats dans la même cellule qui a appelé la fonction VBA. Dans l'exemple ci-dessus, le résultat est écrit dans A2.
• Concernant l'entrée ... Si vous souhaitez que les résultats s'actualisent lorsque vous modifiez certaines cellules, assurez-vous que ces cellules sont l'argument de votre fonction VBA.
• Cela ne fonctionnera pas sur Excel pour Mac 2008, qui n'a pas VBA. Excel pour Mac 2011 a récupéré VBA.

Pour plus de détails, vous pouvez consulter mon résumé complet sur «l' utilisation des services Web d'Excel ».

En plus de la réponse de Bill the Lizard :

La plupart des backends analysent les données de publication brutes. En PHP par exemple, vous aurez un tableau $_POSTdans lequel des variables individuelles dans les données de publication seront stockées. Dans ce cas, vous devez utiliser un en-tête supplémentaire "Content-type: application/x-www-form-urlencoded":

Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
URL = "http://www.somedomain.com"
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
objHTTP.send ("var1=value1&var2=value2&var3=value3")

Sinon, vous devez lire les données de publication brutes sur la variable "$HTTP_RAW_POST_DATA".

Vous pouvez utiliser ServerXMLHTTPdans un projet VBA en ajoutant une référence à MSXML.

1. Ouvrez l'éditeur VBA (généralement en éditant une macro)
2. Aller à la liste des références disponibles
3. Vérifiez Microsoft XML
4. Cliquez sur OK.

(à partir du référencement MSXML dans les projets VBA )

La documentation MSDN ServerXMLHTTP contient des détails complets sur toutes les propriétés et méthodes de ServerXMLHTTP.

En bref, cela fonctionne essentiellement comme ceci:

1. Appelez la méthode ouverte pour vous connecter au serveur distant
2. Appelez envoyer pour envoyer la demande.
3. Lire la réponse via responseXML , responseText , responseStream ou responseBody

Pour compléter la réponse des autres utilisateurs:

Pour cela, j'ai créé un objet "WinHttp.WinHttpRequest.5.1" .

Envoyez une demande de publication avec des données d'Excel en utilisant VBA:

Dim LoginRequest As Object
Set LoginRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
LoginRequest.Open "POST", "http://...", False
LoginRequest.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
LoginRequest.send ("key1=value1&key2=value2")

Envoyez une demande d'obtention avec l'authentification par jeton d'Excel à l'aide de VBA:

Dim TCRequestItem As Object
Set TCRequestItem = CreateObject("WinHttp.WinHttpRequest.5.1")
TCRequestItem.Open "GET", "http://...", False
TCRequestItem.setRequestHeader "Content-Type", "application/xml"
TCRequestItem.setRequestHeader "Accept", "application/xml"
TCRequestItem.setRequestHeader "Authorization", "Bearer " & token
TCRequestItem.send

Je l'ai fait avant d'utiliser la bibliothèque MSXML, puis d'utiliser l'objet XMLHttpRequest, voir ici .