Discussion :

[keita]

bonjour à tous
Quelqu'un peut il me donner du code pour emettre une requete http (et eventuellement recuperer la reponse) en vba?
merci

[LedZeppII]

Bonjour,

Tu peux le faire avec WinHTTP.
Ajouter une référence à "Microsoft WinHTTP Services, version 5.1"
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Dim wq As WinHttp.WinHttpRequest
Dim strURL As String, strResp As String
 
strURL = "http://weather.yahooapis.com/forecastrss"
strURL = strURL & "?w=615702&u=c"
 
On Error GoTo ERRH
Set wq = New WinHttpRequest
' Création requêtte HTTP de type GET
wq.Open "GET", strURL
' Envoie de la requête
wq.Send
 
If wq.Status = 200 Then
   ' Récupérer le corps de la réponse
   strResp = wq.ResponseText
   ' exploitation de la réponse
   ' ... 
Else
   MsgBox wq.Status & " " & wq.StatusText, , "Statut renvoyé par serveur"
End If
GoTo ENDPROC
 
ERRH:
'MsgBox ERR.Description
MsgBox "Erreur No." & Err.Number & " : " & Err.Description
 
ENDPROC:
Set wq = Nothing

Tu peux aussi le faire avec MSXML.
Voir le tutoriel de Caféine C Récupérer une source par le protocole HTTP - méthode de la bibliothèque XML

A+

[keita]

Merci LedZeppII
J'essaie ce que tu me proposes et je reviens. ça devrait marcher.
bye

[karlito_6480]

bonjour
petite question

en argument on met bien "GET" Pour get et "POST" pour post jusque la j'y arrive.
mais on m'a refilé une doc d'une API request et c'est marqué que la méthode la plus sécurisé est la HTTP Basic Authentication.
que dois-je mettre comme argument pour ce type d'envois de requête ?

je trouve nulle part ce que l'on peut mettre comme arguments.

si quelqu'un a une petite info merci.

[Elendar]

Est-ce que c'est ça que tu cherches?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER As Long = 0
Const HTTPREQUEST_SETCREDENTIALS_FOR_PROXY As Long = 1
 
wq.Open "GET", strURL
wq.SetCredentials username, password, HTTPREQUEST_SETCREDENTIALS_FOR_SERVER