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

Microsoft 365 & Office Excel & VBA
1

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

Source : Stack Overflow

2 
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.