Discussion :

[bandit boy]

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 :

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

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

[pottiez]

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

[kurul1]

Essaie ceci

Code :

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

1
2
3
4
5
6
 
   AnsiString NomFeuille = "All_Measurement";
 
   Variant vWsNewName = StringToOleStr(NomFeuille);
 
   GlobalParameters.vWorksheet.OlePropertySet("Name", vWsNewName);

[blondelle]

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 :

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

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);

[bandit boy]

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 .

Merci encore.

[blondelle]

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

[kurul1]

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