XLA et création de Toolbar

Bonjour,

Je me prend la tête depuis hier sur une XLA créée par un ancien collègue qui permet de voir dans Excel une Toolbar personnalisée qui se réfère dans ses actions à des macros présentes dans le code VB.

Alors tout simplement j'ai juste un bouton à y ajouter lié à une macro que j'ai créée.
Aucun problème pour créer le bouton :
clic droit / Personnaliser...
Réorganiser les commandes...
Barre d'outils / "My Toolbar"
Là, j'ajoute un bouton avec Ajouter...
Je modifie ses propriétés et je le lie à ma macro

Et tout ça marche très bien.
Mais j'ai beau enregistrer, si je ferme Excel, la XLA n'a rien retenu de mon ajout.
J'ai beau scruter le code VB partout dans cette XLA, je ne vois pas où est caché ce qui permet de voir cette Toolbar (pourtant je sais que c'est la XLA puisque j'ai ouvert cette XLA uniquement sur un poste vierge et il voit la Toolbar de mon ex-collègue)

Merci de m'expliquer comment sauvegarder mes modifications de Toolbar dans la XLA.
Tout ce que j'ai vu sur Internet ne m'a été d'aucune aide.

Bonjour à tous
Bonjour stof

Peut être une piste :

As tu coché dans "outils" / "Macros Complémentaires", l' XLA ?

Eric

Oui, bien-sûr puisque comme je l'expliquais, la Toolbar est déjà là (et fonctionne correctement en appelant les fonctions de la XLA).
Seuls les nouveaux boutons que j'ajoute (et qui fonctionnent aussi) ne sont pas conservés à la fermeture d'Excel (ne sont pas dans la XLA d'une façon qui m'échappe contrairement aux autres boutons existants de cette Toolbar)

Bonjour

Si ta barre d'outils est générée dynamiquement par programmation, tout ce que tu rajouteras ne servira à rien, car elle sera de nouveau crée à chaque fois.

PeyePo

Bonjour à tous

Quand je crée une XLA pour ajouter un bouton dans une barre de commande, je le supprime à la fermeture pour laisser un Excel propre à l'utilisateur suivant.

Quand ta xla est chargée, dans la Fenetre VBA, en haut à gauche, tu as une liste avec toutes les bibliothèques en mémoire et les classeurs ouverts
Tu cherches la XLA concernée et tu la développe en cliquant sur le signe +
Tu double click sur ThisWorkbook et tu devrais trouver la macro qui crée la barre de menu.
(tout cela si la xla n'est pas protégée)

Merci pour vos réponses.

PeyePo : cela, j'imagine bien. Mais impossible de trouver le code de création de cette Toolbar malgré mes recherches dans le code VB.
Je ne sais pas où est caché ce code dans la XLA (j'ai beau rechercher un nom de cette Toolbar dans tout le projet, rien à faire).

wilfried_42 : Je vois bien dans la fenêtre de projet ma XLA (puisque c'est là-dedans que je développe mes fonctions, y compris celle que j'appelle avec succès par mon bouton temporaire).
En revanche, s'il y a bien un 'ThisWorkbook', ce n'est pas dans mon projet XLA mais dans mon fichier Excel ouvert VBAProject(test.xls)

re:

peux tu poster la XLA, parce que toutes les xla que j'ai écrites, il y a un thisworkbook, que j'utilise souvent puisque j'ai des macros que je lances sur des gestions d'événement (modification de cellule ou sélection de cellules)

@ te lire

je sais on n'y vois rien mais on ne peut pas insérer directement l'image du bureau sur ce site et sur mon blog ça redimensionne...
On voit quand-même que je dis
"Là y'en a une (vide)" en vert et "là y'en a pas..." en haut (sur la xla) en rouge

EDIT : je vais essayer de faire mieux


http://idata.over-blog.com/0/15/63/3...re-copie-2.jpg

J'ai "trouvé"!!!!!!!!
Les guillemets sont là parce qu'il est impossible de savoir où est codé (en binaire par Microsoft) la Toolbar dans le XLA.

Mais ce que j'ai trouvé, c'est qu'il y avait :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Workbook_BeforeClose(Cancel As Boolean) Call RemoveMenubar End Sub   Sub RemoveMenubar() On Error Resume Next Application.CommandBars("MY_TOOLBAR").Delete On Error GoTo 0 End Sub

---

Et quand on commente ça, on garde bien le nouveau bouton.
Mais si on ouvre et qu'on décommente, on revoit à nouveau la toolbar sans mon nouveau bouton à l'ouverture suivante!

Et ce bout de code a sa raison d'être qui est de supprimer la Toolbar quand on ne se sert plus de la XLA... (en cas de désinstallation, l'utilisateur ne voit plus la toolbar).

Je pense que la modification que j'ai faite est en locale sur mon poste (XLB) : si c'est ça, comment diable faire enregistrer ça dans la XLA?!

Bah j'ai pas tellement avancé.

Sinon wilfried_42, effectivement si la feuille que je montre en capture a du être renommé, ça doit bien correspondre à ThisWorkbook.

Il ne reste plus qu'à savoir quoi mettre dedans pour que les données du XLB se recopient dans la XLA (si c'est comme ça que ça fonctionne).

