Discussion :

[NABIL74]

salut à toutes et à tous,

je n'arrive pas à récuperer la valeur de la même céllule de toutes les feuilles d'un fichier excel et l'ajouter par la suite à une Listbox.

ex:

feuille1:cellule : 'F6'
feuille2:cellule : 'F6'.
feuille3:cellule : 'F6'.

Merci.

A+

NABIL74

[evarisnea]

quel est ton souci ? qu'as-tu essayé qui n'ait pas marché ?

normalement, si tu sais travailler avec un classeur excel tu peux avoir le nombre de feuilles du classeur. si tu sais travailler avec une feuille excel, tu pourras lire la valeur de ta cellule. le tout c'est de boucler sur les feuilles du classeur et de lire toujours la même cellule.

dis nous exactement où tu as des soucis.

[cincap]

Bonjour à toutes et à tous,

@ Nabil74, une petite boucle et peut être une piste :

Pour accéder à une cellule, nous pouvons utiliser:

soit my_worksheet.Cells[ligne, colonne]

dans notre cas, si nous créons directement une WorkSheet, nous pouvons même utiliser:

my_ole_application.Cells[2, 12]:= 123;

nous pouvons aussi utiliser my_application.Selection:

my_ole_application.Cells[3, 7].Select;
...
my_ole_application.Selection:= 912;

ou my_application.ActiveCell au lieu d'indexer Cells

Au lieu de désigner la cellule par ses coordonnées, nous pouvons indiquer la plage par la propriété Range:

my_ole_application.Range[D18].Value:= 567;

Code :

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 := '\\Mon_Fichier.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;

Ou :

Lien :

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

@+,

Cincap

[NABIL74]

bonjour à toutes et à tous,

normalement, si tu sais travailler avec un classeur excel tu peux avoir le nombre de feuilles du classeur. si tu sais travailler avec une feuille excel, tu pourras lire la valeur de ta cellule. le tout c'est de boucler sur les feuilles du classeur et de lire toujours la même cellule.

dis nous exactement où tu as des soucis.

merci evarisnea

oui je me débrouille assez bien avec excel.
hier, juste après mon post, je suis parvenu à obtenir le nombre de feuilles avec worksheets.count et après j'ai bouclé sur toutes les feuilles du classeur et j'ai pu récuperer la valeur de la même cellule et l'ajouter par la suite à une Listbox.

@ mon frère cincap ,

merci pour ton aide ,t'es toujours là pour aider,
j'ai récuperer la valeur de cellule en utilisant:

Code :

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

Xlapp.Range['F6'].Value

.

Pour moi, ce topic est résolu.

Merci et bonne journée.

NABIL74