Discussion :

[ikalimero]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci de votre aide

[SfJ5Rpw8]

bonsoir,

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

[ikalimero]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public oRibbon As IRibbonUI
 
Sub RibbonOnLoad(Ribbon As IRibbonUI)
   Set oRibbon = Ribbon
   oRibbon.ActivateTab "DEVIS"
End Sub