Discussion :

[alili mostafa]

salut a tous
je veux importer des données d'un fichier Excel ,j'ai inseré ce code dans TButton mais ce fichier Excel a plusieurs feuilles de calcules (Worksheets)
est il possible d'avoir la liste des feuilles (dans un combobox par exemple) pour pouvoir acceder par le nom de la feuille :

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
procedure TSave.Button2Click(Sender: TObject);
var
Resultat:OleVariant;
vMSExcel,vXLWorkbooks, vXLWorkbook ,vReadOnly, vLink,vWorksheet: variant;
VFileName : AnsiString;
begin
Main.OpenDialog1.Filter:='Fichier Excel |*.Xls';
if Main.OpenDialog1.Execute then
  begin
  if Main.OpenDialog1.FileName<>'' then
  Resultat := Main.OpenDialog1.FileName else exit;
  end;
try
vMSExcel := GetActiveOleObject('Excel.Application');
except
vMSExcel := CreateOleObject('Excel.Application');
end;
vMSExcel.Visible := true;   
VFileName := Resultat;
vLink := unassigned;
vReadOnly := true;
vXLWorkbooks := vMSExcel.Workbooks;
vXLWorkbook := vXLWorkbooks.Open(vFileName, vLink, vReadOnly);

salutations

[Charly910]

Bonjour,

Je pense que tu peux énumérer les feuilles de ton classeur comme ceci :

Code :

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

1
2
 For i := 1 To vMSExcel.Workbooks[1].WorkSheets.count  Do
   ShowMessage('Feuille '+ IntToStr(i) + ' : ' +vMSExcel.Workbooks[1].WorkSheets[i].Name) ;

A+

Charly

[alili mostafa]

merci pour votre aide ,ça marche tres bien