[ Edit : suivi des versions au 19 septembre 2020 ]
Lien de téléchargement :
Bonjour,
Je vous partage ici un fichier excel (qui est en phase de développement) qui permet de récupérer les données de l'application MyPeugeot et d'en faire des statistiques.
Mon projet est une variante assez proche (j'ai piqué plein d'idées) à celui-ci : Trajets myp de MYPEUGEOT APP sous Excel toutes versions
J'ai commencé à en parler ici : https://www.forum-peugeot.com/Forum/threads/mypeugeot-communication-véhicule-app-mobile.112040/page-39#post-2544891
Il faut exporter ses données MyPeugeot en utilisant cet option :
Ça va envoyer un email avec un fichier .myp.
Pourquoi refaire un fichier qui fonctionne ?
Et bien parce que pour moi il ne fonctionne pas. Les données du fichier .myp exportés pour chaque trajets ne sont pas dans le même ordre que celui pour lequel a été conçu le fichier de vr34.
Je ne sais pas pourquoi ce n'est pas le même ordre, mais toujours est-il que ça rend l'exploitation impossible.
Mais comme le fichier de données .myp est dans un format JSON, il est possible de faire autrement qu'avec une structure figée, il suffit de "parser" les données pour les récupérer.
Pour celà je me suis aidé de cette bibliothèque de fonctions :
VBA-JSON-2.3.1
Le fichier utilisé est normalement déjà inclus dans le fichier excel.
Cependant il faut activer une référence : Microsoft Scripting Runtime afin d'ouvrir le fichier et l'utiliser.
Je précise que pour le moment ne fonctionne que ceci :
- l'importation des données dans la feuille de calcul Trajets-MyPeugeot
- les quelques calculs fait dedans.
Reste à faire :
- le remplissage de la feuille de calcul DATA,
- les graphiques.
Apparemment il y a des bugs qui font que les données ne sont pas correctement importées chez vous...
Va falloir qu'on regarde ça
Lien de téléchargement :
Dépôt GitHub : https://github.com/MilesTEG1/Importation-Excel-Donnees-MyPeugeot
Lien vers le fichier excel : https://github.com/MilesTEG1/Importation-Excel-Donnees-MyPeugeot/tree/master/FIchier XLSM
Tous vos retours sont les bienvenus, avec captures d'écran si bug il y a.
Captures d'écran du tableau et de l'erreur VBA s'il y en a une, avec aussi une capture du début du fichier de données que je vois sa structure.
Masquer votre VIN et les adresses
Voilà
++
Lien de téléchargement :
- Dépôt GitHub : https://github.com/MilesTEG1/Importation-Excel-Donnees-MyPeugeot
- Lien vers le fichier excel : https://github.com/MilesTEG1/Importation-Excel-Donnees-MyPeugeot/tree/master/FIchier XLSM
Code:
' Suivi des versions
' - V 1.5 : Multi-VIN
' - V 1.6 : Ne pas effacer les données au début
' - V 1.7 : Optimisation temps exécution
' - V 1.8 : Tableau croisé dynamique et form information avancement
' - V 1.9 : Gestion des VIN déjà connus
' - V 1.9.1 : Correction de quelques bugs, et amélioration de la feuille Accueil
' - V 1.9.2 : Correction de quelques bugs
' - V 1.9.3 : Correction de quelques bugs + Ajout de la dernière adresse d'arrivée connue pour le VIN sélectionné
' - V 1.9.4 : Ajout d'une feuille Tutoriel expliquant les différentes fonctions du fichier XLSM.
' - V 1.9.5 : Ajout d'une décimale dans l'affichage des kilométrages
Code:
' - V 2.0 : Ajout des valeurs non utilisée dans des colonnes masquées en vue de l'exportation des données en format fichier JSON
' Mise en place d'une structure de type Dictionnaire pour stocker les colonnes utilisées pour les données
' Ajout de la marque de la voiture (détectée automatiquement avec l'extension du fichier de données fourni)
' Ajout de 3 fonctions pour déterminer un temps UNIX UTC à partir d'une date DST (pour la reconstruction d'un trajet manquant)
' Ajout de nouveaux caractères accentués pour la conversion d'adresses
' Ajout d'une fonction de correction inverse des adresses en vue de la re-création d'un fichier de données à partir du tableau excel (afin de tenir compte des éventuelles modifications d'adresses par les utilisateurs).
' Ajout d'une procédure d'exporation des données dans le format JSON
' Il est à noter que lors de l'importation des données, et donc à l'exportation, certaines valeurs perdent quelque peu en précision,
' car les nombres ne peuvent avoir plus de 15 chiffres, donc ceux qui en ont plus sont arrondis à 15 chiffres en tout.
' C'est la concession à faire pour avoir les coordonnées GPS sans arrondi, donc les plus précises.
' Cela concerne les données suivantes : "consumption" et "distance"
' Ajout d'une feuille Tutoriel pour l'exportation
' - V 2.0.1 : Ajout de conversions en Double et Remplacement de . par v : CDbl(Replace( _donnée_ ), ".", ",")
' pour certaines valeurs (latitudes, longitudes, distances, startMileage, endMileage...)
' - V 2.0.2 : Modifications de l'export JSON pour avoir les tableaux d'alertes vide écrit sur une seule ligne.
' Ajout de procédures pour neutraliser les erreurs de nombre écrit dans un format texte mais pas dans tous les classeurs,
' seulement lorsque celui là s'ouvre (Voir dans ThisWorkbook)
' - V 2.0.3 : Correctif mineur sur l'utilisation de Application.ErrorCheckingOptions.NumberAsText = false dans ThisWorkbook
Code:
' - V 2.1.0 : mise en place des adresses manquantes depuis les coordonnées lat,lon
' Modification du code pour gérer quelques petites nouveautés, comme la mise en valeur des erreurs, des modifications faites aux données, de la détection d'un plein d'essence :
' -> Il a fallu trier les trajets avant d'importer les données dans le tableau.
' - V 2.1.1 : Petites correction dans la fonction d'export des données JSON
' - V 2.2 : Ajout de la compatibilité macOS
' Fix sur la détermination d'adresse manquante
' Fix sur la détermination des % de carburant restant.
' - V2.3 : Fix sur les conversions Unix timestamps vers Date locale
' Fix sur la position de la cellule sélectionnée après un effacement des données
' Déplacement des fonctions dans des modules regroupant les différents types de fonctionnalités pour le de facilité à la maintenance du code
Code:
' - V 3.0 : Refonte complète suite à nouvelle structure JSON introduit par MyMarque 1.34.2
' Ajout 3 colonnes de vérification sur les km début trajet, distance, et km début trajet + 1 en T, U et V => décalage des colonnes suivantes
' Ajout 3 colonnes pour partie EV : niveau batterie, autonomie électrique et % trajet en EV
' Ajout de plein de colonnes masquées pour pouvoir reconstituer le json
' - V 3.1 : Calcul conso kwH/100 si %trajet en EV > paramètre
Code:
' Couples de versions d'Excel & OS testées :
' - Windows 10 v1909 (18363.752) & Excel pour Office 365 Version 2003 (build 12624.20382 & 12624.20442)
' - Windows 10 v1809 & Excel 2016
' - Windows 10 v1909 & Excel 2019
' - macOS Catalina 10.15.7 & Excel 16.42 (Office 365)
Bonjour,
Je vous partage ici un fichier excel (qui est en phase de développement) qui permet de récupérer les données de l'application MyPeugeot et d'en faire des statistiques.
Mon projet est une variante assez proche (j'ai piqué plein d'idées) à celui-ci : Trajets myp de MYPEUGEOT APP sous Excel toutes versions
J'ai commencé à en parler ici : https://www.forum-peugeot.com/Forum/threads/mypeugeot-communication-véhicule-app-mobile.112040/page-39#post-2544891
Il faut exporter ses données MyPeugeot en utilisant cet option :
Ça va envoyer un email avec un fichier .myp.
Pourquoi refaire un fichier qui fonctionne ?
Et bien parce que pour moi il ne fonctionne pas. Les données du fichier .myp exportés pour chaque trajets ne sont pas dans le même ordre que celui pour lequel a été conçu le fichier de vr34.
Je ne sais pas pourquoi ce n'est pas le même ordre, mais toujours est-il que ça rend l'exploitation impossible.
Mais comme le fichier de données .myp est dans un format JSON, il est possible de faire autrement qu'avec une structure figée, il suffit de "parser" les données pour les récupérer.
Pour celà je me suis aidé de cette bibliothèque de fonctions :
VBA-JSON-2.3.1
Le fichier utilisé est normalement déjà inclus dans le fichier excel.
Cependant il faut activer une référence : Microsoft Scripting Runtime afin d'ouvrir le fichier et l'utiliser.
Je précise que pour le moment ne fonctionne que ceci :
- l'importation des données dans la feuille de calcul Trajets-MyPeugeot
- les quelques calculs fait dedans.
Reste à faire :
- le remplissage de la feuille de calcul DATA,
- les graphiques.
Apparemment il y a des bugs qui font que les données ne sont pas correctement importées chez vous...
Va falloir qu'on regarde ça
Lien de téléchargement :
Dépôt GitHub : https://github.com/MilesTEG1/Importation-Excel-Donnees-MyPeugeot
Lien vers le fichier excel : https://github.com/MilesTEG1/Importation-Excel-Donnees-MyPeugeot/tree/master/FIchier XLSM
Tous vos retours sont les bienvenus, avec captures d'écran si bug il y a.
Captures d'écran du tableau et de l'erreur VBA s'il y en a une, avec aussi une capture du début du fichier de données que je vois sa structure.
Masquer votre VIN et les adresses
Voilà
++
Dernière édition: