Depuis Novembre 2022 des fonctions au niveau des menus Excel ne fonctionnent plus

Question

Excel vba ne peut plus exécuter .on action (MENUS)

Erreur d'exécution '-2147467259 (80004005)'

La méthode 'OnAction' de l'objet '_CommandBarButton' a échoué.

Le programme a été créé en 2019 et fonctionnait jusqu'à Novembre 2022.

Y-a-t-il des modifications qui ont été importées par Microsoft qui font qu'elles ne fonctionnent pas?

Puis-je être aidé.

Exemple lignes de programme

Public Sub AffTOPbar()

' Initialisation Affichage des MENUS Barre des MENUS

'

Dim barreTOP As CommandBar, cbVIDE As CommandBarButton, cbMENU As CommandBarButton, Pop, CtrlB

Dim FlgSHE As Boolean, FlgTMP As Boolean, aESP As String

If Not FlgAPP Then Call ThisWorkbook.APPevent_DÉMARRE

If Application.ActiveSheet Is Nothing Then SupTOPbar: Exit Sub

If Not ExisteSheXOM Then Call SupTOPbar: Exit Sub

nomELMT = FindLastELEM

On Error Resume Next

CommandBars(FctMENtopREV).Delete

On Error GoTo 0

Set barreTOP = CommandBars.Add(Name:=FctMENtopREV, Position:=msoBarRight, temporary:=True)

Set cbVIDE = barreTOP.Controls.Add(Type:=msoControlButton)

With cbVIDE

.FaceId = 1: .Enabled = False: .Tag = vbNullString: .OnAction = vbNullString 

End With

Set cbMENU = barreTOP.Controls.Add(Type:=msoControlButton)

With cbMENU

.FaceId = 18988: .Caption = "Initialiser AFFICHAGE": .Enabled = True: .Tag = "INI": .OnAction = "InitAFF" '<=== Erreur

End With