Discussion :

[aitelhachmi]

Bonjour, Je veux saisir le symbole d'une devise dans la cellule A1 et avoir le taux de change en USD en temps réel dans la cellule B1.

Par exemple :

Cellule A1 = EUR

Cellule B1 = 1,0566 (en USD en temps réel)

Merci d'avance de me proposer une solution adaptée précisément à ma demande.

[Raccourcix]

Bonjour

Avec Excel 365 vous allez dans le menu "Données" puis "type de données", "Devises"
https://support.microsoft.com/fr-fr/...6-d9994576af23
la fonction VALEURCHAMP peut être également utile.

Stéphane.

[jurassic pork]

Hello,
pour ceux qui n'ont pas xl 365 il a moyen d'aller chercher l'information via une api, une requête web, une extraction html, sur un site. Il existe pas mal de sites qui permettent de faire cela, et sans être payants.
Exemple de requête Power query à partir du site web de Boursorama.

Code :

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

1
2
3
4
5
6
7
let
    Source = Web.Page(Web.Contents("https://www.boursorama.com/bourse/devises/taux-de-change/")),
    Data0 = Source{0}[Data],
    #"Type modifié" = Table.TransformColumnTypes(Data0,{{"Column1", type text}, {"Column2", type text}}),
    #"Colonnes renommées" = Table.RenameColumns(#"Type modifié",{{"Column1", "Devise"}, {"Column2", "Taux de change"}})
in
    #"Colonnes renommées"

Avec une fonction personnalisée en VBA utilisant une requête API http sur un site gratuit :

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
Function TauxDevise(AbrevDevIn, AbrevDevOut)
Dim ApiUrl
Dim sResponse As String
TauxDevise = ""
ApiUrl = "https://open.er-api.com/v6/latest/" & AbrevDevIn
With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", ApiUrl, False
        .send
        sResponse = .responseText
End With
With CreateObject("vbscript.regexp")
    .Pattern = AbrevDevOut & Chr(34) & ":([\d.]+)"
    If .test(sResponse) Then TauxDevise = .Execute(sResponse)(0).Submatches(0)
End With
End Function

Ami calmant, J.P