ribbon, callback et xlam

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:

---

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+

Salut,

il faut que ta sub test soit dans un module :)

(et de portée public)

Bonsoir,
Merci de t'intéresser à ce sujet.
Toutes les macros sont dans le même module (Module1 de la xlam)
Pièce jointe 455129
Une autre idée ?
A+

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 ?

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é :
Pièce jointe 455137

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

A+

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

Bonjour,
J'ai bien mis un "!" dans le chemin mais c'est traduit comme cela dans le message d'erreur de VBA.
J'ai remarqué un phénomène curieux :
Dans un de mes nombreux tests j'ai décoché la xlam dans le ribbon "Compléments", puis je relance le classeur hôte.
Donc l'onglet n'apparait plus dans le ribbon.
Si j'essaie à nouveau de lancer la Sub "Test" (par Clic Droit) le ruban se modifie alors et l'onglet apparait alors comme si le complément était coché.
Mais le message d'erreur reste le même :
Pièce jointe 455189

Pourtant si on l'active alors via le ribbon le "callback" fonctionne et la Public Sub "Test" est bien appelé et fonctionne normalement...
Je précise que j'ai dans un autre complément, plus de 300 fonctions et procédures qui tournent normalement sans qu'il soit nécessaire de les invoquer avec "Application.Run". Dès lors que le complément est coché toussa fonctionne sans qu'ils soit nécessaire de spécifier le chemin.

Il semble donc qu'une xlam qui fonctionne avec des callback ne puisse pas voir ses procédures appelées directement malgré le mot clef Public ?

A+

Bonjour

Essayez avec un autrenom de fonction que Test.
Un autre objet a peut être le même nom et ça ferait des conflits

Bonjour Arkham,

J'avais déjà essayé !
J'ai quand même à nouveau réessayé avec un nom complètement improbable... On ne fait jamais trop d'essai : Mais le résultat est le même !

A+

Bonjour,
Et tu as essayé sans mettre le chemin complet vers le xlam ?

Code:

---

Application.Run "CalendrierRuban.xlam!Test"

---

Citation:

---

Envoyé par zenpbb

Bonjour,
Et tu as essayé sans mettre le chemin complet vers le xlam ?

Code:

---

Application.Run "CalendrierRuban.xlam!Test"

---

---

Bonjour,

Oui mais dans ce cas c'est pire ! Car il ne cherche pas ou il faut : il reste dans le répertoire de travail Excel. (Qui se trouve sur un autre lecteur)


C'est curieux d'ailleurs parce si je compare avec mes autres procédures qui se trouvent dans un autre Complément Excel, je n'ai pas besoin de préciser le chemin quand je les invoque : Le programme les détecte parfaitement.
C'est ce qui me fait dire qu'il ne me semble pas possible d'invoquer une procédure faisant partie d'une xlam comportant des callbacks.
Par contre si j'insère une fonction perso dans cette xlam j'arrive à l'utiliser sur la feuille : Elle est vue et détectée sans problème.

D'autre part si j'essaie de renommer ma Sub Test en Fonction elle est exécuté normalement par le ruban (callback) mais toujours pas trouvé lors d'un appel direct par Clic Droit...

A+

Bonjour

Je pense que pour appeler d'un autre fichier directement ta procédure
tu dois avoir référence dans la fichier xlsm ou xls ton fichier xlam

dans le vba
Outils/Reference.
et tu coches ton fichier XLAM

bonne journée

Bonjour,

Bingo ! Bien vu !

Merci