Excel copie de feuille

Version imprimable

bonjour,
Je desir dupliquer une feuille excel dans le meme classeur sous C++ builder :

voila le code utiliser:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 vMSExcel = Variant::CreateObject("Excel.Application"); vFileName = "c:\\Rapport.xls"; vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks"); vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName); //Ouverture fichier de travail vSheetName = "Vide"; vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",vSheetName); //selection feuille de travail vMSExcel.OlePropertySet("Visible", true); //Rendre excel visible vSheetName = "Vide"; vWorksheet.OleFunction("Copy",vSheetName );
Mais j'ais une erreur sur la derniere ligne :x
si il y en a parmis vous qui on une idee merci par avance

Ps: j'arrive sans probleme à copier la feuille dans un nouveaux classeur!!!!! mais je veux rester dans le meme

j'ais trouver merci quand meme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
vMSExcel = Variant::CreateObject("Excel.Application");
vFileName = "c:\\Rapport.xls";
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);		 				//Ouverture fichier de travail
vSheetName = "Vide";
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);				//selection feuille de travail
 
vMSExcel.OlePropertySet("Visible", true);										//Rendre excel visible
 
vSheetName =vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);
vWorksheet.OleFunction("Copy",vSheetName );

Salut griffit
C'est un peu tardif mais voici un bout de code qui copie la feuille source cree une feuille destination la renomme colle la copie et deselectionne les deux feuilles

Code:

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
 
{
vMSExcel = Variant::CreateObject("Excel.Application");
vFileName = "c:\\Classeur1.xls";
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);
// on cree un objet vWorksheets
vWorksheets = vXLWorkbook.OlePropertyGet("Worksheets");
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", "Feuil1");
vMSExcel.OlePropertySet("Visible", true);
// on selectionne et copie la feuille source
vWorksheet.OleProcedure("Select");
vWorksheet.OlePropertyGet("Cells").OleProcedure("Select");
vMSExcel.OlePropertyGet("Selection").OlePropertyGet("Copy");
// on cree une nouvelle feuille on l'active on la renomme
vWorksheets.OleProcedure("Add");
vWorksheet = vMSExcel.OlePropertyGet("ActiveSheet");
vWorksheet.OlePropertySet("Name", "SAUVEGARDE_2");
// on copie sur la feuille destination
vWorksheet.OleProcedure("Select");
vWorksheet.OlePropertyGet("Cells").OleProcedure("Select");
vMSExcel.OlePropertyGet("ActiveSheet").OleProcedure("Paste");
// on deselectionne la feuille destination
vMSExcel.OlePropertySet("CutCopyMode", false);
vWorksheet.OlePropertyGet("Range", "A1").OleProcedure("Select");
// on deselectionne la feuille source
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", "Feuil1");
vWorksheet.OleProcedure("Select");
vWorksheet.OlePropertyGet("Range", "A1").OleProcedure("Select");
}