[VBA-E]recuperation d'une donnée a travers un activeX

Salut tout le monde, je vous explique mon problème
J’ai un projet activeX.dll sous borland C++ qui contient
Une méthode qui s’appelle Moyenne qui renvoie un entier
R2 ! Sous visual basic j’ai mis un bouton qui lorsque je
Vais cliquer dessus m’affichera le calcul fait par la méthode
Moyenne ! Ce résultat sera afficher dans une MsgBox pour
L’instant ! Comment dois m’y prendre pour récupérer ce
Résultat sous visual basic ? jai commencer a faire un programme
Mais j’arrive pas a faire ce que je veux ! Merci pour toute aide
(Pour information je suis visual Basic avec excel je dis au cas ou
Je me tromperai de forum)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Option Explicit     Sub CommandButton1_Click()   MsgBox ("Ouverture de l'ActiveX") Dim t As TestAuto Set t = New TestAuto   Dim i As Integer i = 2 t.Donnees2 = i Dim zer As Integer zer = t.Donnees1 MsgBox i   MsgBox zer t.Moyenne 10 'zer = t.Donnees2 MsgBox zer   Set t = Nothing End Sub

---

Explique plus clairement, s'il te plait !

Ce code est-il sous VB, sous VBA ou sous Visual Studio ?
S'il est sous visual studio, tu n'es pas sur le bon forum (Donet)
S'il est sous VB ou VBA, il va falloir nous en dire plus sur la dll dont il s'agit :
Retourne-t-elle sa valeur ou donne-t-elle, en retour, des valeurs de paramètres qui lui ont été passés, etc...

Citation:

---

Envoyé par jmfmarques

S'il est sous visual studio, tu n'es pas sur le bon forum (Donet)

---

Euh... Il existe un Visual Studio 6 (et, peut-être, aussi pour les versions précédentes).

Ben cest visual basic 6.3 ! en faite j'ouvre excel jajoute un bouton et grace a la boite a outil je visualise le code ! cest bien VBA ! ce n'est pas visual studio sa cest sur ! maintenant concernant ma dll ben en faite ma methode moyenne doit recevoir une valeur qui est specifier sur VBA dou le code dont je ne sui pas tre sur :

Code:

---

1 2	t.Moyenne 10

---

ensuite quand ma dll recupere cette valeur 10 ma methode fera le calcul adequate avec le code pas tres compliquer :

Code:

---

1 2 3 4 5 6 7 8

STDMETHODIMP TTestAutoImpl::Moyenne(int R2) { int i; i=4; R2=R2*i; return R2; }

---

une fois le calcul fait ma dll devra la donner a ma MsgBox ! si vous vez dautre question pour pouvoir faire avancer mon probleme ya pa de sousi nhesiter pas ! voici le code complet !
VBA :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Option Explicit     Sub CommandButton1_Click()   MsgBox ("Ouverture de l'ActiveX") Dim t As TestAuto Set t = New TestAuto   Dim i As Integer i = 2 t.Donnees2 = i Dim zer As Integer zer = t.Donnees1 MsgBox i MsgBox zer t.Moyenne 10 MsgBox zer Set t = Nothing   End Sub

---

Borland C++ :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

#include <vcl.h> #pragma hdrstop   #include "TESTAUTOIMPL.H"   STDMETHODIMP TTestAutoImpl::get_Donnees1(VARIANT* Value) {   try { } catch(Exception &e) { return Error(e.Message.c_str(), IID_ITestAuto); } //Moyenne(3); return S_OK; };     STDMETHODIMP TTestAutoImpl::Moyenne(int R2) { int i; i=4; R2=R2*i; return R2; }   STDMETHODIMP TTestAutoImpl::set_Donnees2(VARIANT Param1) { try {   } catch(Exception &e) { return Error(e.Message.c_str(), IID_ITestAuto); }   return S_OK; };

---

Merci pour tout renseignement nhesitez pas a me poser des questions !

et

Code:

---

zer = t.Moyenne (10)

---

?

Cela ne fonctionne pas j’avais essayer ! l’erreur de compilation est « fonction ou variable attendue »
Dapres laide de VBA l’erreur peut soit :
Le nom n'est pas celui d'une variable ou d'une procédure Function connue.
Vous essayez d'affecter par erreur une valeur à un nom de procédure.
voila l'aide que jai eu !
:arf:

dites moi pas qu il y a personne pour maider???????

je continu a chercher mai rien ne fonctionne pour le moment !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Option Explicit     Sub CommandButton1_Click()   Dim t As TestAuto Set t = New TestAuto Dim zer As Long MsgBox zer t.Moyenne 10 zer = t.Donnees1   MsgBox zer Set t = Nothing   End Sub

---

:arf:

Il Ny A Pas Une Seul Personne Qui Pourrai M'aider