Discussion :

[galopin01]

bonjour,
Pour résumer hein...
On dispose d'une .xlam qui installe un onglet supplémentaire dans le ruban.
Pour cela il est fait usage du Custom UI Editor.
Cet onglet ne comporte qu'un bouton dont la fonction de callback est de lancer une macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   Cancel = True
   Test
End Sub
Sub objRuban(ribbon As IRibbonUI)
   Set MonRuban = ribbon
End Sub
'Callback for button01 onAction
Sub Action(control As IRibbonControl)
Test
End Sub
Sub Test()
MsgBox "Ok"
End Sub

La xlam fonctionne correctement.

Je voudrais maintenant ajouter une fonctionnalité qui permettrait d'éviter le cas échéant d'utiliser la fonction de Callback et d'appeler la fonction "Test" directement depuis le classeur de travail, à partir d'une Private Sub Worksheet_BeforeRightClick par exemple.
Apparemment c'est impossible (avec run ou call)
Application.run ne "voit" pas la Sub Test()
Avec vous une idée ?
A+

[Jean-Philippe André]

Salut,

il faut que ta sub test soit dans un module

(et de portée public)

[galopin01]

Bonsoir,
Merci de t'intéresser à ce sujet.
Toutes les macros sont dans le même module (Module1 de la xlam)

Une autre idée ?
A+

[Jean-Philippe André]

Je commencerai par enlever les parenthèses

Ton fichier xlam est il bien à cet endroit ?
Ton xlam est-il chargé dans ton classeur ?

si tu fais une sub test dans un module, ton application.Run "test" s'execute-t-il ?

[galopin01]

Re...
J'ai enlevé les parenthèse, modifié le nom du fichier xlam : Du coup le message d'erreur à changé (ce qui semble prouver que maintenant la xlam est trouvée) mais je ne suis pas plus avancé :


La macro Test est bien définie comme Public et fonctionne correctement à l'appel du callback.

A+

[Jean-Philippe André]

Le \ entre le nom de ton xlam et Test ne me plait que moyennement, peux tu le remplacer par un !