Discussion :

[V i n c e n t]

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
Application.Run "Boutons"
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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

[Didier Gonard]

Bonjour,

vois dans les Tutos ce qui concerne les commandbar, sans te limiter à Excel.

Le principe sera surement de créer une barre avec tes boutons à l'ouverture et de la supprimer à la fermeture de ton classeur, sinon... ellle reste.

Mieux vaut faire sa barre que de bidouiller celles par défaut sinon..

cordialement,

Didier

[ouskel'n'or]

Tu as une option qui permet de créer une barre volatile. Je te mets un extrait de l'aide :

Commandbars.Add(Name, Position, MenuBar, Temporary)
Temporary Argument de type Variant facultatif. Affectez-lui la valeur True s'il s'agit d'une barre temporaire. Les barres de commandes temporaires sont supprimées lors de la fermeture de l'application. La valeur par défaut est False.

Si tu veux les détails c'est dans CommandBars -> Add -> Méthode Add telle qu'elle s'applique à l'objet CommandBars.
Bonnes lectures

[V i n c e n t]

Merci pour vos réponses mais ce n'est pas tout à fait mon problême.

J'ai prévu de quoi supprimer les boutons à la fermeture du classeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
 
On Error Resume Next
    Application.CommandBars("Worksheet Menu Bar").Reset
 
End Sub

Mon souci reste que les boutons apparaissent dans tout les classeurs ouverts.
Et si j'ouvre 2 fichiers intégrants les nouveaux boutons, cela les fait apparaitre autant de fois.


Mon souci viendrait il du fait que j'utilise la barre excel au lieu de ma propre barre ??

J'ai essayé un truc du style ci-dessous mais sans succès.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Activeworbook = Thisworkbook.
Thisworkbook.Application.CommandBars("Worksheet Menu Bar")
etc..

[ouskel'n'or]

Mon souci viendrait il du fait que j'utilise la barre excel au lieu de ma propre barre ??

Oui ! C'est ce que sous-entendait ma réponse
Passe par une barre perso temporaire et tu n'auras plus ce pb. Rien ne t'empêche de placer ta barre là où tu veux qu'elle soit.
A+

[V i n c e n t]

Alors après un petit essai, il me semble que le problème reste le même.
La barre perso se retrouve sur tout les documents excel ouverts.

[fgiambelluco]

Bonjour
Je rejoins ouskel'n'or sur le principe.

Une façon de faire :
avec ton classeur ouvert
-tu créés une barre d'outils perso dans laquelle tu mets tes boutons
-tu attaches cette barre d'outils à ton claseuur (pas besoin de VBA ici) : ce qui veut dire que dès que le classeur s'ouvre la barre d'outils et créée
- tumets sur l'événement de fermeture de ton classeut le code qui correspond à la suppression de la barre d'outils ; du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
On Error Resume Next
Application.CommandBars("Ma barre perso").Delete
 
End Sub

Bon courage

[ouskel'n'or]

- tumets sur l'événement de fermeture de ton classeut le code qui correspond à la suppression de la barre d'outils ; du style

Avec une barre "temporaire", cette suppression devient inutile

[V i n c e n t]

c'est énervant ce truc car je suis sure que c'est une petite astuce de rien du tout pour le faire.
En tout cas la barre temporaire s'affiche dans tout les classeurs une fois activée.

[ouskel'n'or]

Montre ton code sans en changer une virgule

[Pierre Fauconnier]

Bonjour

Personnellement, je créerais la barre sur l'événement Activate du classeur et je la supprimerais sur l'événement Deactivate dudit classeur

Dans le code de Thisworkbook du classeur qui supporte les boutons

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Activate()
    CreerBoutons
End Sub
 
Private Sub Workbook_Deactivate()
    SupprimerBoutons
End Sub

Et dans un module standard du classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub CreerBoutons()
    ' ici le code qui crée les boutons
End Sub
 
Sub SupprimerBoutons()
    ' ici le code qui supprime les boutons
End Sub

[V i n c e n t]

Merci à tous pour vos réponses mais j'ai l'impression que Pierre m'a donné la solution.

Après un petit essai cela me semble fonctionnel.

Je vais vérifier dans le détail.

Merci beaucoup.

Vincent.