XL 2016 Ajouter un onglet au menu (ruban) propre à un fichier

MLe

XLDnaute Nouveau
Bonjour à tous,
Est-il possible de créer un onglet (ruban) propre à un fichier. L’onglet apparaît à l’ouverture du fichier et disparaît à la fermeture. Je ne sais pas si je suis clair" :)
Merci d'avance !
Max
PS: je parle bien d’un onglet (menu - ruban en haut de l’écran) et non une nouvelle feuille
 
Dernière édition:

MLe

XLDnaute Nouveau
J’ai trouvé une réponse :

Sub auto_open()
Dim barre As CommandBar
Dim bouton As CommandBarControl
On Error Resume Next
Set barre = CommandBars.Add(Name:="BarreBoutons")
barre.Visible = True

Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonIconAndCaption
bouton.TooltipText = "xxx"
bouton.FaceId = 121
bouton.OnAction = "Macro1"
bouton.Caption = "Macro1"
Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
bouton.BeginGroup = True
bouton.Style = msoButtonCaption
'bouton.Width = 100
bouton.OnAction = "Macro2"
bouton.Caption = "Macro2"
End Sub

Sub auto_close()
On Error Resume Next
CommandBars("BarreBoutons").Delete
End Sub

Sub macro1()
MsgBox "Macro1"
End Sub

Sub macro2()
MsgBox "Macro2"
End Sub

Source: http://boisgontierjacques.free.fr/pages_site/Menus.htm#BarreBoutons
 

Mattttttttttrix

XLDnaute Junior
Bonjour à tous,

Le sujet étant récent, j'en profite pour rebondir dessus plutôt que d'en créer un nouveau.

J'ai un fichier Excel.
Ce fichier contient des Macros que j'ai crée.
Dans le ruban, j'ai créé un "onglet" dans lequel j'ai crée des "groupes" qui bénéficient des dites macros.
Jusque la, tout fonctionne nickel sur ce fichier.

MAIS...

Lorsque ce même fichier est ouvert avec un autre poste, ces personnalisations disparaissent :/ .

Y-a-t-il un quelconque moyen pour que ce ruban personnalisé soit le même sur tous les postes utilisant le fichier ?

Par avance, merci.
 

Discussions similaires

Réponses
4
Affichages
263

Statistiques des forums

Discussions
311 730
Messages
2 081 989
Membres
101 856
dernier inscrit
Marina40