Discussion :

[jojolastar27]

Bonjour,
Je souhaite ajouter une feuille de calcul supplémentaire à mon classeur mais il ne veut pas ...Pourtant je ne pense pas sauter d'étape:j'ouvre excel,puis un classeur,accéde a une feuille de calcul (j'ai essayer sans cette opération).Par contre il veut bien supprimer une feuille de calcul.
J'aurai voulu aussi savoir comment supprimer le message qui apparait lors de la suppression d'une feuille de calcul.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 Variant vMSExcel,vXLWorkbook,vXLWorkbooks,vFileName,vSheetBefore,vWorksheet,vSheetName,vWorksheets,vWsName;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
//Ouvrir une nouvelle instance
vMSExcel=Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible",true);
//Ouvrir une classeur
vFileName="c:\\test.xls";
vXLWorkbooks=vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook=vXLWorkbooks.OleFunction("Open",vFileName);
//Accéder à une feuille de calcul
vSheetName="Feuil1";
vWorksheet=vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
  //Ajout de la feuille de calcul
vWorksheets=vWorksheets.OleFunction("Add");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button7Click(TObject *Sender)
{
vWorksheet.OleFunction("Delete");
}

PS:j'ai essayer la commande vWorksheet.OleFunction("Add"); mais sa ne marche pas non plus

Merci d'avance

[nirgal76]

Pour le message de confirmation, passe "Application.DisplayAlerts" à false avant de faire le delete

Code :

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

1
2
 
vMSExcel.OlePropertySet("DisplayAlerts",false);

pour le add:

Code :

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

1
2
 
vWorksheets=vWorksheets.OleFunction("Add");

Ton vWorksheets.OleFunction("Add") ne fera rien car vWorksheets ne correspond à rien

donc faire plutot

Code :

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

1
2
 
vXLWorkbook.OlePropertyGet("Worksheets").OleFunction("Add")

ou

Code :

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

1
2
3
 
vWorksheets=vXLWorkbook.OlePropertyGet("Worksheets");
vWorksheets.OleFunction("Add");

[jojolastar27]

merci nirgal76 !!
Sa marche nickel