[VBA]Atteindre une fonction dans un xla

Version imprimable

27/01/2006, 10h10
boosty

[VBA]Atteindre une fonction dans un xla

Bonjour à tous !

Ce matin, j'ai trouvé une méthode intéressante mais j'ai besoin de votre aide.

J'ai suivi ce tuto-ci : http://support.microsoft.com/default.aspx?scid=kb;en-us;Q256624

=MyFunctionWrapper(2000, 18, 7.5) fonctionne bien quand on l'entre dans une cellule mais lorsque je veux appeler la fonction dans le code VBA, il met qu'il ne connait pas la fonction "Compile Error: Sub or Function Not Defined"

J'ai cherché après la solution mais je n'ai pas trouvé.

Mon code est celui du lien car j'ai testé avec leur code d'abord :)

Merci de votre aide
27/01/2006, 10h29
ouskel'n'or

Je pense qu'il manque une référence au nom de fichier de la macro complémentaire (xla)
Juste une idée. Comme j'ai déjà fait ça, je regarde si je retrouve.

A+
27/01/2006, 10h32
SilkyRoad

bonjour

tu peux tester

Code:

MsgBox Application.Run("maProcedure.XLA!MyFunctionWrapper", 2000, 18, 7.5)

bonne journée
michel
27/01/2006, 10h41
ouskel'n'or

Merci SilkyRoad, m'évite un fastidieuse recherche... :wink:
27/01/2006, 10h44
boosty

Citation:

Envoyé par SilkyRoad

bonjour

tu peux tester

Code:

MsgBox Application.Run("maProcedure.XLA!MyFunctionWrapper", 2000, 18, 7.5)

bonne journée
michel

Voilà ca marche.

Je vous remercie de m'avoir aidé.
Je met Résolu dans le titre du topic??

Bonne journée à vous !
27/01/2006, 10h56
ouskel'n'or

Non, pour mettre résolu, tu as un bouton en bas à gauche :wink:
Voilà, c'est fait...

A+
27/01/2006, 11h27
boosty

Ha voilà j'ai retiré le résolu car j'ai un problème :

Edité.

J'ai un autre problème mais je vais continuer à chercher je fais appel à vous si je ne trouve pas

Bon voilà.

J'ai un problème et je ne le comprends pas.

J'ai vérifié tous les noms et ce n'est pas ca.

Je poste le code :
Code:

1 2 3 4 5 6 7 Public Function GetAttribute(ByVal sPerNumber As String, ByVal sAttribute As String) As Variant Dim oAdd As Object Set oAdd = Application.COMAddIns.Item("SimulationToolAddIn.Connect").Object [b] GetAttribute = oAdd.GetAttributeWrapped(sPerNumber, sAttribute)[/b] Set oAdd = Nothing End Function
L'erreur se fait sur la ligne en gras et est la suivante : Run time error'13' type mismatch

Mauvais type 8O :?:

Ma fonction dans le addin :
Code:

1 2 3 4 5 6 7 8 Public Function GetAttributeWrapped(ByVal sPerNumber As String, ByVal sAttribute As String) As Variant ' Le code étant assez long, je l'ai retiré car ca ne rentre meme pas dans la fonction GetAttributeWrapped = vReturn End Function
A priori, quand je rentre 000000 comme numéro, il ne doit rien renvoyer et donc ca passe.
Par contre, quand je rentre 000002, il doit renvoyer un string, etc (=>variant) ben ca plante avec l'erreur décrire ci dessus

27/01/2006, 12h13
ouskel'n'or

Supprime ta déclaration

Citation:

Dim oAdd As Object

Je crois avoir remarqué que VBA(97) ne l'accepte pas si tu fais un set ensuite
Sans garantie, tu vérifies

A+
27/01/2006, 13h13
boosty

Citation:

Envoyé par ouskel'n'or

Supprime ta déclaration

Citation:

Dim oAdd As Object

Je crois avoir remarqué que VBA(97) ne l'accepte pas si tu fais un set ensuite
Sans garantie, tu vérifies

A+

Au fait, c'était un conflit dans les références. Microsoft DAO 3.x et Microsft ActiveX Data Objects ...

Mais bon, j'ai encore un problème.
Lorsque je lance une nouvelle feuille excel (le xla est au startup), j'écris =GetAttribute(1,"Bla") ca fonctionne.

Par contre, dans une autre ca ne fonctionne pas, il me met #NAME. J'ai pourtant les memes références j'ai vérifié.

De plus, j'écris la function en minuscules et il me met les maj tout seul, il la reconnait donc.
Et elle est dans la liste des fonctions d'excel..

Edit: Bon voilà, au fait c'est pcq j'ai un dll activex qui est aussi dans le projet mais là dedans je ne sais pas mettre toutes les fonctions. Or, il veut aller chercher le getattribute dans cette dll la au lieu de passer par le xla.
En sachant que : Application.Run("SimulationToolWrap.xla!GetAttribute", 1, "Bla") ne passe pas en code excel, y a t il un moyen pour forcer à chercher ailleurs que dans le dll activex?