Jai un petit soucie,

quand je fais sa :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", false);
vFileName = "c:\\ProjBapt\\testExcel\\listclient.xls";
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);
sa fonctionne niquel, mais l'inconveniant c'est que le chemin est codé en dur


Si je fais sa

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
  AnsiString asRep = ExtractFilePath(Application->ExeName);

asFile = asRep + "listeclient.xls";
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", false);
vFileName = asFile ;
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);
il me fais une erreur sur la ligne qui est en gras, quelqu'un pourais m'aider ? svp

Cordialement Baxter