XL 2019 demande d'aide et ds'assistance

[hermassi wajdi]

bonjour
je cherche comment insérer sur excel un tableau de conversion de devises actualisable lié avec internet pour mettre à jour les prix sur mes feuilles de calcul
ça sera un grand service et merci beaucoup d'avance ​

 

[sylvanu]

Bonjour Hermassi,
En provenance de https://www.commentcamarche.net/forum/affich-26766009-taux-de-change-actualise-sur-excel, un bout de code qui donne les change de USD, EUR,GBP, JPY, CHF, CAD, AUD, NZD :

Sub TauxChange()
    ActiveSheet.Cells.Delete
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.forexpros.fr/quotes/tableau-de-taux-de-change", Destination:=Range("A1"))
            .Name = "Taux_Change"
            .FieldNames = True
            .RowNumbers = False
            FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlOverwriteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlSpecifiedTables
            .WebTables = "1"
            .WebFormatting = xlWebFormattingAll
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=True
            .RefreshPeriod = 10
    End With
End Sub

Testé, il marche bien.

 

[sylvanu]

et avec : "URL;https://fr.investing.com/currencies/single-currency-crosses", Destination:=Range("A1"))
on dispose de plus de conversions.