quelqu'un peut-il m'indiquer comment attacher une barre d'outils à un
fichier par l'intermédiaire d'une macro ?
J'ai construit un menu dynamique dans une barre d'outils personnalisée et je
souhaite attacher cette barre au fichier à chaque fois que le menu situé
dans cette barre est modifié.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
RGI
Bonsoir
tu crées ta barre dans Thisworkbook
Private Sub Workbook_Open()
' Création de la barre personnalisée Application.CommandBars.Add(Name:="Ma barre").Visible = True With Application.CommandBars("Ma barre") .Position = msoBarTop End With
' Ajout d'un bouton Application.CommandBars("Ma barre").Controls.Add Type:=msoControlButton, ID:)50, Before:=1 With Application.CommandBars("Ma barre").Controls(1) .Caption = "ce que tu veux" '.FaceId = 23 .FaceId = 455 .TooltipText = "Ce que tu veux" .BeginGroup = False .DescriptionText = "Ma barre : ce que tu veux" .OnAction = "TaMacro" End With
End Sub
' Ne pas oublier de détruire la barre à la fermeture ! comme ceci
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Ma barre").Delete End Sub
Salutations
Gilbert
Bonjour,
quelqu'un peut-il m'indiquer comment attacher une barre d'outils à un fichier par l'intermédiaire d'une macro ?
J'ai construit un menu dynamique dans une barre d'outils personnalisée et je souhaite attacher cette barre au fichier à chaque fois que le menu situé dans cette barre est modifié.
D'avance merci de vos réponses.
Cordialement
Bonsoir
tu crées ta barre dans Thisworkbook
Private Sub Workbook_Open()
' Création de la barre personnalisée
Application.CommandBars.Add(Name:="Ma barre").Visible = True
With Application.CommandBars("Ma barre")
.Position = msoBarTop
End With
' Ajout d'un bouton
Application.CommandBars("Ma barre").Controls.Add
Type:=msoControlButton, ID:)50, Before:=1
With Application.CommandBars("Ma barre").Controls(1)
.Caption = "ce que tu veux"
'.FaceId = 23
.FaceId = 455
.TooltipText = "Ce que tu veux"
.BeginGroup = False
.DescriptionText = "Ma barre : ce que tu veux"
.OnAction = "TaMacro"
End With
End Sub
' Ne pas oublier de détruire la barre à la fermeture ! comme ceci
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Ma barre").Delete
End Sub
Salutations
Gilbert
Bonjour,
quelqu'un peut-il m'indiquer comment attacher une barre d'outils à un
fichier par l'intermédiaire d'une macro ?
J'ai construit un menu dynamique dans une barre d'outils personnalisée et je
souhaite attacher cette barre au fichier à chaque fois que le menu situé
dans cette barre est modifié.
' Création de la barre personnalisée Application.CommandBars.Add(Name:="Ma barre").Visible = True With Application.CommandBars("Ma barre") .Position = msoBarTop End With
' Ajout d'un bouton Application.CommandBars("Ma barre").Controls.Add Type:=msoControlButton, ID:)50, Before:=1 With Application.CommandBars("Ma barre").Controls(1) .Caption = "ce que tu veux" '.FaceId = 23 .FaceId = 455 .TooltipText = "Ce que tu veux" .BeginGroup = False .DescriptionText = "Ma barre : ce que tu veux" .OnAction = "TaMacro" End With
End Sub
' Ne pas oublier de détruire la barre à la fermeture ! comme ceci
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Ma barre").Delete End Sub
Salutations
Gilbert
Bonjour,
quelqu'un peut-il m'indiquer comment attacher une barre d'outils à un fichier par l'intermédiaire d'une macro ?
J'ai construit un menu dynamique dans une barre d'outils personnalisée et je souhaite attacher cette barre au fichier à chaque fois que le menu situé dans cette barre est modifié.
D'avance merci de vos réponses.
Cordialement
michdenis
Bonjour Jean-Michel,
Je ne connais pas de code qui "attache" une barre d'outils au classeur.
Tu dois faire cela manuellement à partir de la fenêtre "personnaliser" et le bouton "attacher".
Dans le ThisWorkbook, tu peux ajouter quelque chose comme ceci pour t'assurer de retrouver ta barre d'outils toujours à la même place ...
'----------------------------- Private Sub Workbook_Open()
With Application.CommandBars("denis") .Position = msoBarTop .Enabled = True .Visible = True .Protection = msoBarNoChangeVisible + msoBarNoMove End With End Sub '-----------------------------
Salutations!
"Jean-Michel" a écrit dans le message de news: Bonjour,
quelqu'un peut-il m'indiquer comment attacher une barre d'outils à un fichier par l'intermédiaire d'une macro ?
J'ai construit un menu dynamique dans une barre d'outils personnalisée et je souhaite attacher cette barre au fichier à chaque fois que le menu situé dans cette barre est modifié.
D'avance merci de vos réponses.
Cordialement
Bonjour Jean-Michel,
Je ne connais pas de code qui "attache" une barre d'outils au classeur.
Tu dois faire cela manuellement à partir de la fenêtre "personnaliser" et le bouton "attacher".
Dans le ThisWorkbook, tu peux ajouter quelque chose comme ceci pour t'assurer de retrouver ta barre d'outils toujours à la même
place ...
'-----------------------------
Private Sub Workbook_Open()
With Application.CommandBars("denis")
.Position = msoBarTop
.Enabled = True
.Visible = True
.Protection = msoBarNoChangeVisible + msoBarNoMove
End With
End Sub
'-----------------------------
Salutations!
"Jean-Michel" <jeanmichel.celier@wanadoo.fr> a écrit dans le message de news: OXrOtsgvFHA.3860@TK2MSFTNGP09.phx.gbl...
Bonjour,
quelqu'un peut-il m'indiquer comment attacher une barre d'outils à un
fichier par l'intermédiaire d'une macro ?
J'ai construit un menu dynamique dans une barre d'outils personnalisée et je
souhaite attacher cette barre au fichier à chaque fois que le menu situé
dans cette barre est modifié.
Je ne connais pas de code qui "attache" une barre d'outils au classeur.
Tu dois faire cela manuellement à partir de la fenêtre "personnaliser" et le bouton "attacher".
Dans le ThisWorkbook, tu peux ajouter quelque chose comme ceci pour t'assurer de retrouver ta barre d'outils toujours à la même place ...
'----------------------------- Private Sub Workbook_Open()
With Application.CommandBars("denis") .Position = msoBarTop .Enabled = True .Visible = True .Protection = msoBarNoChangeVisible + msoBarNoMove End With End Sub '-----------------------------
Salutations!
"Jean-Michel" a écrit dans le message de news: Bonjour,
quelqu'un peut-il m'indiquer comment attacher une barre d'outils à un fichier par l'intermédiaire d'une macro ?
J'ai construit un menu dynamique dans une barre d'outils personnalisée et je souhaite attacher cette barre au fichier à chaque fois que le menu situé dans cette barre est modifié.
