OLE Excel, change le nom d'une feuille

Bonjour,
Je développe une application, et extrait un petit compte rendu sous Excel;
- J'ouvre Excel,
- J'ouvre un nouveau classeur

Jusque là, tout ce passe bien, puis quand, j'essaye de changer le nom d'une feuille EXcel (existante (Feuil1), ou créée) j'obtient un message d'erreur qui me dit "type de variable incorrect" !!

Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9

GlobalParameters.vMSExcel = Variant::CreateObject("Excel.Application"); GlobalParameters.vMSExcel.OlePropertySet("Visible", true); GlobalParameters.vXLWorkbooks = GlobalParameters.vMSExcel.OlePropertyGet("Workbooks"); GlobalParameters.vXLWorkbook = GlobalParameters.vXLWorkbooks.OleFunction("Add"); GlobalParameters.vWorksheets = GlobalParameters.vXLWorkbook.OlePropertyGet("Worksheets"); GlobalParameters.vWorksheet = GlobalParameters.vXLWorkbook.OlePropertyGet("Worksheets", 1); Variant vWsNewName = "All_Measurement"; GlobalParameters.vWorksheet.OlePropertySet("Name", vWsNewName);

---

Qu'est ce que j'ai fait de mal? Où se trouve le problème?
Merci

Tu l'as peut être déjà vu, mais je le signal tout de même, voici le code dans la FAQ : http://cpp.developpez.com/faq/bcb/?p...heetchangename

Essaie ceci

Code:

---

1 2 3 4 5 6

AnsiString NomFeuille = "All_Measurement";   Variant vWsNewName = StringToOleStr(NomFeuille);   GlobalParameters.vWorksheet.OlePropertySet("Name", vWsNewName);

---

Salut bandit boy
Je pense que ton code est bon, je crois qu'il manque la selection de la feuille (ce qui parrait logique si l'on a un classeur de plusieurs feuilles)

Code:

---

1 2 3 4 5

GlobalParameters.vWorksheet = GlobalParameters.vXLWorkbook.OlePropertyGet("Worksheets", 1); // on selectionne la Feuil1 (a adapter a ton code) vWorksheet.OleProcedure("Select"); GlobalParameters.vWorksheet.OlePropertySet("Name", vWsNewName);

---

Merci beaucoup messieurs.

pottiez, je te remercie, mais j'avais effectivement vue cette page, mon code n'est autre que des copier/coller de cette page.

kurul1, super, ta méthode fonctionne à merveille.

blondelle, merci beaucoup, mais je ne sais pas pourquoi l'ajout du "Select" ne change rien, j'ai exactement la même erreur 8O.

Merci encore.

Vraiment bizarre ta variable etait declaree en Variant, normalement il ne devrait pas y avoir d'erreur

Justement moi j'avais aussi cette erreur et je l'ai résolu comme expliqué plus haut

Je confirme, c'était bien un Variant. J'ai demandé une mise à jour de la FAQ pour parrer à cette éventuelle erreur.

Je viens de faire un essai et la on peut passer un Variant il faut utiliser " WideString(Variant)

Code:

---

1 2 3 4 5 6

vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1); // on selectionne la Feuil1 vWorksheet.OleProcedure("Select"); Variant vWsName = "essai"; vWorksheet.OlePropertySet("Name", WideString(vWsName));

---