// Mise à jour de la base Clients
POUR i=1 A TableOccurrence(Table_Client_Import)
TableSelectPlus(Table_Client_Import,i)
Client.Code_Client = Table_Client_Import.Code_Client
Client.Nom_Titulaire = Table_Client_Import.Nom_Titulaire
....
// Recherche l'enregistrement
HLitRecherchePremier ( Client, Code_Client, Table_Client_Import.Code_Client)
SI HTrouve () ALORS
HModifie (Client)
SINON
HAjoute(Client)
FIN
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=3447&post_id=14592