Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Problème de version sur macro Excel 2010 - 2021

mamarus1

XLDnaute Nouveau
Bonjour Le Forum,
Je me retrouve avec 2 problèmes sur un fichier qui me permet par le biais d'une macro de récupérer les données d'une course de chevaux.
1 èr problème :
celui ci tournait sous excel 2010 et fonctionné très bien, depuis hier je suis passé à la version excel 2021 et lorsque je lance la macro celui ci plante il m’annonce comme message : " Le composant n'est pas enregistré correctement ".
2 ème problème :
Lorsqu'il fonctionnait, il m'importait d'une adresse API les données d'une courses sous forme d'un tableau mais pour une raison que j'ignore n'importait pas la donnée "Musique" qui apparait vierge sur le fichier ( colonne I ) en regardant sur le code VBA de la macro, il est inscrit :
.Cells(i, 9).Value = Cheval.Musique, alors que toutes les autres variables la 1 ère lettre après le . est en minuscule !, j'ai tenté de le modifier, en vain, il se remet systématiquement en Majuscule. Le problème vient t'il de là ?
je joins le fichier en exemple.
Si quelqu'un pouvait se pencher sur ces 2 problèmes, je l'en remercie par avance;
Cordialement,
Mamarus
 

Pièces jointes

  • Import_Course.xlsm
    111.6 KB · Affichages: 7

gbinforme

XLDnaute Impliqué
Bonjour,
Il te faudrait renommer ta fonction "Musique" qui as le même nom que ta rubrique et VBA n'aime pas avoir des noms identiques.
Cela peut empêcher la version 2021 de s'exécuter.
 

mamarus1

XLDnaute Nouveau
Bonjour,

Il te faudrait renommer ta fonction "Musique" qui as le même nom que ta rubrique et VBA n'aime pas avoir des noms identiques.
Cela peut empêcher la version 2021 de s'exécuter.
Bonjour gbinforme,
Merci de s'être intéressé à mon sujet, j'ai tenté de modifier la variable en la renommant cheval.musike, mais rien n'y fait, il me met un message :" Erreur d’exécution 429 , Un composant Active X ne peut pas créer d'objet "
Et comme je ne connais pas grand chose au VBA ..
Cordialement,
Mamarus
 

gbinforme

XLDnaute Impliqué
bonsoir
j'ai tenté de modifier la variable en la renommant cheval.musike
Cela ne peut pas servir à corriger car ta rubrique récupérée sur le web s'appelle musique.
Par contre tu ne peux pas la mettre en minuscules car tu as une fonction VBA qui s'appelle "Musique" et qui donc est définie prioritairement.
Ton code ne peut pas fonctionner avec 2 objets ayant le même nom.
 

mamarus1

XLDnaute Nouveau
Bonjour,
Nickel, c'est exactement ce que souhaitais, cela va permettre de mettre en place des choses, cependant en partant de cette lecture de musique qui est brut en l'état, N' y a t'il pas la possibilité d'extraire uniquement chaque chiffre pour le mettre dans une plage de cellule un peu plus loin ( colonne BF20 à BK 40 ), on se contentera d'extraire les 6 1èrs chiffres uniquement. c'est ce qu'on appelle une musique épurée. On enlève les lettres, les parenthèses ainsi que le contenu de la parenthèse
Exemple : 0p2p8p1p(23)6p1p1p1p1p ( pour le N° 1 ) Le résultat final donnera cela :
0 2 8 1 6 1 Nous mettrons alors en cellule BF20 le 0 en BG20 le 2 en BH20 le 8 etc... jusqu'à concurrence des 6 pour chaque N°, il peut arriver parfois qu'il y en ai moins, dans ce cas on ne met rien dans les cellules ou il n' y a rien à mettre.
Cette musique épurée servira pour des calculs de type indice de forme, indice de confiance ...
Je ne sais pas si j'ai été clair, et je ne sais pas si je peux abuser de ta gentillesse
Je te remercie en tout cas pour le travail effectué.
Bien cordialement,
Mamarus
 

gbinforme

XLDnaute Impliqué
Bonjour,
Dans le cas ou cela te plairait je t'ai rajouté une colonne qui fait le calcul de la musique qui est utilisé par certains : c"est la note la plus basse qui est la meilleure bien sûr.
 

Pièces jointes

  • Import_Course.xlsm
    111.2 KB · Affichages: 1

mamarus1

XLDnaute Nouveau
Bonjour,
Merci pour le calcul, je viens de m'apercevoir d'un souci concernant la manière de retranscrire la musique, je l'ai pas vu au 1 èr abord, parce que les éléments de la musique Brut se faisaient bien au moment de la retranscription ou alors, je me suis certainement mal exprimé, ce qui est possible. je m'explique pour la modification et il y a des impératifs :
* On ne prend en compte quoi qu'il arrive que les 6 1ères musiques, on ne va pas substituer la 7 ème pour compléter la 6 ème , on se cantonne aux 6 1 ères Maxi.
* Si nous n'avons pas les 6, exemple que 4, on ne retranscrira que les 4, les cases 5 et 6 resteront vierges
A chaque retranscription dans sa cellule de destination , si nous avons des lettres, ou une année (23) qui accompagne le chiffre, on retranscrit que le chiffre extrait, sauf si l'on rencontre un 0, alors on notera 7 à la place du 0. ( j'en aurai besoin plus tard pour les Moyennes Mobiles, le 0 fausserai tout ! )
J'espère avoir été un peu plus clair et milles excuses pour la mauvaise interprétation.

Par ailleurs toujours passionné par le Turf et son potentiel je suis sur un projet qui viendrait compléter un autre que j'ai créé l'année dernière, je me débrouille à peu près sur Excel et ses formules mais comme tu le sais Nul en VBA ( j'assume mais ne désespère pas un jour )
Aussi, serait tu disposé à m'aider sur ce projet, je suis en train de le finaliser sur papier, il reprend un peu l'idée de celui ci, à savoir de l'importation de données croisé à de la Gestion d'écarts, mais je n'en dis pas plus pour l'instant ... , ou alors en MP

Bien cordialement,

Mamarus
 

gbinforme

XLDnaute Impliqué
Bonjour,
a part ton souci "théorique" sur le zéro je ne vois pas du tout le souci dont tu parles sur la ventilation de la musique.
Comme tu ne dis rien sur le calcul complet proposé je l'ai mis en commentaire.
Pour gérer la gestion des écarts il faut enregistrer les arrivées concernées et à part le côté fun de l'avoir et en connaissant bien cette gestion je doute fort que cela soit rémunérateur mais si tu y tiens pourquoi pas.
 

Pièces jointes

  • Import_Course.xlsm
    112.3 KB · Affichages: 2

Discussions similaires

Réponses
6
Affichages
205
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…