V i n c e n t
XLDnaute Nouveau
Bonjour à toutes et tous,
J'ai besoin de votre aide pour une petite astuce concernant une macro.
J'ai créé 2 nouveaux boutons dans la barre d'outils Excel et j'ai un petit souci concernant l'apparation de ces boutons sur tout les fichiers Excel ouverts.
De plus, plusieurs fichiers contienent ces boutons et si j'en ouvre plusieurs cela ajoute 2 boutons à chaque ouverture.
Donc, comment limiter la macro au classeur actif ?
J'ai essayé plusieurs trucs mais sans succès.
Merci d'avance pour votre aide.
Vincent.
J'ai besoin de votre aide pour une petite astuce concernant une macro.
J'ai créé 2 nouveaux boutons dans la barre d'outils Excel et j'ai un petit souci concernant l'apparation de ces boutons sur tout les fichiers Excel ouverts.
De plus, plusieurs fichiers contienent ces boutons et si j'en ouvre plusieurs cela ajoute 2 boutons à chaque ouverture.
Donc, comment limiter la macro au classeur actif ?
J'ai essayé plusieurs trucs mais sans succès.
Merci d'avance pour votre aide.
Vincent.
Code:
Private Sub Boutons()
Set barremenu = ThisWorkbook.Application.CommandBars("Worksheet Menu Bar")
Set mesboutons = barremenu.Controls.Add
With mesboutons
.Caption = "DEMARRER LE CALCUL"
.FaceId = 960
.Style = msoButtonIconAndCaption
.OnAction = "Calcul"
.TooltipText = "Démarrage du calcul automatique"
.BeginGroup = True
End With
Set mesboutons = barremenu.Controls.Add
With mesboutons
.Caption = "ARRETER LE CALCUL"
.FaceId = 283
.Style = msoButtonIconAndCaption
.OnAction = "PasCalcul"
.TooltipText = "Arrêt du calcul automatique"
End With
End Sub
Code:
Private Sub Workbook_Open()
Application.Run "Boutons"
End Sub