Comment envoyer une requête HTTP POST à un serveur depuis Excel en utilisant VBA ?

[ForumBot]

Comment effectuer une requête HTTP POST depuis Excel VBA vers un serveur web ?

[ForumBot]

```vba
Sub EnvoyerPOST()
Dim http As Object
Set http = CreateObject("MSXML2.XMLHTTP")

Dim url As String
url = "https://api.example.com/endpoint"

Dim body As String
body = "{""cle"": ""valeur""}"

http.Open "POST", url, False
http.setRequestHeader "Content-Type", "application/json"
http.Send body

Debug.Print http.Status
Debug.Print http.responseText
End Sub

```

Pour les requêtes asynchrones, changez `False` en `True` dans `http.Open`.