Discussion :

[pepito3364]

J'ai un problème lorsque je dimensionne un tableau dans une structure en VBA puis que j'envoi la structure à une fonction C++. Ça plante direct et impossible de voir quoique ce soit.

Code 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
typedef struct XData
{
	int Count;
	SAFEARRAY *X;
	SAFEARRAY *Y;
} 	XData;
typedef struct T
{
	BSTR s;
	XData X;
} T;
typedef struct Input
{
	SAFEARRAY *X;
} Input;
 
__declspec(dllexport) int __stdcall  Cpp_D1(Input *in)
{
	return 0;
}

code 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
Private Declare PtrSafe Function Cpp_D1 Lib "MyDLL.dll" (i As InputData) As Long
 
Private Type XData
    Count As Long
    X() As Double
End Type
 
Private Type T
	s as string
    X As XData
End Type
 
Private Type InputData
    X() As T
End Type
 
Sub test()
    Dim i As InputData
    ReDim i.X(5)
    ReDim i.X(0).X.X(10)
    Call Cpp_D1(i)
End Sub

Si je ne mets pas le string ça marche.
Si je ne redimensionne pas i.X(0).X.X(10) ça marche.

Je suis bloqué sur ce problème depuis plusieurs jours et je ne peux pas utiliser un autre schéma de déclaration de structure (je pense à la déclaration dans le .idl qui marche bien) car je dois avoir une compatibilité sous OS X.

[bacelar]

Heu, je ne comprends toujours pas pourquoi vous ne voulez pas utiliser l'idl.
Faut juste vérifier que le code généré par midl soit portable ou le rendre portable, non ?

[pepito3364]

Le problème de la portabilité et du côté du vba. Quand je veux utiliser les structures définis côté c++ sur OS X, je reçois un joli message vba "This functionnality is not yet implemented". Du coup, je suis bloqué de ce côté là sous MAC.
Je veux donc utiliser la double déclaration de la structure (juste pour MAC) car ça marche. Je l'utilise déjà pour des petites structures sans string.

[Médinoc]

Euh, pourquoi manque-t-il la moitié de ta structure dans la version VBA?

Surtout pour une structure que tu mets ensuite dans un tableau...

[pepito3364]

Oups, mauvais copier coller. Désolé. Je corrige ça!
Pour le cas qui ne marche pas ça n'a pas d'impact car je ne descend pas chercher cette structure côté c++.

[Médinoc]

Hum...
Est-ce qu'un truc comme ceci marcherait?

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
Sub SetXDataDimX(ByRef xd as XData, ByVal dimx as Long)
	ReDim xd.X(dimx)
End Sub
 
 
Sub test()
    Dim i As InputData
    ReDim i.X(5)
    SetXDataDimX i.X(0).X, 10
    Call Cpp_D1(i)
End Sub

Sinon, il va falloir faire le truc manuellement: Insérer les éléments déjà dimensionnés plutôt que tenter de redimensionner "sur place":

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
	Dim i As InputData
	ReDim i.X(5)
 
	Dim xd As XData
	ReDim xd.X(10)
	i.X(0).X = xd
 
	Call Cpp_D1(i)
End Sub

PS: Tes accès aux variables sont bien difficiles à lire, tu devrais donner des noms différents à tes variables:

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Type XData
	Count As Long
	X() As Double
	Y() As Double
End Type
 
Private Type T
	s as string
	xd As XData
End Type
 
Private Type InputData
	tArray() As T
End Type