Je veux en fait ajouter des feuilles dans un classeur excel, tout en les renommant c'est à dire qu'il faut qu'elles portent un nom signaficatif que celle donné par défaut (feuille 1, feuille 2 ....).
J'ai pu créer le classeur avec 3 feuilles la dedans par défaut avec le code suivant:
Je vous remercie d'avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 procedure TFormDemarrage.Button2Click(Sender: TObject); var OleApplication,OleWorkBook,oleworksheet:variant; Chemin:string; begin OleApplication := CreateOleObject('Excel.Application'); oleapplication.visible:=true; OleWorkBook:=OleApplication.Workbooks.Add; Chemin:='c:\Documents and Settings\MACHICHE JALAL\Bureau\interfacejalal\'+Editnomprojet.Text; OleApplication.ActiveWorkBook.SaveAs(Chemin); close ; end ;
le savoir transmis est une bibliothèque qui ne meurt jamais.
Partager