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?