Version imprimable
Bonjour
J'ai un website qui me permet (soi disant) d'avoir un access distant a mes donnees.
Ils me donne une adresse web et me donne un fichier txtavec la requete XML, je dois juste mettre mon login et mot de passe dans les champs apropries.
Seulement, une fois le fichier du code de XML complete, comment lancer la requete?
Merci!
Le langage de requête associé à XML s'appelle XPath. Il existe aussi XQuery pour interroger une base XML.
Pouvez-vous poster un exemple de requête ??
Je dois effectuer ce genre de requete:
Sur une adresse whb fournie http://www.site.com/loginCode:
2
3
4
5
6
Et donc je veux le faire avec VBA Excel...
Si les requete SQL par ADO j'y aryve, la c'est encore obscur...
Bon, alors, je pense plutôt qu'il faut voir cela comme une requête HTTP c'est-à-dire un POST avec le XML en question en y ayant mis les vraies valeurs... Une sorte de service web...
Plutôt qu'avec VBA à 100%, j'utiliserais une classe .Net appelée par VBA. J'ai déjà fait cela : http://sourceforge.net/projects/light-html2xml
Merci Alain,
J'y ai passe la nuit sans succes, j'arrive pas a me debrouiller...
Le problème se situe où ? Faire une requête HTTP depuis VBA ?
oui clairement, je ne vois pas comment faire ma requete malgre le lien poste...
J'ai trouve ca, j'essaye une sauce cette nuit et reviens... http://www.developpez.net/forums/sho...quete+http+vba
L'utilisation des fonctionnalités d'Excel pour récupérer des données Web risque fort de ne pas permettre un POST avec données. C'est une solution pour non informaticiens...
MSXML6 (utilisation de XMLHttpRequest) est une solution de type objet COM qui devrait vous convenir : c'est de la même génération que VBA et il faut l'installer sur le poste avec Excel.
Microsoft ne développe plus son activité autour des objets COM. Maintenant tout est déployé sur .Net. Et .Net dispose de tout pour faire ce que vous voulez.
Le code .Net en exemple :Code:
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
30
31
32
33
34
35
36
37
38int nb_essais; StreamReader loResponseStream = null; HttpWebResponse HttpWResp = null; for(nb_essais = 10; nb_essais != 0; nb_essais--) { try { HttpWebRequest HttpWReq = (HttpWebRequest)WebRequest.Create(url); HttpWReq.Method = "GET"; HttpWReq.ContentType = "application/x-www-form-urlencoded"; ASCIIEncoding encoding = new ASCIIEncoding(); HttpWResp = (HttpWebResponse)HttpWReq.GetResponse(); Encoding enc1252 = Encoding.GetEncoding(1252); loResponseStream = new StreamReader(HttpWResp.GetResponseStream(), enc1252); s = loResponseStream.ReadToEnd(); loResponseStream.Close(); try { string xs = Html2Xml(s); Regex normspace = new Regex(@"[\f\n\r\t\v\x85\p{Z}\xA0]+"); Regex xmlnsrem = new Regex(" xmlns=\"[^\"]*\""); xDoc.LoadXml(xmlnsrem.Replace(normspace.Replace(Html2Xml(s), " "), "")); HttpWResp.Close(); return xDoc.OuterXml; } catch { } break; } catch(Exception e) { Console.WriteLine(e); Thread.Sleep(nb_essais < 3 ? 1000*10 : 1000*5); } finally { try { HttpWResp.Close(); } catch { } } }
Merci pour votre aide, a force de recherches j'arrive deja a me connecter grace a ce code, en retour j'obtiens un session ID.
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16Sheets(1).Select sURL = Sheets(1).Range("J4") sRequete = Sheets(1).Range("J1") Set oHttp = CreateObject("MSXML2.XMLHTTP") oHttp.Open "POST", sURL, False oHttp.Send (sRequete) sHTML = oHttp.responseText Sheets(2).Range("A1") = sHTML Set oHttp = Nothing
Encore merci Alain, j'arrive a a peu pres faire tout ce que je veux.
Maintenant il ne me reste plus qu'a trouver comment mettre en forme mes reponses xml!
Pour info, j'enregistre la réponse de mon serveur en fichier "texte formaté avec une extension ".xml", je le rouvre dans Excel et il est formatté.
Merci beaucoup pour votre aide précieux.