Taux de change actualisé sur Excel Fermé

Question

Bonjour à tous, 

J'ai un petit soucis sur Excel: J'aimerais faire un tableau en 2 colonnes intitulé "Devise" et avoir les taux de changes automatisés (c'est à dire avoir en A1, 1€ et en B2 $0,75 et si le cours fluctue, cela s'automatise directement) 
Est-ce possible? Si oui, comment? J'ai beaucoup cherché sur internet mais je suis vraiment novice sur VBA (mais prête à apprendre!) 

Je vous remercie par avance. 

Bonnes fêtes de fin d'année :) ! 

PS: J'ai Microsoft Office 2010 

Configuration: Windows 7 / Chrome 23.0.1271.97

Mytå · Accepted Answer

Salut le forum

Colle la macro suivante dans un module standard


Sub WebQuery()
ActiveSheet.Cells.Delete
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://fr.investing.com/currencies/exchange-rates-table" _
        , 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 = 15
    End With
End Sub 
Mytå

eriiic · Answer

Bonjour,

un exemple sur les indices boursiers.
Il faudra que tu modifies la requête pour aller sur ton site de cours des devises.
Clic-droit sur une des valeur pour :
- 'modifier la requête'
- 'Propriétés de la plage de données externes' (actualisation) 
https://www.cjoint.com/?BLCouvJTDcN

eric

Eldrid · Answer

Bonjour,

Merci beaucoup pour ta réponse

Je vais essayer avec ta méthode. Affaire à suivre! La plage s'actualise automatiquement ou il faut passer par un code VBA pour que l'actualisation se mette en route?

eriiic · Answer

Re,      

ça serait bien que tu dises sur les autres forums ou tu as posé ta question que c'est résolu.      
Que les intervenants ne cherchent pas pour rien...      

Sans macro et en temps réel : https://www.cjoint.com/?BLCwIh9mY0E    
Pour que ça soit plus complet il faudrait rechercher une valeur repère unique (Nom ?) dans la colonne A et récupérer les données par rapport à cette position (aujourd'hui ligne 241, peut-être 245 demain...) avec un decaler(). 
Et puis rappelle-toi que les calculs que tu feras avec évolueront dans le temps. Les résultats obtenus seront différents dans 1h, dans 3 jours, dans 5 ans...  
Pour ma part c'est fini ici.     

eric      

edit: autre version avec moins de risque de perte de position (changement de ton adresse de requête) : 
https://www.cjoint.com/?BLCwZGd0bVU
       
Jamais tu ne répondras à un mp non sollicité...      
Bon, ça c'est fait.

Taux de change actualisé sur Excel

4 réponses

Discussions similaires