fenetre de securité répétitive lors d'une requete

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
Pièce jointe 176258
quelqu'un aurait une idée pour m'en débarrasser ?

:salut:
Et c'est quoi le code source ?

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:

---

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

---

une idée hackoofr?

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:

---

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