[Résolu] Erreur sur affichage du menu

[Lone-wolf]

Bonsoir,

je réouvre le post, car je croyait que le problème était résolu et j'ai mis en PJ le fichier qui cause problème.

Je ne sais pas ce qui c'est passé mais en changeant les textes dans le sous-menu Affichage au niveau de On action et Caption, j'ai une erreur dans la macro d'appel (Private Sub). Est-ce vous auriez une idée?. Comme le code à été fait sous Excel 2007, je dois modifier quelque chose?


Merci pour votre aide.

Set MyBar1 = CommandBars _
        .Add(Name:="_Affichage", Position:=msoBarPopup, Temporary:=False)
  With MyBar1
    .Controls.Add Type:=msoControlButton
    .Controls(1).FaceId = 3456
    .Controls(1).OnAction = "standard"
    .Controls(1).Caption = "Standard"
    .Controls.Add Type:=msoControlButton
    .Controls(2).FaceId = 2894
    .Controls(2).OnAction = "etendu"
    .Controls(2).Caption = "Étendu"
  End With

Private Sub Afficher_Click()
CommandBars("_Affichage").ShowPopup
End Sub

A+

 

[Lone-wolf]

Re : Erreur sur affichage du menu

Re,

Personne en ligne??


A+

 

[Lone-wolf]

Re : [Résolu] Erreur sur affichage du menu

Bonjour le Forum

Suite à une aide extérieure, le problème est résolu. Il sagissait de la ligne Application.WindowState = xlMinimized dans WorkBook qui causait problème, malgré quelques modifications apporté au code.


Très bon dimanche