Discussion :

[hanitax]

salut à tous
je voudrais parcourir les données d'une colonne excel et effctuer ces valeurs à une variable string j'ai ajouter un msgbox pour afficher les valeurs obtenues mais la valeur est vide il ne retourne aucune valeur voici mon code :
nom:string;
ouvrir le fichier excel

Code :

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

1
2
3
4
ExcelApplication1.Connect;
MonClasseur:=ExcelApplication1.Workbooks.Open(rep+'\BL2602.xls',False,False,
  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0,0,0);

parcourir des données

Code :

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

1
2
3
4
5
6
7
8
 
MaFeuille:=MonClasseur.Worksheets[1] as _worksheet;
  comptlig:=1;
  while (MaFeuille.Cells.Item[comptlig,1].Value<>'') do
    begin
 
              nom:=vartostr(MaFeuille.Cells.Item[comptlig,3].Value);
              ShowMessage(format('Le nom est :', [nom]));

end;

[MCoder]

Est ce que ce ne serait ;

Code :

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

1
2
3
4
 
    ShowMessage(format('Le nom est  %s:', [nom]));
 
   { au lieu de ShowMessage(format('Le nom est :', [nom]));}