Message d'erreur

Bonjour,
J'ai ce message d'erreur lorsque j 'exécute ma requête, j' ai besoin d'aide

Message d'erreur : (la connexion est occupée avec les résultats d'un autre hstmt)

////ouverture de la connexion a la base de donnée
Procédure_Connexion_Serveur()

POUR TOUTE LIGNE DE TABLE_DetailPieceCais

xValeurCdeID est un numérique=TABLE_DetailPieceCais.COL_CodeDEMID

// HExécuteRequête(REQ_FusionEtat,hRequêteDéfaut,xValeurCdeID)
//
// HLitPremier(REQ_FusionEtat)

Conteur est un entier = 1
Fichierimp est un entier = 1
testpage est un entier

// TANTQUE PAS HEnDehors ()

HExécuteRequête(REQ_FusionEtat,hRequêteDéfaut,xValeurCdeID)
// HExécuteRequête(REQ_tottransjour)


iDestination(iPDF,"E:4-Donnée web224.1-SOURCES4.1.4-SITESPayeOccas2PAYEOCCAS2_WEBFiche PayeOccas PDF"+Fichierimp+".pdf")
iNumPage(Conteur)

iImprimeEtat(ETAT_FusionEtat)

Conteur=testpage+1

Fichierimp = Fichierimp+1

// HLitSuivant (REQ_clientchant)
// FIN


monTableaudepdf est un tableau de Fichierimp chaînes


POUR i = 1 À Fichierimp

monTableaudepdf[i] = "E:4-Donnée web224.1-SOURCES4.1.4-SITESPayeOccas2PAYEOCCAS2_WEBFiche PayeOccas PDF"+i+".pdf"


FIN


PDFFusionne("E:4-Donnée web224.1-SOURCES4.1.4-SITESPayeOccas2PAYEOCCAS2_WEBFiche PayeOccas PDFpdf_fusion.pdf",monTableaudepdf)


FIN
HFermeConnexion(MaConnexion)