Discussion :

[deubelte]

bonjour
j'essaye de créer un DLL avec VC2005, afin que cette DLL soit utilisable par excel en VBA.
J'ai crée en C++ une fonction simple, qui remplit un tableau:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 char *tab=new char[30];
void finum::g(void){
	for (int i=0;i<31;i++){
		long j=i*200;
   tab[i]=j;
   	}
}
long finum::gg(int i){
    long h=tab[i];
return h;}
int main(){
return 0;
}

la fonction g remplit le tableau tab, par i*200, avec i=0...30.
la fonction gg accède au tableau, pour renvoyer la valeur tab[i].


Voici le programme 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
 
Declare Function gg Lib "C:\WINDOWS\system\finum.dll" Alias "_gg@4" (ByVal x As Long) As Double
 Declare Function g Lib "C:\WINDOWS\system\finum.dll" Alias "_g@0" () As Long
 
Sub test()
    Dim ii As Long     
    Dim i, ki, m, cnt, N As Long
       m = g()
   For ii = 1 To 15
      ki = gg(ii)    
    Sheets("test").Range("A1").Cells(ii, 1) = ki
      Next ii
 
End Sub

la fonction m appelle la fonction g qui remplit le tableau, puis la fonction gg
appelle la fonction en C++.

J'ai essayé, ca marche lorsque les valeurs du tableau que l'on remplit sont des faibles valeurs. Mais lorsqu'on entre dans le tableau de fortes valeurs, ca renvoie dans VBA des valeurs différentes.

Je pense que ca vient d'un probleme de correspondance entre les types VBA/C++. J'ai essaye plusieurs combinaisons mais ca marche pas.

Je sais qu'il y a un tuto la dessus, mais en vain, ca ne m'a pas aidé.

[Laurent Gomila]

Les prototypes de tes fonctions sont complétement différents entre la version C++ et la version VBA...

[deubelte]

je sais, je les ai modifié, mais ca ne change rien.

on est bien d'accord pour dire que les éléments dans tab sont de types int?
(0,100,200,...3100).

de ce fait, de quel type la fonction gg en VBA devrait elle etre ?
Integer, Double, Long,.....

Code :

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

1
2
 
Declare Function gg Lib "C:\WINDOWS\system\finum.dll" Alias "_gg@4" (ByVal x As Long) As Integer

Il n'y a pas d'équivalent à void en VBA.

[Laurent Gomila]

Je serais tenté de dire Integer pour int et Long pour long, mais peut-être que pour communiquer via des DLLs il y a plus de restrictions sur les types.

Ensuite pour le retour void, je ne sais pas si c'est gérable directement en VBA (il n'y a pas la notion de Procedure ?), donc au pire tu peux faire retourner un entier à ta fonction C++, quitte à ce qu'il ne serve à rien.

[deubelte]

Ensuite pour le retour void, je ne sais pas si c'est gérable directement en VBA (il n'y a pas la notion de Procedure ?), donc au pire tu peux faire retourner un entier à ta fonction C++, quitte à ce qu'il ne serve à rien.

En réalité, c'est ce que j'ai fait, et ca marche tres bien.

en tout cas, en VBA, les int vont de -255 à 256 (ou -256 à 255) ????

[deubelte]

c'est bizarre parce que le nombre inclus dans le tableau est parfaitement transmis à Excel s'il est inférieur à 126 (ou 125 je ne sais pas exactement), mais dès qu'il depasse 125, il y a comme un dépassement, un débordement je dirais.