Discussion :

[MandeDauph]

Bonjour,

Le code suivant :

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
TP_API void _stdcall PricerVba(VARIANT aleas, double multiplicateur, double maturite, double N, double garantie, double nav1, double r, VARIANT* res){
	 double* cheminAleas = variantToDouble(aleas);
	 double** pricer = PricerCpp(cheminAleas, multiplicateur, maturite, N, garantie, nav1, r);
 
	 CComSafeArray<double> array;
	 CComSafeArrayBound Bounds[2];
 
	 // la dimension correspondant aux lignes
	 Bounds[0].SetLowerBound(0);
	 Bounds[0].SetCount(N+1);
 
	 // la dimension correspondant aux colonnes
	 Bounds[1].SetLowerBound(0);
	 Bounds[1].SetCount(3);
 
	 array.Create(Bounds, 2);
 
	 for (int i = 0; i <= N; i++){
		 long nav_Idx[2] = { i, 0 };
		 long plancher_Idx[2] = { i, 1 };
		 long exposition_Idx[2] = { i, 2 };
 
		 array.MultiDimSetAt(nav_Idx, pricer[i][0]);
		 array.MultiDimSetAt(plancher_Idx, pricer[i][1]);
		 array.MultiDimSetAt(exposition_Idx, pricer[i][2]);
	 }
 
	 VariantInit(res);
	 res->vt = (VT_ARRAY | VT_R8);
	 array.CopyTo(&res->parray);
 }

Me génère l'erreur suivante quand je lance mon appli sous Excel :
"Erreur Automation : L'objet invoqué s'est déconnecté de son client"

Et sous Visual Studio :
"Exception non gérée à 0x076194BE (VBE6.DLL) dans EXCEL.EXE*: 0xC000041D: Une exception non gérée a été détectée pendant un rappel de l’utilisateur."

Est-ce que ces erreurs parlent à quelqu'un ?
Ou avez-vous au moins une piste de débuggage à me donner ?
Svp,
Merci d'avance,

Mande

[Médinoc]

Cette erreur ressemble à une seconde erreur, qui surgirait à cause d'une première. Le debugger ne liste-t-il pas la première erreur?

Aussi (mais probablement pas lié directement à l'erreur), est-ce normal que tu ne nettoies pas pricer après avoir copié son contenu dans le SAFEARRAY?

PS: aleas, c'est quoi exactement? Un double? Une référence vers le premier double d'un tableau VB de doubles?

[MandeDauph]

Bonjour Medinoc,

Non effectivement, on a oublié de nettoyer pricer.
Aleas c'est un Variant que l'on récupère depuis Excel et que l'on convertit en tableau de double.

Il semble de le code bug sur : VariantInit(res); (à la fin de la fonction)