Bonjour

essaye de remettre une procédure workbook_open, si elle plante c'est qu'elle existe déja, donc il va falloir en trouver une autre

comme activate par exemple, en testant le nom du classeur avec en static un variable qui permettra de ne lancer qu'une seule fois la procédure d'initialisation
exemple :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Workbook_SheetActivate(ByVal Sh As Object) Static mon_drapeau As Boolean If mon_drapeau = False Then Exit Sub If ActiveWorkbook.Name = "Monclasseur" Then ' Procedure de creation de ton bonton mon_drapeau = False End If End Sub

---

Citation:

---

Envoyé par wilfried_42

Bonjour

essaye de remettre une procédure workbook_open, si elle plante c'est qu'elle existe déja, donc il va falloir en trouver une autre comme activate par exemple, en testant le nom du classeur avec en static un variable qui permettra de ne lancer qu'une seule fois la procédure d'initialisation

---

Bonjour,

Workbook_open ne pose pas de problème, elle n'existe pas ailleurs.
Par contre le fond du problème, c'est qu'il n'y a pas de "procédure d'initialisation" : au niveau code, il n'y a aucune trace de création de cette toolbar.
Tout le problème est là : ça doit être du code binaire dans la XLA mais à part la référence à la toolbar dans sa destruction, rien d'autre ne la concerne dans le code :

Code:

---

1 2 3 4 5

Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Application.CommandBars("MY_TOOLBAR").Delete On Error GoTo 0 End Sub

---

Il n'y a qu'en supprimant cette fonction que je garde mon nouveau bouton après fermeture de Excel (mais comme dit précédemment, cette destruction a sa raison d'être, il faut juste que mon nouveau bouton soit traité comme ceux qui existent déjà)

Quelqu'un me dit qu'apparemment le XLA se construit à partir de fichiers frm, cls, bas... je vais quand-même pas faire du reverse engineering sur mon xla?!

re:

peux tu poster ta xla ?

@ te lire

Non, comme expliqué par MP.

je recopie la suite de la discussion pour les autres :

Citation:

---

Envoyé par wilfried_42

re:

mets une procedure workbook_open
avec un Msgbox "Regarde si la barre est construite"

tu relance ton classeur, à l'affichage du message si la barre est contruite, plus rien ne t'empêche par macro d'y ajouter des boutons

---

--> Oui mais pourquoi je m'embêterais à ajouter des boutons par macro alors que mon prédécesseur a du faire autrement puisque sinon je verrais son code de création.
C'est quand-même beaucoup plus laborieux que de créer le bouton avec les menus d'Excel (surtout pour l'image!).

Et pour répondre à ta question, au moment où le message s'affiche, la barre n'est pas encore construite. C'est donc après le workbook_open.

re:

j'ai bien reçu ta xla et je n'ai pas trouvé le code de création de la barre de menus
mais après 2 essais concluants, j'ai pu par macro dans workbook_open creer un ajout dans ta barre
histoire d'être un peu utile dans ce post, voici la macro utilisée pour créer une ligne supplémentaire.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Workbook_Open() With Application.CommandBars("MY_TOOLBAR").Controls("Générer fichier d'intégration").Controls.Add( _ Type:=msoControlButton, _ ID:=1, _ Before:=Application.CommandBars("MY_TOOLBAR").Controls("Générer fichier d'intégration").Controls.Count) .Caption = "Le menu de wilfried_42" .Tag = 1 .OnAction = "jelancequoi" End With End Sub

---

Bizarre hein?

Bon, c'est déjà ça :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Workbook_Open() Set myCB = Application.CommandBars("MY_TOOLBAR").Controls.Add(Type:=msoControlButton, Before:=Application.CommandBars("MY_TOOLBAR").Controls("Titre du bouton avant lequel insérer le nouveau").index) With myCB .Caption = "Title" .OnAction = "myFunction" .Style = msoButtonCaption End With End Sub

---