Discussion :

[boosty]

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

[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+

[SilkyRoad]

bonjour

tu peux tester

Code :

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

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

bonne journée
michel

[ouskel'n'or]

Merci SilkyRoad, m'évite un fastidieuse recherche...

[boosty]

bonjour

tu peux tester

Code :

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

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 !

[ouskel'n'or]

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

A+

[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

[boosty]

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 :

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

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 :

Ma fonction dans le addin :

Code :

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

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

[ouskel'n'or]

Supprime ta déclaration

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+

[boosty]

Supprime ta déclaration

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?