Requete http via un document excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Requete http via un document excel

Gat$

http://www.wowteamfinder.com

Bonjour,

Je suis pas un pro du VB, et je cale un peu, j'ai réussi a faire mon formulaire, et tout mais je bloque pour l'envois de données par requete HTTP (POST).
J'ai fait quelques recherches sur le net, et je trouve des code source qui sont sencé marcher sous vb mais je ne sais pas trop si y a une diff sous excel en vba... faut-il rajouter des lib? Si oui les quel?
Le truc c'est qu'il faut que tout tienne en un fichier .XLS.

Bref je bloque, j'ai besoin de conseils je sais pas trop ou chercher c'est ca le prob

Merci d'avance

Gat$

Message édité par Gat$ le 27-02-2006 à 10:41:53

Publicité

Gat$

http://www.wowteamfinder.com

up

J'ai vraiment du mal a trouver une bonne base pour démarrer :cry:
J'ai bien trouvé comment appeler une page avec un objet internetexplorer, mais je ne sais pas comment envoyer des données en get ou en post, et en récupérer le résultat , help :cry:

Message édité par Gat$ le 28-02-2006 à 09:13:14

Gat$

http://www.wowteamfinder.com

tegu

Je pense que la syntaxe Get ou Post est standard et donc tu peux chercher des tutoriels ou des exemples dans d'autres langages de programmation comme PHP, pourvu qu'ils décrivent bien une requete Get ou Post.

Si dans ton code VBA il manque une biblothèque, la compilation plantera et tu auras un message d'erreur. Tu pourras nous l'indiquer et on pourra t'aider un peu plus.
Je n'ai, personnellement, pas assez de recul sur le sujet pour t'aider mieux

Message édité par tegu le 03-03-2006 à 11:06:27

alca16

up
les différentes syntax que j'ai trouvé en VBS, VB.NET,... ne fonctionne pas en VBA.

je voudrais faire la requete suivante:

GET http://<server>/api/ptz.cgi? [...] tSpeed=56&
ZoomSpeed=-16

Merci d'avance pour votre aide
Alex

kiki29

Salut, via Gog j'ai trouvé qqs liens, si cela peut t'aider
http://www.developpez.net/forums/d [...] -explorer/
http://www.developpez.net/forums/d [...] xml-faire/
http://www.vbfrance.com/codes/HTTP [...] 44000.aspx

rufo

Pas me confondre avec Lycos!

Tiens, ça tombe bien ce topic, j'avais justement besoin de faire une requête http via Excel. Drapal

---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta

Xxxaaavvv

VB et VBA, c'est un peu pareil, c'est juste une question de librairie a cocher dans les références VB

je m'étais fait une fonction pour uploader un fichier XML sur un serveur
ça ressemble a ça :
(j'ai fortement tronqué ce que je faisais, j'espère ne pas avoir trop tronqué )

Citation :

' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
' Description : compose la requète Http d'upload de fichier et l'envoie
' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Private Function RequeteHTTP(strURL As String) As String

Dim strXML As String 'Contenu du XML
Dim strBody As String 'Contenu de la requète HTTP
Dim aPostData() As Byte
Dim ServerSafeHTTP As New XMLHTTP

'Préparation des entete et body du formulaire
ServerSafeHTTP.Open "POST", strURL, False

strBody = ""
strBody = strBody & fm_SetBody("txt_str_codeIntervention", strNumIntervention)
strBody = strBody & fm_SetBody("txt_str_DteGen", strDteGen)
strBody = strBody & fm_SetBody("txt_str_HreGen", strHreGen)
strBody = strBody & fm_SetBodyFile(Right(strXMLFilePath, 3), strFileName) 'entete du fichier selon son type
strBody = strBody & strXML & vbCrLf & "--" & Const_BOUNDARY & "--" 'Fin de traitement

aPostData = StrConv(strBody, vbFromUnicode)
ServerSafeHTTP.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & Const_BOUNDARY & vbCrLf
ServerSafeHTTP.send aPostData

If ServerSafeHTTP.Status = 200 Then
RequeteHTTP = ServerSafeHTTP.responseText
Else
RequeteHTTP = "Erreur : " & ServerSafeHTTP.Status & vbCrLf & ServerSafeHTTP.StatusText & vbCrLf & ServerSafeHTTP.responseText
End If

End Function

Message édité par Xxxaaavvv le 04-08-2010 à 11:32:36

Xxxaaavvv

et pour cette fonction y a besoin de 3 choses ...

la constante pour faire du POST:

Citation :

'Constante séparatrice de champs dans la composition des requètes HTTP
Private Const Const_BOUNDARY As String = "AaB03x"

la fonction fm_SetBody()

Citation :

' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' Description : formate un parametre HTTP (méthode POST)
' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Private Function fm_SetBody(strname As String, strvalue As String) As String
Dim body As String
body = "--" & Const_BOUNDARY & vbCrLf
body = body & "Content-Disposition: form-data; name=""" & strname & """" & vbCrLf & vbCrLf
body = body & strvalue & vbCrLf
fm_SetBody = body
End Function

et surtout
la librairie Microsoft XML, version quelconque cochée dans les références VBA.

elle est installée avec IE donc quasiment sur tous les poste windows.
normalement, on est pas obligé d'utiliser celle la (c'est une surcouche de je ne sais plus laquelle, mais moi je fait du XML donc ça tombe bien )

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Requete http via un document excel

Sujets relatifs
requete dans excel	Problème de n° d'index des feuilles Excel créées en VBA
[Résolu] Requête SQL - doublons oui mais ..	[VBScript] Fonctions avec Excel
macro Excel	Dessinez une feuille Excel
[access] travail propre ? jointure requête	requete CONTAINS
lancer l'execution d'un programme externe genre word excel etc...
Plus de sujets relatifs à : Requete http via un document excel

Page générée en 0.057 secondes