VL_Objtest est un objet Automation dynamique
VL_TableVersion est chaîne="pdf.pdfctrl.1;pdf.pdfctrl.5;pdf.pdfctrl.6;AcroPDF.PDF.1;"
VL_Version est une chaîne
VL_VersionTrouvee est une chaîne
VL_i est entier
TANTQUE SansEspace(VL_VersionTrouvee)=""
VL_i++
VL_Version=SansEspace(ExtraitChaîne(VL_TableVersion,VL_i,";"))
SI VL_Version=EOT ALORS
VL_VersionTrouvee="AUCUNE"
SINON
SI VL_Version<>"" ALORS
QUAND EXCEPTION DANS
VL_Objtest=allouer un objet Automation VL_Version
FAIRE
libérer VL_Objtest
SINON
VL_VersionTrouvee=VL_Version
libérer VL_Objtest
FIN
FIN
FIN
FIN
Info(VL_VersionTrouvee)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4907&post_id=20329