Conserver Rubrique crée pour utiliser ses macros
Bonjour,
Pour faciliter l'utilisation des macros par un utilisateur lambda, j'ai créé et renommer une rubrique "Toulouse Macro" sur la bande de ruban sur Excel et placer mes macro dessus. Lorsque j'ouvre ce fichier Excel j'ai bel et bien la rubrique "Toulouse Macro", pour faire tester les macros j'ai envoyé le fichier Excel à mon supérieur.
Malheureusement, lorsque il l'ouvre sur son Pc, la rubrique n'apparaît pas.
Je me demande s y a pas un moyen de verrouiller et conserver les rubriquer crée sur le ruban personnalisé afin que tout le monde puisse l'utiliser sans passer par la création de boutons directement sur la feuille. Voici les rubrique crée sur le ruban que j'aimerai conserver quelque soit la situation.
Je vous remercie d'avance.
Cordialement
Bonjour Gwhaou
Il faut créer ses onglets par macro à l'ouverture du classeur ou utiliser
Private Sub Workbook_Open()
Dim CmdBar As CommandBar
Dim Bouton As CommandBarButton
'Création de la barre d'outils nommée 'MaBarrePerso'
Set CmdBar = Application.CommandBars _
.Add(Name:="MaBarrePerso", Position:=msoBarTop, Temporary:=True)
'Ajout de 3 boutons dans la barre d'outils
Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
'Définit "l'image" qui va s'afficher sur le bouton
.FaceId = 133
'Définit quelle macro est associée au bouton.
'Cette macro sera lancée à chaque fois que vous cliquez sur le bouton.
.OnAction = "MaMacro1"
End With
Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.FaceId = 134
.OnAction = "MaMacro2"
End With
Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.FaceId = 135
.OnAction = "MaMacro3"
End With
CmdBar.Visible = True
End SubEt à la fermeture
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("MaBarrePerso").Delete
End SubA+
Je vous remercie, je vais essayé ceci.