Discussion :

[ferry.jules]

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 :

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

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

[jmfmarques]

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...

[AlainTech]

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).

[ferry.jules]

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 :

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

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 :

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

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 :

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

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 :

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

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 !

[ThierryAIM]

et

Code :

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

zer = t.Moyenne (10)

?

[ferry.jules]

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 !

[ferry.jules]

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

[ferry.jules]

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

Code :

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

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

[ferry.jules]

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