J'ai créé une barre outils personnalisée, mais comment faire pour qu'elle ne
s'execute que pour ce classeur mais pas pour les autres. Si possible, je
souhaiterais que les autres classeurs soient avec les barres outils par
défaut d'Excel.
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
Denis Michon
Bonjour Catherine,
Est-ce que ta barre d'outils personnalisé a été créé avec du code ou tu as utilisé la fenêtre "Personnaliser" pour la créer ?
Salutations!
"Catherine" a écrit dans le message de news: Rebonjour,
J'ai créé une barre outils personnalisée, mais comment faire pour qu'elle ne s'execute que pour ce classeur mais pas pour les autres. Si possible, je souhaiterais que les autres classeurs soient avec les barres outils par défaut d'Excel.
Merci d'avance
Bonjour Catherine,
Est-ce que ta barre d'outils personnalisé a été créé avec du code ou tu as utilisé la fenêtre "Personnaliser" pour la créer ?
Salutations!
"Catherine" <cathe697@aol.com> a écrit dans le message de news:OruQt6CvDHA.3536@tk2msftngp13.phx.gbl...
Rebonjour,
J'ai créé une barre outils personnalisée, mais comment faire pour qu'elle ne
s'execute que pour ce classeur mais pas pour les autres. Si possible, je
souhaiterais que les autres classeurs soient avec les barres outils par
défaut d'Excel.
Est-ce que ta barre d'outils personnalisé a été créé avec du code ou tu as utilisé la fenêtre "Personnaliser" pour la créer ?
Salutations!
"Catherine" a écrit dans le message de news: Rebonjour,
J'ai créé une barre outils personnalisée, mais comment faire pour qu'elle ne s'execute que pour ce classeur mais pas pour les autres. Si possible, je souhaiterais que les autres classeurs soient avec les barres outils par défaut d'Excel.
Merci d'avance
Denis Michon
Bonjour Catherine,
Si ta barre d'outils est une barre attachée au fichier, ceci pourrait être suffisant :
à copier dans le ThisWorkbook de ton classeur :
'------------------- Private Sub Workbook_Open() Application.CommandBars("NomDeMaBarreOutils").Visible = True End Sub '------------------- Private Sub Workbook_Activate() Application.CommandBars("NomDeMaBarreOutils").Visible = True End Sub '------------------- Private Sub Workbook_Deactivate() Application.CommandBars("NomDeMaBarreOutils").Visible = False End Sub '-------------------
Si ta barre a été créé avec du code , en plus d'inclure dans un module standard, la procédure de création de ta barre , toujours dans le ThisWorkbook , tu pourrais avoir quelque chose du genre :
'------------------- Private Sub Workbook_Open()
On error resume next Application.CommandBars("NomDeMaBarreOutils").Delete AppelProcédureDeCréationDeLaBarreDoutils End Sub
'------------------- Private Sub Workbook_Activate() AppelProcédureDeCréationDeLaBarreDoutils End Sub '------------------- Private Sub Workbook_Deactivate() On error resume next Application.CommandBars("NomDeMaBarreOutils").Delete End Sub '-------------------
Salutations!
"Catherine" a écrit dans le message de news: Rebonjour,
J'ai créé une barre outils personnalisée, mais comment faire pour qu'elle ne s'execute que pour ce classeur mais pas pour les autres. Si possible, je souhaiterais que les autres classeurs soient avec les barres outils par défaut d'Excel.
Merci d'avance
Bonjour Catherine,
Si ta barre d'outils est une barre attachée au fichier, ceci pourrait être suffisant :
à copier dans le ThisWorkbook de ton classeur :
'-------------------
Private Sub Workbook_Open()
Application.CommandBars("NomDeMaBarreOutils").Visible = True
End Sub
'-------------------
Private Sub Workbook_Activate()
Application.CommandBars("NomDeMaBarreOutils").Visible = True
End Sub
'-------------------
Private Sub Workbook_Deactivate()
Application.CommandBars("NomDeMaBarreOutils").Visible = False
End Sub
'-------------------
Si ta barre a été créé avec du code , en plus d'inclure dans un module standard, la procédure de création de ta barre ,
toujours dans le ThisWorkbook , tu pourrais avoir quelque chose du genre :
'-------------------
Private Sub Workbook_Open()
On error resume next
Application.CommandBars("NomDeMaBarreOutils").Delete
AppelProcédureDeCréationDeLaBarreDoutils
End Sub
'-------------------
Private Sub Workbook_Activate()
AppelProcédureDeCréationDeLaBarreDoutils
End Sub
'-------------------
Private Sub Workbook_Deactivate()
On error resume next
Application.CommandBars("NomDeMaBarreOutils").Delete
End Sub
'-------------------
Salutations!
"Catherine" <cathe697@aol.com> a écrit dans le message de news:OruQt6CvDHA.3536@tk2msftngp13.phx.gbl...
Rebonjour,
J'ai créé une barre outils personnalisée, mais comment faire pour qu'elle ne
s'execute que pour ce classeur mais pas pour les autres. Si possible, je
souhaiterais que les autres classeurs soient avec les barres outils par
défaut d'Excel.
Si ta barre d'outils est une barre attachée au fichier, ceci pourrait être suffisant :
à copier dans le ThisWorkbook de ton classeur :
'------------------- Private Sub Workbook_Open() Application.CommandBars("NomDeMaBarreOutils").Visible = True End Sub '------------------- Private Sub Workbook_Activate() Application.CommandBars("NomDeMaBarreOutils").Visible = True End Sub '------------------- Private Sub Workbook_Deactivate() Application.CommandBars("NomDeMaBarreOutils").Visible = False End Sub '-------------------
Si ta barre a été créé avec du code , en plus d'inclure dans un module standard, la procédure de création de ta barre , toujours dans le ThisWorkbook , tu pourrais avoir quelque chose du genre :
'------------------- Private Sub Workbook_Open()
On error resume next Application.CommandBars("NomDeMaBarreOutils").Delete AppelProcédureDeCréationDeLaBarreDoutils End Sub
'------------------- Private Sub Workbook_Activate() AppelProcédureDeCréationDeLaBarreDoutils End Sub '------------------- Private Sub Workbook_Deactivate() On error resume next Application.CommandBars("NomDeMaBarreOutils").Delete End Sub '-------------------
Salutations!
"Catherine" a écrit dans le message de news: Rebonjour,
J'ai créé une barre outils personnalisée, mais comment faire pour qu'elle ne s'execute que pour ce classeur mais pas pour les autres. Si possible, je souhaiterais que les autres classeurs soient avec les barres outils par défaut d'Excel.
Merci d'avance
Maxence HUBICHE
Bonjour,
3 solutions :
1- Si ta barre d'outils est créée via l'interface utilisateur d'Excel : Application.commandBars ("LeNomDeTaBarre").visible=True/False
Sur l'évènement Open de ThisWorkbook, tu mets True Sur l'évènement BeforeClose, tu mets False
2- Si tu crées la barre d'outils en VBA Crées-la à l'ouverture du classeur, et détruis-la à la sortie
3- Si tu as créé la barre depuis l'interface, mais que tu l'aies associée à ton classeur Sur l'évènement BeforeClose, tu détruits Application.CommandBars("NomDeTaBarre")
1- Si ta barre d'outils est créée via l'interface
utilisateur d'Excel :
Application.commandBars
("LeNomDeTaBarre").visible=True/False
Sur l'évènement Open de ThisWorkbook, tu mets True
Sur l'évènement BeforeClose, tu mets False
2- Si tu crées la barre d'outils en VBA
Crées-la à l'ouverture du classeur, et détruis-la à la
sortie
3- Si tu as créé la barre depuis l'interface, mais que tu
l'aies associée à ton classeur
Sur l'évènement BeforeClose, tu détruits
Application.CommandBars("NomDeTaBarre")
1- Si ta barre d'outils est créée via l'interface utilisateur d'Excel : Application.commandBars ("LeNomDeTaBarre").visible=True/False
Sur l'évènement Open de ThisWorkbook, tu mets True Sur l'évènement BeforeClose, tu mets False
2- Si tu crées la barre d'outils en VBA Crées-la à l'ouverture du classeur, et détruis-la à la sortie
3- Si tu as créé la barre depuis l'interface, mais que tu l'aies associée à ton classeur Sur l'évènement BeforeClose, tu détruits Application.CommandBars("NomDeTaBarre")
manquerait pas un chtiot bout, maxence, dans le cas n° 3? jps
Maxence HUBICHE wrote:
Bonjour,
3 solutions :
1- Si ta barre d'outils est créée via l'interface utilisateur d'Excel : Application.commandBars ("LeNomDeTaBarre").visible=True/False
Sur l'évènement Open de ThisWorkbook, tu mets True Sur l'évènement BeforeClose, tu mets False
2- Si tu crées la barre d'outils en VBA Crées-la à l'ouverture du classeur, et détruis-la à la sortie
3- Si tu as créé la barre depuis l'interface, mais que tu l'aies associée à ton classeur Sur l'évènement BeforeClose, tu détruits Application.CommandBars("NomDeTaBarre")
manquerait pas un chtiot bout, maxence, dans le cas n° 3?
jps
Maxence HUBICHE wrote:
Bonjour,
3 solutions :
1- Si ta barre d'outils est créée via l'interface
utilisateur d'Excel :
Application.commandBars
("LeNomDeTaBarre").visible=True/False
Sur l'évènement Open de ThisWorkbook, tu mets True
Sur l'évènement BeforeClose, tu mets False
2- Si tu crées la barre d'outils en VBA
Crées-la à l'ouverture du classeur, et détruis-la à la
sortie
3- Si tu as créé la barre depuis l'interface, mais que tu
l'aies associée à ton classeur
Sur l'évènement BeforeClose, tu détruits
Application.CommandBars("NomDeTaBarre")
manquerait pas un chtiot bout, maxence, dans le cas n° 3? jps
Maxence HUBICHE wrote:
Bonjour,
3 solutions :
1- Si ta barre d'outils est créée via l'interface utilisateur d'Excel : Application.commandBars ("LeNomDeTaBarre").visible=True/False
Sur l'évènement Open de ThisWorkbook, tu mets True Sur l'évènement BeforeClose, tu mets False
2- Si tu crées la barre d'outils en VBA Crées-la à l'ouverture du classeur, et détruis-la à la sortie
3- Si tu as créé la barre depuis l'interface, mais que tu l'aies associée à ton classeur Sur l'évènement BeforeClose, tu détruits Application.CommandBars("NomDeTaBarre")
Tiens, un revenant. Ca y est, tu as fini de tremper ?
@+ FxM
sabatier wrote:
manquerait pas un chtiot bout, maxence, dans le cas n° 3? jps
Maxence HUBICHE wrote:
Bonjour,
3 solutions :
1- Si ta barre d'outils est créée via l'interface utilisateur d'Excel : Application.commandBars ("LeNomDeTaBarre").visible=True/False
Sur l'évènement Open de ThisWorkbook, tu mets True Sur l'évènement BeforeClose, tu mets False
2- Si tu crées la barre d'outils en VBA Crées-la à l'ouverture du classeur, et détruis-la à la sortie
3- Si tu as créé la barre depuis l'interface, mais que tu l'aies associée à ton classeur Sur l'évènement BeforeClose, tu détruits Application.CommandBars("NomDeTaBarre")
Tiens, un revenant. Ca y est, tu as fini de tremper ?
@+
FxM
sabatier wrote:
manquerait pas un chtiot bout, maxence, dans le cas n° 3?
jps
Maxence HUBICHE wrote:
Bonjour,
3 solutions :
1- Si ta barre d'outils est créée via l'interface
utilisateur d'Excel :
Application.commandBars
("LeNomDeTaBarre").visible=True/False
Sur l'évènement Open de ThisWorkbook, tu mets True
Sur l'évènement BeforeClose, tu mets False
2- Si tu crées la barre d'outils en VBA
Crées-la à l'ouverture du classeur, et détruis-la à la
sortie
3- Si tu as créé la barre depuis l'interface, mais que tu
l'aies associée à ton classeur
Sur l'évènement BeforeClose, tu détruits
Application.CommandBars("NomDeTaBarre")
Tiens, un revenant. Ca y est, tu as fini de tremper ?
@+ FxM
sabatier wrote:
manquerait pas un chtiot bout, maxence, dans le cas n° 3? jps
Maxence HUBICHE wrote:
Bonjour,
3 solutions :
1- Si ta barre d'outils est créée via l'interface utilisateur d'Excel : Application.commandBars ("LeNomDeTaBarre").visible=True/False
Sur l'évènement Open de ThisWorkbook, tu mets True Sur l'évènement BeforeClose, tu mets False
2- Si tu crées la barre d'outils en VBA Crées-la à l'ouverture du classeur, et détruis-la à la sortie
3- Si tu as créé la barre depuis l'interface, mais que tu l'aies associée à ton classeur Sur l'évènement BeforeClose, tu détruits Application.CommandBars("NomDeTaBarre")
parle pas de choses qui fâchent, françois-xavier... jps
FxM wrote:
Tiens, un revenant. Ca y est, tu as fini de tremper ?
@+ FxM
sabatier wrote:
manquerait pas un chtiot bout, maxence, dans le cas n° 3? jps
Maxence HUBICHE wrote:
Bonjour,
3 solutions :
1- Si ta barre d'outils est créée via l'interface utilisateur d'Excel : Application.commandBars ("LeNomDeTaBarre").visible=True/False
Sur l'évènement Open de ThisWorkbook, tu mets True Sur l'évènement BeforeClose, tu mets False
2- Si tu crées la barre d'outils en VBA Crées-la à l'ouverture du classeur, et détruis-la à la sortie
3- Si tu as créé la barre depuis l'interface, mais que tu l'aies associée à ton classeur Sur l'évènement BeforeClose, tu détruits Application.CommandBars("NomDeTaBarre")
parle pas de choses qui fâchent, françois-xavier...
jps
FxM wrote:
Tiens, un revenant. Ca y est, tu as fini de tremper ?
@+
FxM
sabatier wrote:
manquerait pas un chtiot bout, maxence, dans le cas n° 3?
jps
Maxence HUBICHE wrote:
Bonjour,
3 solutions :
1- Si ta barre d'outils est créée via l'interface
utilisateur d'Excel :
Application.commandBars
("LeNomDeTaBarre").visible=True/False
Sur l'évènement Open de ThisWorkbook, tu mets True
Sur l'évènement BeforeClose, tu mets False
2- Si tu crées la barre d'outils en VBA
Crées-la à l'ouverture du classeur, et détruis-la à la
sortie
3- Si tu as créé la barre depuis l'interface, mais que tu
l'aies associée à ton classeur
Sur l'évènement BeforeClose, tu détruits
Application.CommandBars("NomDeTaBarre")
parle pas de choses qui fâchent, françois-xavier... jps
FxM wrote:
Tiens, un revenant. Ca y est, tu as fini de tremper ?
@+ FxM
sabatier wrote:
manquerait pas un chtiot bout, maxence, dans le cas n° 3? jps
Maxence HUBICHE wrote:
Bonjour,
3 solutions :
1- Si ta barre d'outils est créée via l'interface utilisateur d'Excel : Application.commandBars ("LeNomDeTaBarre").visible=True/False
Sur l'évènement Open de ThisWorkbook, tu mets True Sur l'évènement BeforeClose, tu mets False
2- Si tu crées la barre d'outils en VBA Crées-la à l'ouverture du classeur, et détruis-la à la sortie
3- Si tu as créé la barre depuis l'interface, mais que tu l'aies associée à ton classeur Sur l'évènement BeforeClose, tu détruits Application.CommandBars("NomDeTaBarre")
manquerait pas un chtiot bout, maxence, dans le cas n° 3?
Boaheu ... nan ! :) J'ai dis de détruire l'Application.CommandBars ("Nomdelabarre"), dans le but d'éviter de détruire la ThisWorkBook.CommandBars("Nomdelabarre"), pas dans le but de fournir du code ...
Mais si c'est le code qu'il fallait mettre, j'aurais mis un truc du genre : Application.ComandBars("NomDeLaBarre").Delete
manquerait pas un chtiot bout, maxence, dans le cas n°
3?
Boaheu ... nan ! :)
J'ai dis de détruire l'Application.CommandBars
("Nomdelabarre"), dans le but d'éviter de détruire la
ThisWorkBook.CommandBars("Nomdelabarre"), pas dans le but
de fournir du code ...
Mais si c'est le code qu'il fallait mettre, j'aurais mis
un truc du genre :
Application.ComandBars("NomDeLaBarre").Delete
manquerait pas un chtiot bout, maxence, dans le cas n° 3?
Boaheu ... nan ! :) J'ai dis de détruire l'Application.CommandBars ("Nomdelabarre"), dans le but d'éviter de détruire la ThisWorkBook.CommandBars("Nomdelabarre"), pas dans le but de fournir du code ...
Mais si c'est le code qu'il fallait mettre, j'aurais mis un truc du genre : Application.ComandBars("NomDeLaBarre").Delete
