bonjour
voici mon code
////ouverture de la connexion a la base de donnée
Procédure_Connexion_Serveur()
//Fusion des états
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êteSansCorrection,xValeurCdeID)
// HExécuteRequête(REQ_tottransjour)
iDestination(iPDF,"E:\4-Donnée web22\4.1-SOURCES\4.1.4-SITES\PayeOccas2\PAYEOCCAS2_WEB\Fiche 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
= "E:\4-Donnée web22\4.1-SOURCES\4.1.4-SITES\PayeOccas2\PAYEOCCAS2_WEB\Fiche PayeOccas PDF\"+i+".pdf"
FIN
PDFFusionne("E:\4-Donnée web22\4.1-SOURCES\4.1.4-SITES\PayeOccas2\PAYEOCCAS2_WEB\Fiche PayeOccas PDF\pdf_fusion.pdf",monTableaudepdf)
FIN