<pre data-code-wrap="vba"><code class="lang-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
</code></pre>
<p>Pour les requêtes asynchrones, changez <code>False</code> en <code>True</code> dans <code>http.Open</code>.</p>
