Excel -> Delphi : récuperation des noms de cellules à partir d'un doc Excel

Bonjour,

Je cherche à récupérer la liste des noms de cellules ou de plages de cellules à partir d'un document Excel en Ole.

J'arrive à récupérer le nombre d'éléments avec la propriété Names de l'interface, mais pas les noms.

Merci pour votre aide

Ok j'ai trouvé tout seul.

var ind, jnd : integer;
wName : variant;
wRange : Variant;
wCells : Variant;
begin

for ind:=1 to FExcelApp.names.count do begin
wName:=FExcelApp.names.item(ind);
wRange:=wName.refersToRange;

for jnd:=1 to wRange.count do begin
wCells:=wRange.item[jnd];
showmessage(intToStr(wCells.column)+':'+intToStr(wCells.row));
end;
end;
end;