Bonjour,

Bon après de bonnes vacances, il faut se remettre au travail.

Dans mon projet je dois avoir les parités des différentes devises et vu que sur internet on a ce genre d'information, je me demande comment faire pour les récupérer automatiquement via windev 7.5 ??

Si quelqu'un a déja fait ce genre de manipulation, son aide sera tres appreciee.

A bientot.

Petite précision.

Exemple : Devise 1 : USD
Devise 2 : CAD
Résultat : 1.40....

Je veux donc connaitre la parité entre l'USD et le CAD, l'euro par rapport au CAD, ainsi de suite.

Merci a+++

Salut,
1) A l'aide d'internet explorer
Acceder à la page qui permet connaitre la parite.
2)Afficher le code source de la page
3) rechercher la chaine "Input" dans le code de la page
Vous devez trouver sur la ligne input "Name="
regarder si ce nom peut correspondre à un des champs devises
sinon poursuivez la recherche.

Generalement on utilise la fonction:
4) executer la fonction suivante:
HTTPRequete(?=)

5)On récupere le code la page HTML
=HTTPDonneRésultat()
6)On regarde dans la variable ou se trouve le résultat.

Si tu veut plus d'aide donne l'adresse de la page en question.

A+

Salut,

Euh oui j'aimerais avoir plus d'aide.

Voici le site en question :

http://www.fininfo.fr/fininfo/GetChanges.event

Comme tu le constatera, il y a 4 champs, le premier etant DEVISE : Dollar Américain (USD) par exemple, le deuxieme etant en DEVISE : Dollar Canadien (CAD) par exemple, on click su OK et dans résultat apparait la valeur.

a+++

Bonjour Ocean,

Firetox a trouvé le truc !
je vous invite donc à suivre ce fil de discussion pour connaire la voie

si en retour vous pourriez produire un petit guide sur le sujet cela serait trés apprécié (me poster les pages html/image).

Salut Oceans

Voici un bout de code tester qui fonctionne

sSource est une chaîne
Res est une chaîne
nPos est un entier
nPos2 est un entier
Texte1 est une chaîne = "name="+Caract(34)+"resultat"+Caract(34)

SI PAS HTTPRequête("http://www.fininfo.fr/fininfo/GetChanges.event?DeviseInSelector=USD&DeviseOutSelector=EUR")ALORS RETOUR
sSource = HTTPDonneRésultat()
fSauveTexte(fRepEnCours()+"\Devise.html",sSource)
nPos = Position(sSource,Texte1,1)
nPos = Position(sSource,"value=",nPos)
nPos2 = Position(sSource,">",nPos)
Res = sSource[[nPos+Taille("Value=")+1 A nPos2-1]]

Res contient Le résultat de la demande
Le fichier 'Devise.html' est la page generer par la demande HTTPRequete.

A+

Bonjour,

It is not exactly an answer to your question but for
currency conversion ('conversion devises') there is a free
soap service available.

In WD75 import a Soap Service
(http://www.webservicex.net/CurrencyConvertor.asmx?WSDL)

Change the "ConversionRate()" procedure created by WD
(importing a WSDL is not always working very good)

---
PROCEDURE ConversionRate(FromCurrency, ToCurrency)

//Created by WD - not working
//Soap.XMLParam[1]=FromCurrency
//Soap.XMLParam[2]=ToCurrency

SOAP.Name[1]="FromCurrency"
SOAP.Type[1]=SOAPFloatType
SOAP.Value[1]=FromCurrency

SOAP.Name[2]="ToCurrency"
SOAP.Type[2]=SOAPFloatType
SOAP.Value[2]=ToCurrency
//

bRes is boolean
bRes=SOAPRun("http://www.webservicex.net/CurrencyConvertor.asmx",
"ConversionRate", "http://www.webserviceX.NET/",
"http://www.webserviceX.NET/ConversionRate")

IF NOT bRes THEN
IF SOAPError(SOAPErrMessage)~="" THEN
Error(ErrorInfo())
ELSE
Error(SOAPError(SOAPErrMessage))
END
END

RESULT SOAPGetResult(SOAPResult)

--
The result is the conversion rate.

--
Peter

Salut,

drcharly93 merci pour ton aide, ca fontionne tres tres bien.

j'apprecie beaucoup ton aide.

a++++

Encore moi,

A l'equipe R&B, je vais essayer de faire une documentation la dessus, mais si tu suis exactement ce qu'a ecrit drcharly93, tu y arrive facilement.

Il faut aussi que j'avance sur mon projet de selecteur et la doc concernant les gabaris ce qui me prend deja du temps en + du travail normal.

Mais la documentation sera faite. Peut etre que drcharly93 en a deja faite une.

a+++

Salut Oceans

Malheuresement Non, je n'ai aucune documentation de faite
J'ai simplement ecrit un aspirateur de site pour alimenter les données d'une société d'affacturage.