Problème remplissage d'un tableau

Bonjour,

j'ai crée un model en word, avec un tableau de deux ligne et 7 colonne, je veux remplir le tableau et ajouter des ligne s'il le faut (sa va être le cas) le code est le suivant :

Code:

---

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

try DocWord.Connect; resu:=true; except MessageDlg('Word n''est pas installé', mtError, [mbOk], 0); Abort; end; if resu then begin Repertoire:= ExtractFilePath(Application.ExeName); FileName:= repertoire+'Doc/Etat Congé.docx'; Fichier:= Docword.Documents.Open(FileName, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam, true); Tableau:=fichier.Tables.Item(1); prepa.First;i:=2; while not prepa.Eof do Begin tableau.Cell(i,1).range.text:=prepa.FieldValues['Matricule']; tableau.Cell(2,2).range.text:=prepa.FieldValues['Nom']; tableau.Cell(2,3).range.text:=prepa.FieldValues['Prenom']; tableau.Cell(i,4).range.text:=prepa.FieldValues['Exercice']; tableau.Cell(i,5).range.text:=prepa.FieldValues['Reliquat']; tableau.Cell(i,6).range.text:=prepa.FieldValues['Droit_conge']; tableau.Cell(i,7).range.text:=prepa.FieldValues['Jour_restant']; tableau.Rows.Add(Tableau.Rows.Item(Tableau.Rows.Count)); prepa.Next End; DocWord.Visible:=true; docword.Disconnect; end;

---

le problème est le suivant : a l’exécution les ligne sont ajouter correctement mais les enregistrements de la table ne sont pas prise en compte sauf le premier et le dernier, tous ce qui se trouve entre les deux enregistrement ne sont pas inscrit pourtant les ligne sont ajouter.

Merci

Bonjour,

peut être parce-que i n'est jamais incrémenté ? (en fait ce n'est pas une question ;))

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

prepa.First; i:=2; while not prepa.Eof do Begin inc(i);<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ICI tableau.Cell(i,2).range.text:=prepa.FieldValues['Nom']; tableau.Cell(i,3).range.text:=prepa.FieldValues['Prenom']; tableau.Cell(i,1).range.text:=prepa.FieldValues['Matricule']; tableau.Cell(i,4).range.text:=prepa.FieldValues['Exercice']; tableau.Cell(i,5).range.text:=prepa.FieldValues['Reliquat']; tableau.Cell(i,6).range.text:=prepa.FieldValues['Droit_conge']; tableau.Cell(i,7).range.text:=prepa.FieldValues['Jour_restant']; tableau.Rows.Add(Tableau.Rows.Item(Tableau.Rows.Count)); prepa.Next End;

---

NOTE : je n'ai regardé que ça, pas la méthode, la validité d'ajout de ligne et sa position, ni le fait que i:=2 obligatoirement au départ, le inc(i) peut aussi être positionné ailleurs dans la boucle (après le Next ? selon le tableau de départ)

Bonjour,

merci de votre réponse, pour l’incrémentation de i n'est pas nécessaire parce que quand la ligne est ajouter, elle est insérer en première position, c'est a dire la première ligne qui existais déjà va être en 2eme, puis un autre ajout de ligne elle sera 3eme etc.

si sincèrement la valeur de i, le programme va enregistrer toujours dans la dernière ligne du tableau.

Merci

Bonjour,

je n'arrive toujours pas à résoudre mon problème, peut être un screen vous aidera à m'aider a résoudre le problème.

Pièce jointe 221297

comme vous pouvez le voir il prend seulement en charge le premier enregistrement et le dernier, tout ce qui se trouve entre les deux ne se remplit pas dans le tableau, sachant qu'il parcourt toute la table enregistrement par enregistrement.

voila
Merci

salut


as tu essayé avec

Code:

---

tableau.Cell(i,2).range.text := prepa.FieldValues['...'].AsString

---

moi j'utilise cet fonction de word

Code:

---

tableau.Cell(Row,Column).Range.InsertAfter(st);

---

salut,

Pour le asString la compilation est bonne mais quand j’exécute sa me dit opération de variant incorrect ? pourquoi ? je n'ai pas compris j'ai même test de faire une conversion sa ne marche pas

pour la méthode que vous utilisé(e) sa me met tous les matricule dans la première ligne et première colonne sachant que je change la valeur de i a chaque itération.

Merci

salut

il faut changer la valeur de "Column" aussi

Code:

---

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

i:=1; while not prepa.Eof do Begin Inc(i); st :=prepa.FieldValues['Nom']; tableau.Cell(i,2).range.InsertAfter(st) st :=prepa.FieldValues['Prenom']; tableau.Cell(i,3).range.InsertAfter(st) st :=prepa.FieldValues['Matricule']; tableau.Cell(i,1).range.range.InsertAfter(st); st :=prepa.FieldValues['Exercice']; tableau.Cell(i,4).range.InsertAfter(st); st :=prepa.FieldValues['Reliquat']; tableau.Cell(i,5).range.InsertAfter(st); st :=prepa.FieldValues['Droit_conge']; tableau.Cell(i,6).range.InsertAfter(st); st := prepa.FieldValues['Jour_restant']; tableau.Cell(i,7).range.InsertAfter(st);   //On récupére la derniére ligne BeforeRow:=Tableau.Rows.Item(Tableau.Rows.Count); // insere dans l'avant derniere ligne Tableau.Rows.Add(BeforeRow); prepa.Next End;

---

voila cela devrais fonctionner

Bonsoir, et merci pour ton aide.

Bon, j'ai pu regler mon probleme avec une autre maniere :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

while not prepa.Eof do Begin tableau.Rows.Add(Tableau.Rows.Item(Tableau.Rows.Count)); prepa.Next End; prepa.First; while not prepa.Eof do begin tableau.Cell(i,1).range.text:=prepa.FieldValues['Matricule']; tableau.Cell(i,2).range.text:=prepa.FieldValues['Nom']; tableau.Cell(i,3).range.text:=prepa.FieldValues['Prenom']; tableau.Cell(i,4).range.text:=prepa.FieldValues['Exercice']; tableau.Cell(i,5).range.text:=prepa.FieldValues['Reliquat']; tableau.Cell(i,6).range.text:=prepa.FieldValues['Droit_conge']; tableau.Cell(i,7).range.text:=prepa.FieldValues['Jour_restant']; inc(i); prepa.Next end;

---

et sa marche, je vais dépanner avec sa et quand j'aurais du temps libre je retournerais pour régler le problème.

sinon j'ai tester ce que tu ma donner et sa écrit toujours dans la même colonne même avec une incrémentation.

toute fois je vais cocher le bouton resolue meme si je sais que ce n'est pas la meilleur solution :).

Merci a vous