Discussion :

[SimFaridas]

Bonjour à tous !

J'ai un document excel qui se présente sous cette forme :


J'aimerai récupérer les valeurs des trois colonnes sur trois liste différentes.
J'ai regarder la FAQ mais elle me donne quelque chose comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Button1Click(Sender: TObject);
Var 
  MonClasseur : Variant; 
  MaFeuille : Variant;
begin
  MonClasseur := Document.getSheets; 
  MaFeuille := MonClasseur.GetByName('Feuille1'); 
  Result:=Mafeuille.getCellByPosition(0, 0).GetValue;
end;

Le 'Result' et 'Document' sont non déclaré et puis je ne comprend pas très bien

Merci d'avance

[Andnotor]

Sur la première page de cette FAQ, as-tu seulement lu Comment utiliser Excel avec Delphi ?

Quant à Result, Button1Click n'est pas une fonction...

[Charly910]

Bonjour,
pour débuter avec Excel, le tuto de LFE est très bien fait :

http://lfe.developpez.com/PasExcel/

A+
Charly

[SimFaridas]

C'est bon j'ai réussi merci pour vos liens ils m'ont été utiles
En fait c'est tout bête, c'était juste l'initialisation que je n'arrivait pas à comprendre
Du coup voilà mon code, il est peut-être pas optimisé mais il fonctionne, du coup si vous avez des idées (Vous forcez pas) elles sont les bienvenues :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
procedure TForm1.Button1Click(Sender: TObject);
Var
   vXLWorkbooks, vXLWorkbook,vMSExcel, vCell,vWorksheet : variant;
   aFileName, aValue : AnsiString;
   aRange : AnsiString;
   i,j : integer;
   listeNomComplet, listeRaccourci, listeChemin, listeColonne : Tstringlist;
   col : String;
begin
  vMSExcel := CreateOleObject('Excel.Application');
  vMSExcel.Visible := true;
  aFileName := 'C:\Users\Simon\Desktop\Normes.xlsx';
  vXLWorkbooks := vMSExcel.Workbooks;
  vXLWorkbook := vXLWorkbooks.Open(aFileName);
  vWorksheet := vXLWorkbook.WorkSheets['Feuil1'];
 
  listeNomComplet := Tstringlist.Create;
  listeRaccourci := Tstringlist.Create;
  listeChemin := Tstringlist.Create;
  listecolonne := tstringlist.Create;
  listeColonne.Add('A');
  listeColonne.Add('B');
  listeColonne.Add('C');
 
  for j := 0 to 2 do
  begin
    col := listecolonne[j];
    for i := 3 to 1000 do
    begin
      aRange := col+inttostr(i);
      vCell := vWorksheet.range[aRange];
      aValue := vCell.Value;
 
      if string(avalue)='' then break
      else if col = 'A' then listenomcomplet.Add(string(avalue))
      else if col = 'B' then listeRaccourci.Add(string(avalue))
      else listechemin.Add(string(avalue));
 
    end;
  end;
 
end;

Merci à tous