{"id":10797,"date":"2023-02-20T06:33:41","date_gmt":"2023-02-20T05:33:41","guid":{"rendered":"https:\/\/www.auditsi.eu\/?p=10797"},"modified":"2022-12-26T01:31:26","modified_gmt":"2022-12-26T00:31:26","slug":"excel-power-query-vba-automatiser-la-lecture-des-donnees-boursieres-yahoo-finance","status":"publish","type":"post","link":"https:\/\/www.auditsi.eu\/?p=10797","title":{"rendered":"EXCEL (Power Query & VBA) : Automatiser la lecture des donn\u00e9es boursi\u00e8res Yahoo Finance"},"content":{"rendered":"

L\u2019analyse boursi\u00e8re ou la valorisation de portefeuilles-titres<\/strong> cot\u00e9s n\u00e9cessite d\u2019obtenir les cours de bourse. Yahoo Finance<\/strong><\/a> diffuse gratuitement de nombreuses informations et actualit\u00e9s sur les indices boursiers, les taux, les cours de mati\u00e8res premi\u00e8res, de devises, d\u2019actions, d\u2019OPCVM, de trackers, de d\u00e9riv\u00e9s\u2026 Ces donn\u00e9es sont ais\u00e9ment interrogeables \u00e0 l’aide de requ\u00eates web<\/a> gr\u00e2ce \u00e0 Power Query<\/strong> (Excel). En pr\u00e9sence de portefeuilles comprenant de nombreuses lignes, l’automatisation de la collecte des donn\u00e9es boursi\u00e8res<\/strong> est pertinente.<\/p>\n

\"Graphique<\/p>\n

L’objectif de cet article est de pr\u00e9senter une solution pr\u00eate \u00e0 l’emploi qui automatise la collecte des cotations boursi\u00e8res d’une soci\u00e9t\u00e9 cot\u00e9e et la mise \u00e0 jour de leur repr\u00e9sentation graphique. Cet article s’appuie sur Power Query et les techniques de requ\u00eate web abord\u00e9s dans un pr\u00e9c\u00e9dent article<\/a>.<\/p>\n

Le programme VBA est d’un fonctionnement relativement simple.<\/p>\n

\"D\u00e9tail<\/p>\n

Dans un premier temps, le programme va lire les param\u00e8tres saisis par l’utilisateur dans la feuille de travail Excel (code valeur, dates de d\u00e9but et de fin de cotation) :<\/p>\n

'Lecture des param\u00e8tres Dans la feuille Excel\r\nCodeValeur = Sheets(\"Param\u00e8tres\").Range(\"B2\").Value\r\nDateD\u00e9but = Sheets(\"Param\u00e8tres\").Range(\"B3\").Value\r\nDateFin = Sheets(\"Param\u00e8tres\").Range(\"B4\").Value<\/pre>\n
Par exemple, le code valeur situ\u00e9 en cellule B2 est stock\u00e9 dans la variable CodeValeur \u00e0 l’aide de la commande Sheets(“Param\u00e8tres”).Range(“B2”).Value<\/em>.<\/p>\n
Dans un second temps, les dates de d\u00e9but et de fin sont calcul\u00e9es au format timestamp<\/em> UNIX (dont le principe est pr\u00e9sent\u00e9 dans l’article Lire les donn\u00e9es boursi\u00e8res Yahoo Finance \u00e0 l\u2019aide d\u2019une requ\u00eate web et de Power Query<\/a>).<\/p>\n
'Calcul des dates Unix (utilis\u00e9es par la requ\u00eate Yahoo)\r\nDateD\u00e9butUNIX = (DateD\u00e9but - DateSerial(1970, 1, 1)) * 86400\r\nDateFinUNIX = (DateFin - DateSerial(1970, 1, 1)) * 86400\r\n<\/pre>\n
Ensuite, en fonction des param\u00e8tres indiqu\u00e9s ci-avant, la requ\u00eate Yahoo Finance est calcul\u00e9e \u00e0 la vol\u00e9e (le fonctionnement des requ\u00eates web Yahoo Finance est expliqu\u00e9 dans l’article Lire les donn\u00e9es boursi\u00e8res Yahoo Finance \u00e0 l\u2019aide d\u2019une requ\u00eate web et de Power Query<\/a>) :<\/p>\n
'Calcul de la requ\u00eate Yahoo\r\nRequ\u00eateYahoo = \"https:\/\/query1.finance.yahoo.com\/v7\/finance\/download\/\" & CodeValeur & \"?period1=\" & DateD\u00e9butUNIX & \"&period2=\" & DateFinUNIX & \"&interval=1d&events=history&includeAdjustedClose=true\"<\/pre>\n
Avant de cr\u00e9er la requ\u00eate, l’ancienne est effac\u00e9e (.Delete<\/em>) :<\/p>\n
ActiveWorkbook.Queries(NomRequ\u00eate).Delete\r\n<\/pre>\n
Le texte de la requ\u00eate est d\u00e9clar\u00e9 (.Queries.Add Name:=NomRequ\u00eate, Formula:=<\/em>) :<\/p>\n
ActiveWorkbook.Queries.Add Name:=NomRequ\u00eate, Formula:= _\r\n    \"let\" & Chr(13) & \"\" & Chr(10) & _\r\n    \"    Source = Csv.Document(Web.Contents(\"\"\" & Requ\u00eateYahoo & \"\"\"),[Delimiter=\"\",\"\", Columns=7, Encoding=65001, QuoteStyle=QuoteStyle.None]),\" & Chr(13) & \"\" & Chr(10) & _\r\n    \"    #\"\"En-t\u00eates promus\"\" = Table.PromoteHeaders(Source, [PromoteAllScalars=true]),\" & Chr(13) & \"\" & Chr(10) & _\r\n    \"    #\"\"Valeur remplac\u00e9e\"\" = Table.ReplaceValue(#\"\"En-t\u00eates promus\"\",\"\".\"\",\"\",\"\",Replacer.ReplaceText,{\"\"Open\"\", \"\"High\"\", \"\"Low\"\", \"\"Close\"\", \"\"Adj Close\"\"}),\" & Chr(13) & \"\" & Chr(10) & _\r\n    \"    #\"\"Type modifi\u00e9\"\" = Table.TransformColumnTypes(#\"\"Valeur remplac\u00e9e\"\",{{\"\"Date\"\", type date}, {\"\"Open\"\", type number}, {\"\"High\"\", type number}, {\"\"Low\"\", type number}, {\"\"Close\"\", type number}, {\"\"Adj Close\"\", type number}, {\"\"Volume\"\", Int64.Type}})\" & Chr(13) & \"\" & Chr(10) & _\r\n    \"in\" & Chr(13) & \"\" & Chr(10) & _\r\n    \"    #\"\"Type modifi\u00e9\"\"\"\r\n<\/pre>\n
Puis la requ\u00eate est ex\u00e9cut\u00e9e :<\/p>\n
Sheets(\"Donn\u00e9es YAHOO\").ListObjects(NomRequ\u00eate).QueryTable.Refresh BackgroundQuery:=False\r\n<\/pre>\n
Enfin, le lien hypertexte<\/a> vers la page Yahoo Finance de la valeur et le titre du graphique sont mis \u00e0 jour :<\/p>\n
With Sheets(\"Param\u00e8tres\")\r\n    .Range(\"D1\").Value = \"=HYPERLINK(\"\"https:\/\/fr.finance.yahoo.com\/quote\/\" & .Range(\"B2\") & \"\/history\"\",\"\"Lien vers la fiche Yahoo de la valeur \"\"&B1)\"\r\n    .Range(\"D3\").Value = \"=\"\"Graphique cours de l'action \" & .Range(\"B1\") & \" :\"\"\"\r\nEnd With\r\n<\/pre>\n
Code-source VBA du programme :<\/p>\n
Option Explicit\r\n\r\nSub Yahoo()\r\n    'D\u00e9finition des variables\r\n    Dim NomRequ\u00eate As String\r\n    Dim CodeValeur As String\r\n    Dim DateD\u00e9but As Long\r\n    Dim DateFin As Long\r\n    Dim DateD\u00e9butUNIX As Long\r\n    Dim DateFinUNIX As Long\r\n    Dim Requ\u00eateYahoo As String\r\n    \r\n    NomRequ\u00eate = \"YAHOO\"\r\n    \r\n    'Lecture des param\u00e8tres Dans la feuille Excel\r\n    CodeValeur = Sheets(\"Param\u00e8tres\").Range(\"B2\").Value\r\n    DateD\u00e9but = Sheets(\"Param\u00e8tres\").Range(\"B3\").Value\r\n    DateFin = Sheets(\"Param\u00e8tres\").Range(\"B4\").Value\r\n    \r\n    'Calcul des dates Unix (utilis\u00e9es par la requ\u00eate Yahoo)\r\n    DateD\u00e9butUNIX = (DateD\u00e9but - DateSerial(1970, 1, 1)) * 86400\r\n    DateFinUNIX = (DateFin - DateSerial(1970, 1, 1)) * 86400\r\n    \r\n    'Calcul de la requ\u00eate Yahoo\r\n    Requ\u00eateYahoo = \"https:\/\/query1.finance.yahoo.com\/v7\/finance\/download\/\" & CodeValeur & \"?period1=\" & DateD\u00e9butUNIX & \"&period2=\" & DateFinUNIX & \"&interval=1d&events=history&includeAdjustedClose=true\"\r\n    \r\n    ActiveWorkbook.Queries(NomRequ\u00eate).Delete\r\n    ActiveWorkbook.Queries.Add Name:=NomRequ\u00eate, Formula:= _\r\n        \"let\" & Chr(13) & \"\" & Chr(10) & _\r\n        \"    Source = Csv.Document(Web.Contents(\"\"\" & Requ\u00eateYahoo & \"\"\"),[Delimiter=\"\",\"\", Columns=7, Encoding=65001, QuoteStyle=QuoteStyle.None]),\" & Chr(13) & \"\" & Chr(10) & _\r\n        \"    #\"\"En-t\u00eates promus\"\" = Table.PromoteHeaders(Source, [PromoteAllScalars=true]),\" & Chr(13) & \"\" & Chr(10) & _\r\n        \"    #\"\"Valeur remplac\u00e9e\"\" = Table.ReplaceValue(#\"\"En-t\u00eates promus\"\",\"\".\"\",\"\",\"\",Replacer.ReplaceText,{\"\"Open\"\", \"\"High\"\", \"\"Low\"\", \"\"Close\"\", \"\"Adj Close\"\"}),\" & Chr(13) & \"\" & Chr(10) & _\r\n        \"    #\"\"Type modifi\u00e9\"\" = Table.TransformColumnTypes(#\"\"Valeur remplac\u00e9e\"\",{{\"\"Date\"\", type date}, {\"\"Open\"\", type number}, {\"\"High\"\", type number}, {\"\"Low\"\", type number}, {\"\"Close\"\", type number}, {\"\"Adj Close\"\", type number}, {\"\"Volume\"\", Int64.Type}})\" & Chr(13) & \"\" & Chr(10) & _\r\n        \"in\" & Chr(13) & \"\" & Chr(10) & _\r\n        \"    #\"\"Type modifi\u00e9\"\"\"\r\n    Sheets(\"Donn\u00e9es YAHOO\").ListObjects(NomRequ\u00eate).QueryTable.Refresh BackgroundQuery:=False\r\n     \r\n    With Sheets(\"Param\u00e8tres\")\r\n        .Range(\"D1\").Value = \"=HYPERLINK(\"\"https:\/\/fr.finance.yahoo.com\/quote\/\" & .Range(\"B2\") & \"\/history\"\",\"\"Lien vers la fiche Yahoo de la valeur \"\"&B1)\"\r\n        .Range(\"D3\").Value = \"=\"\"Graphique cours de l'action \" & .Range(\"B1\") & \" :\"\"\"\r\n    End With\r\nEnd Sub\r\n<\/pre>\n
Le classeur Excel comprenant le programme en VBA est t\u00e9l\u00e9chargeable ci-apr\u00e8s.<\/p>\n
Pour approfondir le sujet de l’automatisation de la manipulation de donn\u00e9es avec Power Query et le Langage M : cf l’article Automatiser l\u2019extraction des tableaux de donn\u00e9es d\u2019un fichier PDF<\/a>.<\/p>\n
Il est \u00e9galement possible d’obtenir des cotations boursi\u00e8res par l’interm\u00e9diaire d’une API<\/a> (Application Programming Interface<\/em> ou interface de programmation applicative). Malheureusement, Yahoo a d\u00e9sactiv\u00e9 la sienne. Un autre site, Marketstack.com<\/a>, en propose une dont les donn\u00e9es sont accessible gratuitement. Pour collecter des donn\u00e9es \u00e0 partir d’une API, cf l’exemple d\u00e9velopp\u00e9 autour de celle de Pappers<\/a>.<\/p>\n
___<\/p>\n
Approfondir le sujet : tous les articles sur la bourse<\/a><\/p>\n
2.13.0.0<\/div>\n
2.13.0.0<\/div>\n
2.13.0.0<\/div>\n
2.13.0.0<\/div>\n
2.13.0.0<\/div>\n
2.13.0.0<\/div>\n
2.13.0.0<\/div>\n
2.13.0.0<\/div>\n
2.13.0.0<\/div>\n
2.13.0.0<\/div>\n
2.13.0.0<\/div>\n
2.13.0.0<\/div>\n
2.13.0.0<\/div>\n
2.13.0.0<\/div>\n
2.13.0.0<\/div>\n
2.13.0.0<\/div>\n
2.13.0.0<\/div>\n
2.13.0.0<\/div>\n
\"Share<\/a>