renvoi de valeurs par référence en VBA

Version imprimable

06/06/2012, 16h57
granbapt

renvoi de valeurs par référence en VBA

Bonjour à tou(te)s,

J'ai une DLL contenant une fonction que je voudrais utiliser dans Excel. Ladite fonction renvoie plusieurs valeurs et utilise donc des références :

Code:

void A2_Aff_lineique(real_T freq, real_T T, real_T ro, real_T p, real_T *Aff_tot,real_T *Aff_02, real_T *Aff_H20)

Mon problème est que je ne sais pas comment on déclare et on utilise ce genre de fonction...

J'étais bien tenté d'écrire :

Code:

Declare Function Aff_Gaz Lib "DLL_Affaiblissement2" Alias "_A2_Aff_lineique" (ByVal freq As Double, ByVal T As Double, ByVal ro As Double, ByVal p As Double, ByRef Aff_tot As Long, ByRef Aff_02 As Long, ByRef Aff_H20 As Long)

mais ça ne marche pas ! En effet, cette fonction ne renvoie rien, et je ne sais même quoi lui fournir pour les trois derniers arguments qui sont définis par référence...(les quatre premiers paramètres étant saisies dans différentes cellules par l'utilisateur).

Si vous avez des conseils ou des éclaircissements à m'apporter, je suis preneur !!

Merci d'avance :)
06/06/2012, 22h54
issoram
Bonsoir,

Bon je n'y connais pas grand chose en DLL mais d'après ta déclaration (en C++?)
essaie peut être ceci:

Code:

Declare Sub Aff_Gaz Lib "DLL_Affaiblissement2" Alias "A2_Aff_lineique" (ByVal freq As Double, ByVal T As Double, ByVal ro As Double, ByVal p As Double, ByRef Aff_tot As Double, ByRef Aff_02 As Double, ByRef Aff_H20 As Double)

les modifs:
- Sub car ta fonction (procédure) ne renvoie rien.
- Type double pour les 3 derniers arguments: Ce sont des pointeurs sur des variables de même "type" (real_T) que celles que tu as déclarées en double, pourquoi les passer en long?
- Une dernière chose: ton alias ne correspond pas à ton nom de fonction : un _ au début en plus.
J'espère que ça débroussailleras un peu le terrain.
07/06/2012, 11h20
granbapt

Merci pour ta réponse.

Quelques précisions :

- La fonction, telle qu'elle est définie, ne semble rien renvoyer mais en fait les trois derniers arguments correspondent aux adresses des trois résultats que doit donner la fonction (c'est ainsi qu'on gère le renvoi de valeurs multiples en C/C++)

- En ce qui concerne les types Long à la place de Double, je ne sais pas ce qu'il m'a pris, c'est une erreur bête

- pour mon Alias, le _ devant le nom n'est pas une erreur, c'est ainsi que le nom de ma fonction a été "décoré" lors de la création de la dll par Visual Studio

Je vais creuser dans le sens de tes conseils...
07/06/2012, 12h38
issoram

Citation:

La fonction, telle qu'elle est définie, ne semble rien renvoyer mais en fait les trois derniers arguments correspondent aux adresses des trois résultats que doit donner la fonction (c'est ainsi qu'on gère le renvoi de valeurs multiples en C/C++)

donc il faut bien que tu la déclares en sub et que tu passes tes 3 derniers arguments par référence (byref)

Tiens moi au courant ça m’intéresse.

Bon, j'ai avancé sur le sujet mais ça coince encore...

Tout d'abord pour me faciliter la vie, j'ai modifié (à contre cœur) mon code C :

ma fonction

Code:

void A2_Aff_lineique(real_T freq, real_T T, real_T ro, real_T p, real_T *Aff_tot,real_T *Aff_02, real_T *Aff_H20)

est devenue

Code:

int A2_Aff_lineique(real_T freq, real_T T, real_T ro, real_T p, real_T *Aff_tot,real_T *Aff_02, real_T *Aff_H20)

et renvoie 1 (simplement pour pouvoir l'appeler plus aisément en VBA, je ne sais pas si c'est une bonne idée mais je n'en ai plus d'autre...)

J'ai donc maintenant dans mon code VBA :
Code:

1 2 3 4 5 6 7 8 9 10 11 Declare Function Aff_Gaz Lib "DLL_Affaiblissement2" Alias "_A2_Aff_lineique" (ByVal freq As Double, ByVal T As Double, ByVal ro As Double, ByVal p As Double, ByRef Aff_tot As Double, ByRef Aff_02 As Double, ByRef Aff_H20 As Double) As Integer Dim Aff_tot As Double, Aff_H20 As Double, Aff_02 As Double Function Affaiblissement_Gaz(ByVal freq As Double, ByVal T As Double, ByVal ro As Double, ByVal p As Double) As Double y = Aff_Gaz(freq, T, ro, p, Aff_tot, Aff_02, Aff_H20) Affaiblissement_Gaz = Aff_tot End Function
Et lorsque je saisis les valeurs des différents paramètres dans les cellules et que je tape la commande =Affaiblissement_Gaz(B2;B3;B4;B5) dans la case Excel destinée au résultat j'obtiens #VALEUR!.

Avez-vous une idée du problème ?
Merci d'avance !!

P.S :
Ça, c'est pour récupérer une seule des trois valeurs qui m'intéressent. Quand j'y serai parvenu (je ne désespère pas), on m'a conseillé la stratégie suivante pour récupérer les différentes valeurs souhaitées :
Code:

1 2 3 4 5 Public Type Aff Aff_tot As Double Aff_02 As Double Aff_H20 As Double End Type
et dans la fonction :
Code:

1 2 3 Aff.Aff_tot=... Aff.Aff_02=... Aff.Aff_H20=...

Bon, ça y est ça fonctionne !
Le problème n'est (en général) pas là où on regarde... Dans mon cas c'était dans le code C que l'export de la fonction vers la DLL était mal fait.

Pour en finir avec ce sujet, et issoram puisque ça t'intéresse voilà comment j'ai codé en VBA mon appel à la fonction de la DLL (en remettant ma fonction en C dans son état initial, c'est à dire qui sort un type void) et le renvoi des différentes valeurs (ça fait un peu "bricolage" mais j'ai pas trouvé mieux...).

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
43
44
45
46
47
48
49
50
51
52
53
54
55
 
'definition du nouveau type
Public Type Aff
    A_tot As Double
    A_02 As Double
    A_H20 As Double
End Type
 
'declaration de la fonction contenue dans la DLL comme une Sub car elle ne renvoie rien
Declare Sub Aff_Gaz Lib "DLL_Affaiblissement2" Alias "_A2_Aff_lineique@44" (ByVal freq As Double, ByVal T As Double, ByVal ro As Double, ByVal p As Double, ByRef Aff_tot As Double, ByRef Aff_02 As Double, ByRef Aff_H20 As Double)
 
'declaration des variables destinées à recevoir les resultats ainsi que la variable "intermédiaire" A_Gaz
Dim Aff_tot As Double, Aff_H20 As Double, Aff_02 As Double, A_Gaz As Aff
 
 
'définition de la fonction principale faisant le calcul à partir des paramètres entrés
Public Function Affaiblissement_Gaz(ByVal freq As Double, ByVal T As Double, ByVal ro As Double, ByVal p As Double) As Aff
 
    Call Aff_Gaz(freq, T, ro, p, Aff_tot, Aff_02, Aff_H20)
 
    Affaiblissement_Gaz.A_tot = Aff_tot
    Affaiblissement_Gaz.A_02 = Aff_02
    Affaiblissement_Gaz.A_H20 = Aff_H20
 
End Function
 
 
'définition de trois sous-fonctions retournant chacune un des trois sous-résultats
Public Function Affaiblissement_total(ByVal freq As Double, ByVal T As Double, ByVal ro As Double, ByVal p As Double) As Double
 
    A_Gaz = Affaiblissement_Gaz(freq, T, ro, p)
 
    Affaiblissement_total = A_Gaz.A_tot
 
 
 
End Function
 
Public Function Affaiblissement_02(ByVal freq As Double, ByVal T As Double, ByVal ro As Double, ByVal p As Double) As Double
 
    A_Gaz = Affaiblissement_Gaz(freq, T, ro, p)
 
 
    Affaiblissement_02 = A_Gaz.A_02
 
 
End Function
 
Public Function Affaiblissement_H20(ByVal freq As Double, ByVal T As Double, ByVal ro As Double, ByVal p As Double) As Double
 
    A_Gaz = Affaiblissement_Gaz(freq, T, ro, p)
 
    Affaiblissement_H20 = A_Gaz.A_H20
 
End Function