Utilitaire à tester

[MJ13]

Bonjour à tous

J'ai fait un utilitaire à tester.

Si vous pouvez me donner votre avis (bugs rencontrés, intérêt de la chose...).

Merci d'avance.

Voir ICI.​

 

[Staple1600]

Re : Utilitaire à tester

Bonsoir MJ13



Voir ou ? 😉

EDITION: trop rapide 😉, ton rajout du lien hypertexte

 

[newpixi]

Re : Utilitaire à tester

Hello MJ13,

A priori ça a l'air cool mais j'ai pas pu tester les macros :

Sub delBO2()
  On Error Resume Next
  Application.CommandBars("MJ Utilitaire 2009").Delete
End Sub

Le débggeur indique une erreur de type 5. (argument ou appel de procédure incorrect)

J'utilise 2007, le bug vient peut-être de là.

La page des raccourcis est super intéressante, je vais m'envoyer ca au boulot 😀

Merci !

 

[Staple1600]

Re : Utilitaire à tester

Bonsoir à tous, MJ13 re


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 )

 

[MJ13]

Re : Utilitaire à tester

Bonjour Jean-Marie, Newpixi

Merci pour les tests.

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)

J'utilise 2007, le bug vient peut-être de là.

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

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

Bonne soirée.

 

[Staple1600]

Re : Utilitaire à tester

Re


Quand je disais laisser le choix

Je voulais dire afficher une MsgBox (YesNo) du style

"Voulez-vous créer la barre d'outils ... OUI NON ? "

Les utilisateurs "prudents" comme moi répondront non , les autres oui.


PS: Pas défaut, mon Excel désactive les macros à l'ouverture