TableAjoute(MaTable,"GAP")
TableAjoute(MaTable,"Marque de la presse")
TableAjoute(MaTable,"Nom")
//etc...
Fin
I est un entier
Pour tout Rs
i+=1
AjouteEnreg(Rs,MaTable..Nom,i)
Fin
Procedure AjouteEnreg(Rs,sTable,NumCol)
{"sTable._COL" + NumCol}[2] = Rs.GAP
{"sTable._COL" + NumCol}[3] = Rs.[Marque de la presse]
{"sTable._COL" + NumCol}[4] = Rs.Nom
//etc...
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4590&post_id=19064