[WD 16] grosse lenteur par rapport à WD12 !

Bonjour,

j'ai un problème de lenteur de traitement sur une table mémoire depuis le passage à WD16.
En gros, voici le code :

nNBaImporter = TableOccurrence(TABLEIMPORT)
POUR nCompteur=1 A nNBaImporter
TableSelectPlus(TABLEIMPORT,nCompteur)
[traitements divers : vérification que le contenu de certaines colonnes correspondent à des valeurs précises et écritures dans des fichiers textes]
FIN

Ce traitement prenait une dizaine de secondes, pour une table d'environ 1500 lignes, en WD12 et presque 2mn en WD16 !
Quelqu'un aurait-il une idée ?

Merci d'avance,
cordialement.

N.B. : si ça intéresse quelqu'un, voici le code complet :

************************
nNBaImporter = TableOccurrence(TABLEIMPORT)
POUR nCompteur=1 A nNBaImporter
TableSelectPlus(TABLEIMPORT,nCompteur)
sDateTemp = Milieu(SansEspace(TABLEIMPORT.Date_Naissance),9,2)+"/"+Milieu(SansEspace(TABLEIMPORT.Date_Naissance),6,2)+"/"+Gauche(SansEspace(TABLEIMPORT.Date_Naissance),4)

HLitRecherche(CodeApogee,CA_code_etape,Majuscule(SansEspace(Milieu(TABLEIMPORT.IAE_Etape_code,2,5))))
SI HTrouve(CodeApogee) ALORS
sLigneTempEtudIUT = UneLigneEtudIUT(sDateTemp)
sLigneTempEtud = UneLigneEtud(sDateTemp)
sLigneTempLnx = UneLigneLinux(sDateTemp,CodeApogee.CA_linux_serveur,CodeApogee.CA_linux_home)
sLigneTempScoDoc = UneLigneScoDoc(sDateTemp)
sLigneTempExcel = UneLigneExcel(sDateTemp)

fEcrit(taNumFicUniEtud[SansEspace(CodeApogee.CA_code_etape)],sLigneTempEtud)
fEcrit(taNumFicUniLnx[SansEspace(CodeApogee.CA_code_etape)],sLigneTempLnx)
fEcrit(taNumFicUniScoDoc[SansEspace(CodeApogee.CA_code_etape)],sLigneTempScoDoc)
TableAjoute(ScoDoc_Excel,taNumFicUniExcel[SansEspace(CodeApogee.CA_code_etape)] + TAB + sLigneTempExcel)

// on écrit également dans les "regroupements" :
fEcrit(nNumFicIUT,sLigneTempEtudIUT)
SI (SansEspace(CodeApogee.CA_groupe) <> SansEspace(CodeApogee.CA_nom_fichier)) ALORS
fEcrit(taNumFicGrpEtud[SansEspace(CodeApogee.CA_groupe)+NumériqueVersChaîne(CodeApogee.CA_annee)],sLigneTempEtud)
fEcrit(taNumFicGrpLnx[SansEspace(CodeApogee.CA_groupe)+NumériqueVersChaîne(CodeApogee.CA_annee)],sLigneTempLnx)
fEcrit(taNumFicGrpScoDoc[SansEspace(CodeApogee.CA_groupe)+NumériqueVersChaîne(CodeApogee.CA_annee)],sLigneTempScoDoc)
TableAjoute(ScoDoc_Excel,taNumFicGrpExcel[SansEspace(CodeApogee.CA_groupe)+NumériqueVersChaîne(CodeApogee.CA_annee)] + TAB + sLigneTempExcel)
FIN
SINON
sLigneTempEtudIUT = UneLigneEtudIUT(sDateTemp)
fEcrit(nNumFicSansCode,sLigneTempEtud)
nNbPasTrouve++
sTextePasTrouve += NomPrenom(TABLEIMPORT.Individu_Nom,TABLEIMPORT.Individu_Prenom)+RC
FIN
nNbRecup++
FIN
*******************

Les procédures UneLigneXxx sont toutes du style :

*******************
PROCEDURE UneLigneEtudIUT(sDateTemp)

LOCAL
sLigneTemp est une chaîne = ""

sLigneTemp = TABLEIMPORT.Individu_Code_Etudiant + csSepRubriqueEtud
sLigneTemp += TABLEIMPORT.Individu_Nom + csSepRubriqueEtud
sLigneTemp += TABLEIMPORT.Individu_Prenom + csSepRubriqueEtud
sLigneTemp += csSepRubriqueEtud // on saute le champ 'Et_nom-marital' prévu dans la base "Lycées"
sLigneTemp += TABLEIMPORT.Individu_Sexe + csSepRubriqueEtud + sDateTemp + csSepRubriqueEtud + TABLEIMPORT.IAE_Etape_code + csSepRubriqueEtud
sLigneTemp += TABLEIMPORT.CODE_LYCEE + csSepRubriqueEtud + csSepRubriqueEtud // on saute la 'classe'
sLigneTemp += TABLEIMPORT.Bac_Libelle + csSepRubriqueEtud + TABLEIMPORT.Bac_Annee
sLigneTemp += csSepEnregEtud

RENVOYER sLigneTemp
*******************

--
Yves Bourhis