Problème avec With Application.CommandBars récent (suite mise à jour Excel ?)

Question

Bonjour,

Je développe très modestement depuis de nombreuses années sur un PC avec Microsoft Office Pro Plus 2019. Depuis quelques semaines, au lancement d'Excel, j'ai un plantage : erreur d’exécution 5 , Argument ou appel de procédure incorrect. Une mise à jour qui a changé quelque chose ? ??

*

Si je clique sur Fin au lieu de déboguer, alors Excel s'ouvre et toutes les macros associées à mes boutons de la barre développeur fonctionnent.

Si je clique sur de déboguer, alors c'est la ligne en gras ci-dessous qui pose problème

Pourriez-vous m'aider ?

Merci d'avance !

Private Sub Workbook_Open() 'Affectation automatique des macro à l'ouverture du classeur
Dim CmdB As CommandBarButton
With Application.CommandBars("CyrilleMacro")
.Controls(1).OnAction = "StatistiquesDialog"
.Controls(2).OnAction = "MultDivCellule"
.Controls(3).OnAction = "AddSubstractCellule"
.Controls(4).OnAction = "SecondeHeure"
.Controls(5).OnAction = "HeureSeconde"
.Controls(6).OnAction = "ImporteOS"
.Controls(7).OnAction = "HistoClasse"
.Controls(8).OnAction = "ImportATFClampfit8"
.Controls(9).OnAction = "CalendarMaker"
.Controls(10).OnAction = "InvComplSeq"
.Controls(11).OnAction = "Complemente"
.Controls(12).OnAction = "Inverse"
End With
End Sub

Answer 1

J'ai fait ça il y a longtemps. Là, quand j'essaye d'ajouter un groupe, il l'accepte apparemment, mais il ne l'enregistre pas. Il y a peut-être un rapport ?

Si, dans une macro, tu listes les command bars disponibles, est-ce que les tiennent sont listées ? (la macro écrit sur la feuille active) :

Sub test()
Dim Ligne As Long, C As CommandBar
For Each C In Application.CommandBars
Ligne = Ligne + 1
If Not C.BuiltIn Then Cells(Ligne, 1) = C.Name
Next C
End Sub

Daniel

Answer 2

Non, jamais pratiqué le XML.

J'ai programmé ces macros il y a plus de 7 ans et je les utilise toujours car ce bug ne se produit qu'au lancement d'Excel et les macros fonctionnent.

Vous pensez que cela peut venir de la manière dont j'ai créé les boutons ?

Answer 3

Bonjour,

Tu les as donc créé avec un éditeur XML ? Si c'est le cas, je suis incompétent.

Désolé.

Daniel

Answer 4

Bonjour,

Pardon, je n'avais pas vu votre retour qui date déjà de fort longtemps...

1- Rien n'a changé dans Excel, côté utilisateur entre avant que le problème n'apparaisse et maintenant, mais restons objectif.

2- J'ai créé de longue date, en personnalisant le ruban, des boutons avec mes macros qui s'affichent donc sous le menu developpeur :

Cela répond-il à votre demande de précisions ?

Mon problème persiste malheureusement.

Merci de votre aide,

Answer 5

Bonjour,

Est-ce que la commandbar existe à l'ouverture du classeur ?

Cordialement.

Daniel