Discussion :

[lenrok]

Bonjour à tous,
J'essaye d'ouvrir un fichier ou de créer un fichier Excel, mais en vain
Voici le code que j'utilise :
Variant vFileName, vXLWorkbooks, vXLWorkbook;
Variant V;
//Ouverture d'une nouvelle instance
V = Variant::CreateObject("Excel.Application");

vMSExcel = CreateOleObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);

vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vMSExcel.OleFunction("Add");

Ouverture d'un classeur existant
vFileName = "c:\\TOURNOI JUDO\\Data\\Tournoi.xls";
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vMSExcel.OleFunction("open",vFileName);
Je ne suis pas certain que cela fonctionne ...Par contre, le systeme me renvoie le message suivant :
IsBound()@c:\bcb\emuvcl\uticls.h/4249
Press Yes to terminate, No to continue and Cancel to debug

Pouvez-vous éclairer ma lanterne ??
Merci d'avance....

[blondelle]

Salut lenrok:
Tout d'abord utilise les balises code le "#" ce sera plus lisible.
essaye ce bout de code:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Variant vMSExcel, vFileName, vXLWorkbooks, vXLWorkbook;
//Ouverture d'une nouvelle instance
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
//Ouverture d'un classeur existant
vFileName = "C:\\TOURNOI JUDO\\Data\\Tournoi.xls";
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);

[lenrok]

Bonjour Blondelle,

Merci pour les informations...
Mais , j'ai un message du style voir message 1.
Si je reponds à la question par non , j'ai un autre message du style voir message 2

Pouvez vous envore une fois m'aider...
Merci d'avance

[blondelle]

Il faut inclure "#include <utilcls.h>"

[lenrok]

Bonjour Blondelle,

#

#include <vcl.h>
#include <utilcls.h>
#pragma hdrstop

#include "Categorie_Combattant.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Excel_2K_SRVR"
#pragma resource "*.dfm"
TCategorie *Categorie;
....
#
Comme vous pouvez le voir , il y est que faire....

[blondelle]

Pour les balise code je me suis mal explique il faut appuyer sur le "#" en haut a droite de la fenetre de saisie.
Le code tel que je te l'ai passe fonctionne chez moi, avec un chemin de fichier different.
Ce n'est pas utile d'inclure "#pragma link "Excel_2K_SRVR".