Automatiser le processus d’analyse des données de crypto-monnaie dans Excel, Excel VBA
Voici un exemple simple de code VBA pour automatiser le processus d’analyse des données de crypto-monnaie dans Excel. Ce code permet de récupérer les données de prix en temps réel d’une crypto-monnaie à partir d’une API publique (par exemple, CoinGecko ou CoinMarketCap), puis de les afficher dans un tableau Excel.
Pré-requis :
• Vous devez disposer d’une clé API pour accéder aux données de CoinGecko ou d’une autre source API de crypto-monnaie.
• Assurez-vous que votre Excel peut utiliser les macros VBA et que l’accès à Internet est autorisé via VBA.
Étape 1 : Créez une nouvelle macro VBA
1. Ouvrez Excel.
2. Appuyez sur Alt + F11 pour ouvrir l’éditeur VBA.
3. Cliquez sur Insertion > Module pour ajouter un nouveau module.
4. Collez le code suivant dans le module.
Sub GetCryptoData()
' Variables
Dim http As Object
Dim JSON As Object
Dim coin As String
Dim url As String
Dim price As Double
Dim lastRow As Long
' Spécifier la crypto-monnaie à analyser (par exemple Bitcoin)
coin = "bitcoin" ' Vous pouvez remplacer cela par d'autres cryptos comme 'ethereum'
' URL de l'API CoinGecko (vous pouvez ajuster l'URL si nécessaire)
url = "https://api.coingecko.com/api/v3/simple/price?ids=" & coin & "&vs_currencies=usd"
' Créer un objet pour effectuer la requête HTTP
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", url, False
http.Send
' Analyser la réponse JSON
Set JSON = JsonConverter.ParseJson(http.responseText)
' Extraire le prix du coin
price = JSON(coin)("usd")
' Trouver la dernière ligne vide dans la feuille active
lastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
' Insérer la crypto-monnaie et son prix dans les cellules
Cells(lastRow, 1).Value = coin
Cells(lastRow, 2).Value = price
Cells(lastRow, 3).Value = Now() ' Ajouter la date et l'heure de l'actualisation
MsgBox "Données récupérées et ajoutées avec succès !", vbInformation
End Sub
Explication du code :
1. Objet HTTP(MSXML2.XMLHTTP) : Cet objet est utilisé pour envoyer une requête HTTP à l’API publique. Il reçoit les données en format JSON.
2. URL de l’API CoinGecko : L’URL est utilisée pour récupérer les prix d’une crypto-monnaie. L’API retourne des informations sur plusieurs cryptos, mais ici on se concentre uniquement sur le prix en USD du Bitcoin.
3. Analyse de la réponse JSON : Une fois les données reçues, le code utilise un parseur JSON (qu’il faut télécharger et inclure dans votre projet VBA, comme le module JsonConverter de GitHub) pour extraire les informations pertinentes.
4. Insertion des données dans Excel : Le code insère le nom de la crypto-monnaie, son prix et la date/heure d’actualisation dans la première ligne vide d’une feuille Excel.
Étape 2 : Ajouter un module JSON (si nécessaire)
Pour traiter les données JSON, vous devez inclure une bibliothèque pour la gestion du JSON. Voici comment faire :
1. Téléchargez le fichier JsonConverter.bas depuis ce dépôt GitHub.
2. Dans l’éditeur VBA, cliquez sur Fichier > Importer un fichier et importez le fichier JsonConverter.bas.
Étape 3 : Utilisation du code
1. Pour exécuter la macro, appuyez sur Alt + F8, sélectionnez GetCryptoData, puis cliquez sur Exécuter.
2. Le prix de la crypto-monnaie sera récupéré et ajouté dans la feuille Excel à la première ligne vide.
Résultat attendu :
Une nouvelle ligne sera ajoutée à votre tableau avec :
• Colonne 1 : Nom de la crypto-monnaie (ex : Bitcoin)
• Colonne 2 : Prix de la crypto-monnaie (ex : 50000 USD)
• Colonne 3 : Date et heure de la mise à jour.
Conclusion :
Ce code offre un point de départ pour automatiser la récupération et l’analyse des données de crypto-monnaie dans Excel. Vous pouvez l’étendre pour ajouter plus de cryptos, analyser des données supplémentaires (comme le volume ou la variation de prix), et même créer des graphiques ou des alertes basées sur les données récupérées.