afficher ruban perso excel 2010

Bonjour,
je bute sur un problème apparemment simple.
j'ai créer un fichier devis.xlsm qui possède un ruban perso "DEVIS". (code xml créer avec Custom UI Editor For Microsoft Office)
j'arrive à afficher le ruban perso au lancement du fichier excel.

L'utilisateur du fichier jongle en permanence entre deux fichiers excel (devis.xlsm et TARIF.xlsm).
Je souhaite que quand l'utilisateur remet le fichier devis.xlsm en premier plan, le ruban perso soit activé.
Pour cela j'utilise l'événement Workbook_WindowActivate du fichier devis.xlsm

Voici le code

Code:

---

1 2 3

Private Sub Workbook_WindowActivate(ByVal Wn As Window) oRibbon.ActivateTab "DEVIS" End Sub

---

Le problème est que cela me remonte un erreur 91

Ce code marche très bien dans une feuil excel mais pas dans ThisWorkbook

si quelqu'un a une idée géniale, je suis preneur
...
autrement je vais finir crazy:zoubi:

merci de votre aide

bonsoir,

ou ta variable oRibbon est-elle déclarée ?

Ma variable est déclarée dans un module voici le code

Code:

---

1 2 3 4 5 6

Public oRibbon As IRibbonUI   Sub RibbonOnLoad(Ribbon As IRibbonUI) Set oRibbon = Ribbon oRibbon.ActivateTab "DEVIS" End Sub

---