Macro CreateTransMenu en double
Résolu
Qhes
Messages postés
180
Statut
Membre
-
Qhes Messages postés 180 Statut Membre -
Qhes Messages postés 180 Statut Membre -
Bonjour,
Je viens de lancer cette macro :
Sub CreateTransMenu()
Dim TransMenu As CommandBarPopup
On Error Resume Next
With Application.CommandBars(1)
Set TransMenu = .Controls.Add _
(Type:=msoControlPopup, before:=.Controls.Count)
End With
TransMenu.Caption = "Françoise"
Elle est bien fonctionnée mais je ne m'en suis appercu trop tard... j'ai relancé la macro et maintenant j'ai deux menu identique...
Je voudrais donc bien en supprimer un...
Savez vous comment procéder?
Merci d'avance
Je viens de lancer cette macro :
Sub CreateTransMenu()
Dim TransMenu As CommandBarPopup
On Error Resume Next
With Application.CommandBars(1)
Set TransMenu = .Controls.Add _
(Type:=msoControlPopup, before:=.Controls.Count)
End With
TransMenu.Caption = "Françoise"
Elle est bien fonctionnée mais je ne m'en suis appercu trop tard... j'ai relancé la macro et maintenant j'ai deux menu identique...
Je voudrais donc bien en supprimer un...
Savez vous comment procéder?
Merci d'avance
4 réponses
-
Bonjour,
Quelle appli, quelle version ?
m@rina -
-
Bonjour
Si c'est la version 2007, ça t'a donc créé un onglet Complément où tu as deux bouton "Françoise" ?
Il suffit de cliquer avec le bouton droit sur l'un des deux et choisir "Supprimer la commande personnalisée".
m@rina -
Merci beaucoup
je suis trop bête s'était pourtant logique...
merci :)
