Bonjour,

Avec le code suivant j'arrive à récupérer la valeur d'une cellule excel par Delphi .

Serait il possible de récupérer la couleur de cette cellule ?

J'ai regardé ce tutorial
http://lfe.developpez.com/PasExcel/
mais il n'indique pas comment récupérer la couleur

Merci 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
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
{ Nouvelle instance }
  vMSExcel := CreateOleObject('Excel.Application');
  vMSExcel.Visible := true ;
 
  { Ouverture d'un classeur }
  fichier := '\\CSI270\Cli\Prospects\Applications Concept\Emploi du Temps.xls';
  vXLWorkbooks := vMSExcel.Workbooks;
  vXLWorkbook := vXLWorkbooks.Open(fichier);
 
  { Accéder à une feuille de calcul }
  aSheetName := 'Feuil1';
  vWorksheet := vXLWorkbook.WorkSheets[aSheetName];
 
  { Lire la colonne B }
  i := 1;
  while i<= 47 do
  begin
      aRange:='B'+inttostr(i);
      vCell := vWorksheet.Range[aRange];
      aValue := vCell.Value;
      if aValue <> '' then
          begin
               showmessage(aValue);
          end;
      i := i + 1;
  end;