Discussion :

[chmaichel]

bonjour:
jevoudrais parcourir un fichier excel pour pouvoir faire une comparaison du contenu de chaque cellule avec les lignes d'un fichier texte.
J'ai ouvert le classeur et la feuille apres j'ai fait une boucle for avec un nombre qui correspond au numéro de la ligne
tmpS:=MaFeuille.Cells.Item[i,2].Value ;
avec cette je recupere le contenu de la cellule
Le probleme c'est que ça ne marche pas !
merci de me répondre ..

[qi130]

As-tu regardé dans la ?

Le probleme c'est que ça ne marche pas !

Mais encore ?

[chmaichel]

oui j'ai deja regardé , il ya pas mal de trucs sur les fichiers excel mais il n'y a pas la réponse à mon probleme...

[diam's]

il n'y a pas la réponse à mon probleme...

Eh bien, disons que tout ce qu'on sait de ton problème, c'est ce que tu as bien voulu en dire. A savoir :

Le probleme c'est que ça ne marche pas !

montres nous un bout de ton code...

Les phrases style "ça marche pas", ça fait pas spécialement avancer le schmilblik.

Par contre, si tu nous dis que ton code c'est "ça", que "ça" bloque sur cette ligne "là", ou que "ça" affiche tel message d'erreur, alors là, on pourrait un peu mieux t'aider, tu ne crois pas ? Mais c'est vrai que si l'intégralité de ton code est classé 'secret défense', ça va être difficile

PS : et comment ça j'ai fait une page sur ce que QI130 a résumé en deux mots ("Mais encore ?"). Ben oui, j'étais très fort en explication de texte

[chmaichel]

voici le code pour ouvrir le classeur et la premiere feuille
MonClasseur:=ExcelApplication1.Workbooks.Open('K:\Delphi\Work\SHUNTPAI\0.99\References\regles_shuntage_PAI.xls',False,False,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
MaFeuille:=MonClasseur.Worksheets[1] as _worksheet;
ForceDirectories('K:\Delphi\Work\SHUNTPAI\0.99');

et voici la boucle que j'ai faite pour que le programme parcourt toute la feuille(le contenu de toutes les cellules qui sont au nombre de 401)
for i:=1 to 401 do
begin
MaPlage:=MaFeuille.Range['Ai',EmptyParam].EntireRow;

tmpS:=MaFeuille.Cells.Item[i,2].Value ;
end;

tmpS est de type string
alors ce que ça fait c'est qu'il repete la premire cellule 401 fois alors que je lui demande de changer de cellule à chaque fois.
c'est peut etre la la bonne fçon de faire , si quelqu'un sait comment merci de m'aider.

[Eric Boisvert]

le problème n'est pas dans ce bout de code...

sauf que je ne saisie pas bien pourquoi tu fais:

Code :

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

1
2
 
MaPlage:=MaFeuille.Range['Ai',EmptyParam].EntireRow;

dans ta boucle...

Met exactement ce bout code dans un bouton et essaye-le toi même...
tmpS change à chaque fois...

Le problème est ailleur....

[chmaichel]

MaPlage:=MaFeuille.Range['Ai',EmptyParam].EntireRow;

cette phrase ne sert à rien , je l'ai deja enlevé .
Mais le probleme ne peut venir que de la boucle pq aucun autre bout du code ne traite les cellules de la feuille excel, et si j'enleve la boucle etj emets 1 à la place du i il me donnela premiere cellule ...

[Eric Boisvert]

Et si tu met 2...à la place du i est-ce que ca te donne la 2 ème?

noublie pas que la syntax est la suivante...
MaFeuille.Cells.Item[ #RANGÉES, #COLONNES ].Value

[chmaichel]

oui je le sais bien, si je remplace par 2 ça me donne la deuxieme cellule..

[Eric Boisvert]

bien ca,

Code :

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

1
2
3
4
5
 
for i:=1 to 401 do
begin
     tmpS:=MaFeuille.Cells.Item[i,2].Value ;
end;

ca énumère les 401 cellules!

le problème est ailleur!

[chmaichel]

bah merci en tout cas , je vais essayer de localiser le probleme