Discussion :

[Mihalis]

Bonjour, je sais qu'il existe un poste dans la faq, mais je n'arrive pas à l'utiliser correctement soit les versions ont changé depuis.
voici mon code

Code :

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

1
2
3
4
5
6
7
8
 
var MaFeuille :_Worksheet;
begin
OleApplication := CreateOleObject('Excel.Application');
OleApplication.visible:=true;
oleworkbook := oleapplication.Workbooks.Add('c:\PNT\Time_Sheet_pr.xls');
MaFeuille:=oleworkbook.Worksheets[1] as _worksheet;
MaFeuille.Copy(EmptyParam,oleworkbook.Sheets[oleworkbook.Sheets.Count],0);

je ne sais pas le compiler _worksheet n'est pas reconnu, je ne sais pas ce que je dois ajouter dans les uses

Code :

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

oleapplication.workbooks.Copy(oleapplication.workbooks.Sheets[oleapplication.workbooks.Sheets.Count],0);

lorsque j'utilise ceci il me dit que le nombre de paramètre n'est pas bon, et rien dans l'aide de delphi , je ml'en remets donc à vous

[defluc]

Bonjour

Cela doit marcher.

Mais moi je déclarerais MaFeuille, OleApplication et oleworkbook comme OleVariant

[Mihalis]

bonjour, merci de ta réponse, mais le nombre de paramètre n'est tjs pas bon :o j'utilise bds je ne sais pas si ca a changé depuis mais rien dans l'aide en tt cas :s

[defluc]

L'instruction suivante fonctionne chez moi

OleApplication.WorkSheets[1].Copy(After := OleApplication.WorkSheets[1]);

Excel_Tlb est dans la clause Uses et OleApplication est déclaré comme _Application.

[Mihalis]

oui c'est bien ca, ca fonctionne(dsl pr le temps de test...)maintenant j'ai un autre souci cmt puis je renommer la feuille créée .?
j'ai testé ceci

Code :

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

oleapplication.worksheets.name:=dbeditini.text;

mais il plante
voici le code complet

Code :

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

1
2
3
4
5
6
7
 
OleApplication := CreateOleObject('Excel.Application');
OleApplication.visible:=true;
oleworkbook := oleapplication.Workbooks.Add('c:\PNT\Time_Sheet_pr.xls');
OleApplication.WorkSheets[3].copy(After := OleApplication.WorkSheets[4]);
Oleworkbook.Worksheets.item['bp (2)'].Activate;
oleapplication.worksheets.name:=dbeditini.text;

[defluc]

Tu as oublié l'index de la feuille à renommer.
Donc cela devient

Code :

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

oleapplication.worksheets[NumeroDeFeuille].name:=dbeditini.text;

[Mihalis]

impccable un grand merci
je mets le code final si ca intéresse qq'un

Code :

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

1
2
3
4
5
6
7
OleApplication := CreateOleObject('Excel.Application');
OleApplication.visible:=true;
oleworkbook := oleapplication.Workbooks.Add('c:\PNT\Time_Sheet_pr.xls');
num:=oleapplication.Worksheets.Count;
OleApplication.WorkSheets[3].copy(After := OleApplication.WorkSheets[num]);
Oleworkbook.Worksheets.item[num+1].Activate;
oleapplication.worksheets[num+1].name:=dbeditini.text;

[defluc]

Bon vent à toi avec Delphi et n'oublies pas de mettre le sujet résolu