Discussion :

[griffit]

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

voila le code utiliser:

Code :

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

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

[griffit]

j'ais trouver merci quand meme

Code :

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

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

[blondelle]

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 :

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
 
{
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");
}