Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bouton macro barre d'outils présent dans tous mes fichiers excel
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
J'ai crée un bouton de lancement de ma macro dans la barre d'outils en haut. Mais du coup, ce bouton se retrouve dans tous mes fichiers excel.
Est -ce possible que mon bouton apparaisse seulement que dans mon fichier excel concerné par ma macro ? Merci.
Re : Bouton macro barre d'outils présent dans tous mes fichiers excel
Bonsoir,
Chez moi, on dit bonjour, sûrement....merci aussi !😡
Dans le module de ThisWorkBook...
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
KillLaBarraBoubas
End Sub
Private Sub Workbook_Open()
CreeLaBarraBoubas
End Sub
...et dans un module standard
Code:
Sub CreeLaBarraBoubas()
Dim cmdBar As CommandBar
Dim btnBar As CommandBarControl
On Error Resume Next
'ajoute une barre
Set cmdBar = CommandBars.Add(Name:="LaBarraBoubas1")
With cmdBar
.Visible = True
.Position = msoBarTop
'ajoute un bouton
Set btnBar = .Controls.Add(Type:=msoControlButton)
With btnBar
.Style = msoButtonCaption
.Caption = "ZeJoliBouton"
'la macro à activer
.OnAction = "ZeMacro"
End With
End With
End Sub
Sub KillLaBarraBoubas()
On Error Resume Next
CommandBars("LaBarraBoubas1").Delete
End Sub
Sub ZeMacro()
MsgBox "c'est le bouton de la LaBarraBoubas"
End Sub
Bonsoir,
Chez moi, on dit bonjour, sûrement....merci aussi !😡
Dans le module de ThisWorkBook...
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
KillLaBarraBoubas
End Sub
Private Sub Workbook_Open()
CreeLaBarraBoubas
End Sub
...et dans un module standard
Code:
Sub CreeLaBarraBoubas()
Dim cmdBar As CommandBar
Dim btnBar As CommandBarControl
On Error Resume Next
'ajoute une barre
Set cmdBar = CommandBars.Add(Name:="LaBarraBoubas1")
With cmdBar
.Visible = True
.Position = msoBarTop
'ajoute un bouton
Set btnBar = .Controls.Add(Type:=msoControlButton)
With btnBar
.Style = msoButtonCaption
.Caption = "ZeJoliBouton"
'la macro à activer
.OnAction = "ZeMacro"
End With
End With
End Sub
Sub KillLaBarraBoubas()
On Error Resume Next
CommandBars("LaBarraBoubas1").Delete
End Sub
Sub ZeMacro()
MsgBox "c'est le bouton de la LaBarraBoubas"
End Sub
Dim WithEvents XL As Application
Private Sub XL_WorkbookActivate(ByVal Wb As Workbook)
Application.CommandBars("LaBarraBoubas1").Visible = (Wb.Name = ThisWorkbook.Name)
End Sub
Private Sub Workbook_Open()
Set XL = Excel.Application
CreeLaBarraBoubas
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
KillLaBarraBoubas
End Sub
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD