Discussion :

[teamsebracing]

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;

[moi!]

Pour trouver rapidement des infos:
Ouvre Excel, demande d'enregistrer un macro
Change la couleur de la celulle par exemple.
Arrête la macro
<ALT>+F11 pour l'éditeur VBA
Tout est écrit, il ne te reste à adapter le code VBA en Delphi

[teamsebracing]

merci

j'ai trouvé :
aColor := vCell.interior.color;

[moi!]

Je t'en prie. Il ne reste plus qu'à déclarer le sujet comme [RESOLU]