menu

[BoB]

Bonjour,

Comment transférer un menu créé dans la barre d'outil sur différents pc ?? car cela ne se fait pas automatiquement


Et aussi pourquoi Excel ne reconnait pas les élément name et onaction?

Set newBtn = Application.CommandBars("Menu contextuel personnalisé 12092768").Controls.Add(Type:=msoControlButton, ID:=2950, before:=5)
With newBtn
.name = "Bouton Ajout de feuille"
.OnAction = "AjoutFeuille"
.Visible = True
End With


Merci d'avance

 

[Yeahou]

Bonjour Bob, le forum

remplace .name par .caption et ton code devrait passer

Cordialement, A+

 

[BoB]

Merci yeahou ca marche et pour onAction??

 

[Yeahou]

Re Bonjour Bob, le forum

Au hasard, essaye de créer ton menu avec un type:=752 au lieu de 2950 ou carrément sans le type qui est facultatif car onaction est bien spécifié et devrait fonctionner, ton problème vient peut être du type prédéfini de menu 2950 qui n'autorise pas le onaction.

A+

 

[le kid]

re yeahou

En fait c'est l'ID qui vaut 2950 et si je met 752 ca plante et c la meme chose si je met le type a 752

Vois tu autre chose ?
merci

 

[Yeahou]

Bonjour

en regardant d'un peu plus prés, tu dois essayer d'affecter une macro a un entête de menu.
le code ci dessous fonctionne chez moi, cela devrait te guider

A+

Sub essai()
On Error Resume Next
With Application.CommandBars("Worksheet Menu Bar")
If IsError(IsObject(.Controls("Menu contextuel personnalisé 12092768"))) Then Set Variable_en_Cours = .Controls.Add(Type:=msoControlPopup, before:=1): Variable_en_Cours.Caption = "Menu contextuel personnalisé 12092768"
End With
With Application.CommandBars("Worksheet Menu Bar").Controls("Menu contextuel personnalisé 12092768")
If IsError(IsObject(.Controls("Bouton Ajout de feuille"))) Then Set Variable_en_Cours = .Controls.Add(Type:=msoControlButton, ID:=752, before:=1): Variable_en_Cours.Caption = "Bouton Ajout de feuille": Variable_en_Cours.OnAction = "essai2"
End With
On Error GoTo 0
End Sub
Sub essai2()
MsgBox "ok"
End Sub