WD Exemple Convertisseur de devises

Quand je vous demande de vérifier l'exemple pour une meilleure compréhension, voici comment je le vois
Bon, désolé
Voici le code

[windev]

ECodeDevise est une Enumération
Euro = "EUR"
DollarAustralien = "AUD"
LevBulgare = "BGN"
RéalBrésilien = "BRL"
DollarCanadien = "CAD"
FrancSuisse = "CHF"
YuanChinois = "CNY"
CouronneTchèque = "CZK"
CouronneDanoise = "DKK"
LivreSterling = "GBP"
DollarHongKong = "HKD"
KunaCroate = "HRK"
ForintHongrois = "HUF"
RoupieIndonésienne = "IDR"
ShekelIsraélien = "ILS"
RoupieIndienne = "INR"
YenJaponais = "JPY"
WonSudCoréen = "KRW"
PesoMexicain = "MXN"
RinggitMalais = "MYR"
CouronneNorvégienne = "NOK"
DollarNéoZélandais = "NZD"
PesoPhilippin = "PHP"
ZlotyPolonais = "PLN"
NouveauLeuRoumain = "RON"
RoubleRusse = "RUB"
CouronneSuédoise = "SEK"
DollarSingapour = "SGD"
BahtThaïlandais = "THB"
LivreTurque = "TRY"
DollarEtatsUnis = "USD"
RandSudAfricain = "ZAR"
CouronneIslandaise = "ISK"
FIN
// Déclarer une structure pour Déclarer le code devise et le taux et pour stocker l’énumération de code devise
STDevise est une Structure
eCode est une ECodeDevise
moTaux est un monétaire
FIN

clDevise est une Classe

// Je déclare les membres
PRIVÉ // pour les utiliser uniquement au sein de la classe
m_dateRécuperation est une Date // Stocker la date des taux
m_Base est une ECodeDevise // stocker la base référence de devise
m_TauxChange est un tableau de STDevise // Tableau pour stocker le code et taux
FIN
AppelFixerIo est une restRequête
RéponseFixerIo est une restRéponse
vDonnéesReçu est un Variant
CleHitHub est une chaîne ="xxxxxxxxxxxxxxxxxx" //Cette clé(token) a été crée dans le site HitHub

//

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

AppelFixerIo.URL = "

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

" +CleHitHub
//AppelFixerIo.URL = "

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

"

RéponseFixerIo = RESTEnvoie(AppelFixerIo)
vDonnéesReçu = JSONVersVariant(RéponseFixerIo..Contenu)

m_dateRécuperation = vDonnéesReçu.date
Trace(vDonnéesReçu.date,vDonnéesReçu.base)

m_Base = EnumérationDepuisValeur(ECodeDevise, vDonnéesReçu.base) //>>>>>Ici il affiche cemessage
Vous avez appelé la fonction 'EnumérationDepuisValeur'.
Aucune valeur de l'énumération 'clDevise.ECodeDevise' ne correspond à la valeur associée donnée.


stDeviseTemp est un STDevise

POUR TOUT membre DE vDonnéesReçu.rates..Membre
stDeviseTemp.eCode = EnumérationDepuisValeur(ECodeDevise, membre.Nom)
stDeviseTemp.moTaux = membre.valeur
TableauAjoute(m_TauxChange,stDeviseTemp)
FIN

[windev]




Merci de vos aides

 

Me renvoi (0, 0)

quand je remplace vDonnéesReçu.base) par "EUR"
m_Base = EnumérationDepuisValeur(ECodeDevise, "EUR" ) //vDonnéesReçu.base)

pas de message d'erreur