Discussion :

[nico84]

Bonjour,

Voici un bout de code qui permet d'aller chercher les taux de change des différentes devises et de mettre à jour une table locale (sans archiver les anciennes valeurs)
Il peut s'appeler par exemple la nuit par une tache programmée ou à la demande

Il nécessite d'appeler la référence "Microsoft XML" (et ADODB si comme moi vous utilisez ce protocole mais ça marche aussi en DAO bien sûr) et je crois que c'est tout

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
'16.5d LECTURE DE DEVISES AU FORMAT JSON
Public Sub MajDevises
Dim http As MSXML2.ServerXMLHTTP, Liste As String, rado As New ADODB.Recordset, nb As Integer, i As Long, s As String
100 nb = 0 'nombre de devises mises à jour
102 Liste = ""
 
    'Lecture du flux
    If Not Mode_debug Then On Error GoTo suite
105 Set http = New MSXML2.ServerXMLHTTP
'106 http.Open "GET", "http://api.fixer.io/latest", False
106 http.Open "GET", "http://www.floatrates.com/daily/eur.json", False  '18.6 changement de service (le précédent nécessite une inscription)
107 http.send ""
    'En cas de réussite, le code renvoyé est 200
110 If http.Status <> 200 Then
112   Liste = ""
113   If bilan Then MsgBox "Erreur en lecture de devises code " & http.Status
      Exit Sub
    Else
115   Liste = http.responseText
    End If
116 Set http = Nothing
'MsgBox Liste
'{"code":"USD","alphaCode":"USD","numericCode":"840","name":"U.S. Dollar","rate":1.1652270771017,"date":"Thu, 5 Jul 2018 00:00:01 GMT","inverseRate":0.73651036638205},"gbp":{"code":"GBP","alphaCode":"GBP","numericCode":"826","name":"U.K. Pound Sterling","rate":0.88154654761594,"date":"Thu, 5 Jul 2018 00:00:01 GMT","inverseRate":0.97351844187397},"jpy":{"code":"JPY","alphaCode":"JPY","numericCode":"392","name":"Japanese Yen","rate":128.81482993197...
suite:
If Not Mode_debug Then On Error GoTo err 'Pour info ma gestion d'erreur standard nécessite de numéroter les lignes comme au 20e siècle !
120 If Liste > "" Then
122   rado.Open "SELECT * FROM devises WHERE code3<>'EUR' order by code3;", cnx, adOpenStatic
124   While Not rado.EOF
126     i = InStr(Liste, """" & rado!code3 & """:")
128     If i > 0 Then
129       While i < 30000 And Mid(Liste, i, 7) <> """rate"":"
            i = i + 1
          Wend
130       If Mid(Liste, i, 7) = """rate"":" Then
131         s = Mid(Liste, i + 7, 12)
132         If InStr(s, ",") > 1 Then s = Left(s, InStr(s, ",") - 1) 'ne prend que le texte avant la virgule
133         s = Replace(s, ".", ",")
134         If IsNumeric(s) And s > "0" Then
136           currentDB.Execute "UPDATE devises SET taux=" & Num(1 / s, 6) & ", Dmodif=date() WHERE code3='" & rado!code3 & "'", dbfailonerror
138           nb = nb + 1
        End If: End If: End If
140     rado.MoveNext
      Wend
    End If
    Set rado = Nothing
    Exit Sub
err: Call message("Erreur " & err.Number & "/" & Erl & " dans api_stock.MajDevises(statut " & nb & ") : " & err.description)
End Sub

Ah oui Num est une procédure maison qui remplace , par . décimal et arrondit à n chiffres

C'est ma 1e contribution, tout arrive

[micniv]

Bravo Nico
Voila une contribution originale et bien sympa.
Je n'en ai pas l'utilité actuellement mais je m'en vais la tester ASAP !

Cordialement

[Ric500]

Bonjour Nico,

Merci de ta contribution!

J'utilise aussi le web service FloatRates pour importer les cours de devises dans ma base de gestion commerciale, ce qui me permet de fabriquer des devis en plusieurs devises et de les facturer (vidéo ici).

J'aurais cependant une question à te poser: as-tu des informations légales concernant l'émission de devis en devises?

PS: Si çà t'intéresse, je tiens à ta disposition ma procédure d'import de devises, légèrement plus simple.

[hyperion13]

J'aurais cependant une question à te poser: as-tu des informations légales concernant l'émission de devis en devises?

Salut. D'un point de vue organisation comptable ?

[Ric500]

@hyperion13

Salut. D'un point de vue organisation comptable ?

Exactement!

Pour l'instant je stocke les valeurs en devises ET en Euros et je me sers par exemple de la valeur en Euros pour une balance agée.

[hyperion13]

Je vais me dispenser de faire une énumération des BOFIP et compagnie sur les opérations en devises étrangères.
En compta on ne retient que la parité Euro (Taux de change) et on joue avec les gains ou pertes sur le change du BC au règlement.

[Ric500]

Si je comprends bien, j'ai tout bon ?

Je n'émets vers le client qu'une facture en devises, alors que je ne considère en compta que son alter-ego en Euros au taux de change en date du devis.

Merci de ta réponse, Hyperion13, je vais quand même jeter un oeil sur ces fameux BOFIP ...

PS: Est-il possible de facturer en devises... (site officiel de l'administration française)

[Ric500]

La notion "d'avant-dernier mercredi du mois" reste un peu nébuleuse pour moi, surtout si on est dans la première quinzaine dudit mois

[hyperion13]

Dans les errements en vigueur il existe 4 méthodes pour la manipulation de la parité euro dans les documents commerciaux.
Les douanes utilisent une méthode sur laquelle tu peux te baser.
Les comptables ont leurs bibles PCG, CGI, Legifrance principalement.

[nico84]

Sans être spécialiste, c'est aussi ce que j'avais retenu : toujours stocker la contre-valeur en euros quand on émet une facture (ou un devis ?) en devise
C'est d'ailleurs pour cette raison que je n'archive pas l'historique des taux de change !

[Ric500]

Merci Hyperion13,

Je vais gratter le sujet, mais sans être comptable je sens que çà va être une partie de plaisir avec tous ces acronymes.

@Nico84,

Je stocke les changes (avec possibilité de RAZ) pour vérifier les courbes de variation des taux afin d'optimiser les achats à l'étranger.