passer une string Excel VBA vers C++

bonjour.

j'écris des petites fonctions en C++ que je wrappe dans des DLLs pour les utiliser avec excel.

avec des variables C++ (int, double, long, ...) et Excel (Double, Integer, .. ) [avec des 'chiffres', quoi!], je code sans problème.

en revanche, je ne parviens pas à utiliser une String de VBA vers C++ , je choisis de la passer ByVal.

le livre de steve dalton donne la réponse à ma question, mais :oops: je ne sais pas quoi faire avec les explications du bonhomme !

Citation:

---

Quand elle est passée BYVal vers C++, la String de VBA arrive comme une BSTR ... vous pouvez déclarer votre argument comme un char* , ce qui a pour effet de caster le pointeur directement vers l'espace-mémoire alloué à la BSTR

---

un petit code d'illustration, en-dessous. si quelqu'un a la gentillesse de corriger. je ne sais que faire des BSTR ? char* ? reférencement et dé-férencement ??


code C++

Code:

---

1 2 3 4 5 6 7 8 9 10

double __stdcall maFonction(BSTR couleur) { double resultat; if ('rouge' == couleur) resultat = 3.7999; else resultat = 5.455; return resultat; }

---

Appel de fonction en VBA

Code:

---

1 2 3

Declare Function maFonction Lib "C:\ .... majoliefonction.dll" _ (ByVal couleur As String) As Double

---

merci de votre aide.
édouard

Salut,

Je ne connais pas du tout VBA mais apparemment un BSTR peut se caster en char*. Mais, pour comparer 2 char* en C il faut utiliser strcmp (et pas == qui ferait juste une comparaison du pointeur, et nom de la chaine). Enfin, ça donnerait quelque chose comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10

double __stdcall maFonction(BSTR couleur) { double resultat; if ( strcmp("rouge", (char*)couleur) == 0) resultat = 3.7999; else resultat = 5.455; return resultat; }

---

Petit piège, strcmp ne revois pas vrai ou faux, mais la "différence" entre les 2 chaînes (donc différence = 0 <=> 2 chaînes sont égales).
Juste une chose, c'est peut être juste une erreur de frappe de ta part, mais une chaine s'écrit entre " (double quote) et non entre ' (simple quote).

En espérant que ça t'aidera.

A+

merci pyros. je regarde ceci, illico !
je vous tiens au courant ....

Petite précision, le B de BSTR, c'est pour Basic.
Donc l'intégration d'une chaîne VBA via BSTR est ce qu'il y a de plus "naturel".
http://msdn.microsoft.com/en-us/library/ms221069.aspx

Mais, il y a quelques "petites" embrouilles inhérentes au format. :aie:

Primo, les chaînes VBA sont toutes en UNICODE, donc votre comparaison avec une chaîne "rouge" avec la fonction "strcmp", elle n'est pas prête de retourner 0. :mrgreen:

Il faut utiliser des chaînes et des fonctions UNICODE type L"rouge" à la place de "rouge" et les fonctions qui vont avec.
Voici quelques exemples de manipulations de chaînes BSTR en C/C++. (Attention, il est plus prudent d'utiliser la MACRO "L" que "_T" de leurs exemples):
http://www.codeproject.com/KB/string/bstrsproject1.aspx

Et utiliser la classe _bstr, qui simplifie grandement le triturage de chaîne au format BSTR.
http://msdn.microsoft.com/en-us/libr...d6(VS.71).aspx

Dont les comparaisons :
http://msdn.microsoft.com/en-us/libr...(v=VS.71).aspx

Secondo, comme le montre ce lien :
http://msdn.microsoft.com/en-us/library/ms221069.aspx
Une chaîne BSTR a une représentation en mémoire bien plus complexe qu'une chaîne C (mais bien moins qu'une chaîne std:string du C++ :aie: ).
Donc

Citation:

---

ce qui a pour effet de caster le pointeur directement vers l'espace-mémoire alloué à la BSTR

---

c'est que le pointeur sera sur le "Length prefix" d'un BSTR et pas sur le début de la chaîne UNICODE contenue dans la BSTR.

merci pour toutes ces sources d'info !
je digère et je vous dis ...

en fait, je me suis laissé aller à lire le tout et d'autres choses WideCharToMultiByte et j'avoue que je ne vois toujours pas comment m'en sortir avec mon petit example de code. :oops:

A l'arrache donc pas du tout testé.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

_bstr_t rouge = _bstr_t(L"rouge");   double __stdcall maFonction(BSTR couleur) { double resultat; if ( _bstr_t(couleur,false) == rouge) resultat = 3.7999; else resultat = 5.455; return resultat; }

---

Salut c'est se casser la tête pour pas grand chose il existe
_com_util::ConvertBSTRToString

http://msdn.microsoft.com/en-us/library/ewezf1f6.aspx

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

// ConvertBSTRToString.cpp #include <comutil.h> #include <stdio.h>   #pragma comment(lib, "comsuppw.lib")   int main() { BSTR bstrText = ::SysAllocString(L"Test"); wprintf_s(L"BSTR text: %s\n", bstrText);   char* lpszText2 = _com_util::ConvertBSTRToString(bstrText); printf_s("char * text: %s\n", lpszText2);   SysFreeString(bstrText); delete[] lpszText2; }

---

Au besoin utiliser également SysAllocSting et SysFreeString
http://msdn.microsoft.com/en-us/library/ms221458.aspx


Ou alors comme avec l'exemple du MSDN un simple wprintf_s suffit et pour regarder si tu as une chaine de caractêre tu peux prendre wcscmp
http://msdn.microsoft.com/en-us/libr...1(v=vs.80).asp

Regarder aussi avec la classe MFC CString.


Mais perso les chaines de caractères je préfère gérer cela avec des std::string c'est vraiment plus souple..
si tu as un BSTR donc tu le convertis en wchar_t et ensuite avec une simple affectation tu peux initialiser un std::wstring de la STL

Donc voilà ta fonction...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

#include <string>     double __stdcall maFonction(BSTR couleur) {   char* lpszText = _com_util::ConvertBSTRToString(couleur);   double resultat; if(strcmp(lpszText,"rouge")) resultat = 3.7999; else resultat = 5.455; /// avec un std::string std::string strCouleur=lpszText ; if (strCouleur=="rouge") resultat = 3.7999; else resultat = 5.455;   SysFreeString(bstrText); return resultat; }

---

Je trouve que mon exemple avec la classe _bstr_t est bien plus simple et bien plus lisible. :aie:

Pas de tripatouillage avec des chaines de caractère en ASCII, pas de pointeur de chaîne, de gestion mémoire, etc.

Keep It Simple and Stupid