Discussion :

[LePetitBricoleur]

J'ai un vrai problème!!

Quelqu'un pourrait-il m'expliquer comment passer un tableau dans VBA en argument d'une DLL et comment faire en sorte de recuperer un tableau comme valeur de retour d'une DLL.

En gros dans la definition de ma DLL en C++ comment faire pour que la DLL prenne un tableau vba en argument et renvoie un tableau vba

et du coté de vba comment faire pour mettre en argument dans la DLL un tableau et recuperer un tableau??

J'ai essayé mille fois ça marche pas!!

dans ma DLL j'ai écrit

double* __stdcall Madll(long* tableau)
{
double* tabretour=new..... ;
etc etc
return tabretour ;
}
et en VBA

declare fonctDLL lib "Madll.dll"(byref tableau() as long)
...
dim vecteur() as double
dim tableau() as long
tableau(0)=...
tableau(1)=...
etc
vecteur=fonctDLL(tableau)
et ça plante

de meme vecteur=fonctDLL(tableau(0))
ça ne marche pas non plus!!!

comment faire!!!

[Médinoc]

Essaie avec les SAFEARRAY.

Par contre, je ne pense pas que tu puisses retourner à VB un SAFEARRAY alloué dans la fonction...

[LePetitBricoleur]

Dans ce cas comment je fais alors pour recuperer un tableau en sortie?

a supposer que mon code C++ donne en sortie un double*

comment je peux affecter ce pointeur(l'adresse) à une variable dans vba?

[Médinoc]

Je doute fort que tu puisses utiliser directement un double* en VBA.
Tu peux peut-être essayer en retournant un SAFEARRAY de doubles et en fournissant également une fonction pour le détruire, mais même ça je ne suis pas certain que ça marche.

Edit: Y'a des chances que ça marche, en fait.
Voir peut-être du côté de SafeArrayCreate()...

Code C++ :

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

1
2
3
4
5
6
7
8
9
SAFEARRAY * CreateSafeArrayDoubles(unsigned long size)
{
	SAFEARRAYBOUND bounds[1];
 
	bounds[0].lLbound = 0;
	bounds[0].cElements = size;
 
	return SafeArrayCreate(VT_R8, 1, bounds);
}

[Médinoc]

Et aussi:
http://support.microsoft.com/kb/207931