Taux de change actualisé sur Excel
Eldrid
Messages postés
126
Statut
Membre
-
eriiic Messages postés 25847 Statut Contributeur -
eriiic Messages postés 25847 Statut Contributeur -
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
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
A voir également:
- Taux de change actualisé sur Excel
- Liste déroulante excel - Guide
- Changer de dns - Guide
- Word et excel gratuit - Guide
- Comment trier par ordre alphabétique sur excel - Guide
- Comment calculer la moyenne sur excel - Guide
4 réponses
Salut le forum
Colle la macro suivante dans un module standard
Mytå
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å
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?
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?
Merci beaucoup!! :D
J'ai néanmoins un soucis: J'ai compris la logique. Pas de soucis. Cependant à l'importation de ma page web (https://fr.investing.com/currencies/exchange-rates-table je n'arrive pas à sélectionner le tableau voulu, cela m'importe toute la page (je suis sous MS Office 2010 et j'ai fait Données -> A partir du web pour importer ma page) Comment puis-je sélectionner le tableau voulu?
Merci encore.
J'ai néanmoins un soucis: J'ai compris la logique. Pas de soucis. Cependant à l'importation de ma page web (https://fr.investing.com/currencies/exchange-rates-table je n'arrive pas à sélectionner le tableau voulu, cela m'importe toute la page (je suis sous MS Office 2010 et j'ai fait Données -> A partir du web pour importer ma page) Comment puis-je sélectionner le tableau voulu?
Merci encore.
Mais je ne vois pas le tableau des valeurs, peut-être est-il réservé aux abonnés.
Dépose un fichier avec une de tes extraction et surlignes les valeurs que tu veux voir rassemblées en tableau.
Déposer le fichier xls (réduit au nécessaire et anonymisé) sur cjoint.com et coller ici le lien fourni.
Je dois m'absenter, je verrai ça ce soir.
eric
Dépose un fichier avec une de tes extraction et surlignes les valeurs que tu veux voir rassemblées en tableau.
Déposer le fichier xls (réduit au nécessaire et anonymisé) sur cjoint.com et coller ici le lien fourni.
Je dois m'absenter, je verrai ça ce soir.
eric
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.
ç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.
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
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
Wow. Merci beaucoup! Ca c'est super! Merci énormément!
Afin de pouvoir transformer les points servants de décimales des chiffres du tableau en virgules (afin de pouvoir les incorporer dans d'autres formules plus tard), j'ai pris ce code:
Sub test()
With Worksheets("Feuil1")
With .Range("B2:I9")
.Replace ".", ","
.Replace ",", "."
End With
End With
End Sub
J'aimerais néanmoins qu'il s'actualise en même temps que le tableau. C'est à dire: Quand le tableau s'actualise (toutes les 15mn), la modification des points en virgules se fassent en même temps. J'ai essayé de rajouter une ligne "RefreshPeriod = 15" mais cela ne fonctionne pas.
Merci encore!