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 !
priori ça a l'air cool mais j'ai pas pu tester les macros :
Code:
Sub delBO2() On Error Resume Next Application.CommandBars("MJ Utilitaire 2009").DeleteEnd Sub
Le débggeur indique une erreur de type 5. (argument ou appel de procédure incorrect)
Bizarre, sinon, regarde dans l'aide, il ya un explicatif pour XL2007.
Chez moi sur XL2007, si je crée la barre d'outils, je peux la supprimer si je clique sur Supprimer barre d'outils.
Sur XL 2007, la barre d'outils est créer dans l'onglet Compléments.
Jean-marie:
Suggestion bis: laissez le choix à l'ouverture de créer ou pas la barre d'outils
(On n'est jamais trop prudent avec ces bestioles )
Je verrai cela la semaine prochaine, mais bon si on ne crée pas de barre d'outils, je ne vois pas trop l'intérêt, car lorsqu'on quitte Excel, on peut réactiver l'utilitaire en cliquant sur le bouton Affiche ou Masque.
Sinon voir l'aide pour activer l'utilitaire avec un bouton sur XL 2003.
Mais on peut toujours supprimer la barre d'outils si on n'en veut plus.
Dernier recours dans le programme en retirant CreeBO2.
Notons que l'on peut à la fermeture,supprimer la barre d'outils en retirant le ' à 'delBO2
Code:
Private Sub Workbook_Open()
'MJ
nomactoption = ThisWorkbook.Name
'Stop
'ThisWorkbook.Names.Add Name:="MAsqueVAl", RefersTo:="=1"
'If Windows(nomactoption).Visible = True Then ThisWorkbook.Names.Add Name:="MAsqueVAl", RefersTo:="=1" Else ThisWorkbook.Names.Add Name:="MAsqueVAl", RefersTo:="=0"
Workbooks(nomactoption).Sheets(1).Cells(1, 1).Value = "ListeChemin"
Supprime_Doublons_Trie
[B]CreeBO2[/B]
lance_Raccourci2
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'MJ
'MsgBox ("ok sauve")
[B]'delBO2[/B]
ThisWorkbook.Save
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