XL 2016 Problème pour valoriser un Header HTTP

[Dudu2]

Bonjour,
Le site Octopush (envoi de SMS) demande de placer dans le Header d'un POST HTTP l'api-key et l'api-login.

Et je n'y arrive pas !

Sub a()
    Dim objHTTP As Object
    Dim LoginAPI As String
    Dim CléAPI As String
  
    'Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    LoginAPI = "moi@domain.com"
    CléAPI = "123abc"
  
    With objHTTP
        .setRequestHeader "Authorization", "api-login: " & LoginAPI, "api-key: " & CléAPI, "cache-control: no-cache"
    End With
End Sub

Une idée ? Merci !

 

[Dudu2]

Ok, résolu...

Sub a()
    Dim objHTTP As Object
    Dim Url As String
    Dim LoginAPI As String
    Dim CléAPI As String
    
    'Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    LoginAPI = "moi@domain.com"
    CléAPI = "123abc"
    Url = "https://api.octopush.com/v1/public/sms-campaign/send"
    
    With objHTTP
        .Open "POST", Url, False
        .setRequestHeader "Authorization", "api-login: " & LoginAPI & " api-key: " & CléAPI & " cache-control: no-cache"
    End With
    
    MsgBox "ok"
End Sub