Discussion :

[patricktoulon]

Bonjour a tous
j'ai un petit soucis avec une requête avec l'object(xlmhttp)

je suis bombardé par le message de sécurité Windows ( une bonne dizaine de fois )

en vba Excel la même requête ne pose pas problème par contre en vbs ca me le fait a tout les coups

quelqu'un aurait une idée pour m'en débarrasser ?

[hackoofr]

Et c'est quoi le code source ?

[patricktoulon]

re
Bonjour hackoofr ca fesait longtemps

lecode source de la page web ou celle de de la requete?
si c'est la page que tu veux
"http://www.bloomberg.com/quote/GSZ:FP"
et le debut de la requete

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
ID="GSZ:FP"
Set oHttp = CreateObject("MSXML2.XMLHTTP")
With oHttp: .Open "POST", "http://www.bloomberg.com/quote/" & ID, False: .send:end with
texto= oHttp.responseText
 set HTMLDoc = createobject("htmlfile")
HTMLDoc.Write texto
HTMLDoc.Close 
With HTMLDoc
For Each elem In .all
If elem.classname = " price" Then
valeur=replace(split(element.innertext," ")(1),",",".") 
end if

[patricktoulon]

une idée hackoofr?

[patricktoulon]

re
pour le moment j'ai une solution temporaire mais avant il faut dire que
la requête ne fonctionne pas avec la méthode POST MAIS AVEC GET OUI

la méthode POST me donne la page Bloomberg d'erreur

ensuite les messages d'avertissement vienne du fait que l'object"htmlfile n'aime pas les script a l'intérieur du body du document
alors j'ai couper le code et garder que la partie html qui m'intéresse c'est un peu brut de décoffrage mais ca fonctionne

celle la fonctionne en vbs

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
 
ID= "GSZ:FP"
 Set oHttp = CreateObject("MSXML2.XMLHTTP")
 oHttp.Open "GET", "http://www.bloomberg.com/quote/GSZ:FP", False
 oHttp.send
texto= oHttp.responseText
 
 Set oHttp = Nothing
divo=split(texto,"<span class="" price"">")(1)
  texte=split(divo,"</span>")(0)
  texte="<span class="" price"">" & texte & "</span>" & "</span>" 
 
divo2=split(texto, "<p class=""fine_print"">")(1)
  texte2=split(divo2,"</p>")(0)
  texte2="<p class=""fine_print"">"& texte2 &"</p>"
With CreateObject("htmlfile")
            .write texte & vbcrlf & texte2
            For Each elem In .all
                If elem.classname = " price" Then 
valeur=split(elem.innertext," ")(0)
devise=split(elem.innertext," ")(1)
                elseif elem.classname="fine_print"then
madate=replace (split(elem.innertext,"on ")(1),".","")
 
                end if 
 
            next
end with 
msgbox valeur & vbcrlf & devise & vbcrlf & madate

reste a savoir maintenant pourquoi en vba la méthode post fonctionne mais pas en vbs