Excel vba : Utilisation macro complémentaire

Question

J'ai un projet TEST.XLA avec une fonction dans un module

Function FCTmacro_XLA(INTa As Integer) As String
    INTa = 50
    FCTmacro_XLA = "TESTOK"
End Function

Dans mon projet TEST.XLS, je fais appel à la fonction du XLA après l'avoir charger. Je voudrais récupérer INTa et FCTmacro_XLA sans passer par des cellules dans le sub test().

sub test()
Workbooks.Open Filename:="TEST.xla", _Editable:=False
INTa=10
Run "TEST.XLA!FCTmacro_XLA", INTa
end sub

J'arrive à exécuter la fonction mais je ne récupère rien du tout. (INTa=10)
Y-a-t-il un autre moyen pour l'appeler?

D'avance merci.
GTY.

cs_PROGRAMMIX · Answer

Dans l'aide en ligne VBA d'Excel, j'ai trouvé l'exemple suivant
pour l'utilisation de RUN

+++++++++++++++++++
Run, méthode - Exemple

Cet exemple montre comment appeler la fonction macro My_Func_Sum, qui est définie dans la feuille macro MyCustom.xlm (cette dernière doit être ouverte). Dans cet exemple, la fonction accepte deux arguments numériques, 1 et 5.

mySum = Application.Run("MYCUSTOM.XLM!My_Func_Sum", 1, 5)
MsgBox "Macro result: " & mySum
++++++++++++++++++

D'après ce que je vois, la fonction renvoie la valeur dans une variable ; ce qui ne semble pas être le cas dans ton bout de code.

Programmix

Excel vba : Utilisation macro complémentaire

1 réponse

Discussions similaires