Je cherche a uploader des images via un site WD pour afficher ensuite dans
une ZR.
Je fais le code ci-dessous mais ca marche pas


//--------------------------------------------------
ficSource, ficDest, ficNom sont des chaînes
ficSource = UploadNomFichier("ChampUpload")
SI ficSource <> "" ALORS
ficDest = UploadNomFichier("ChampUpload", Faux)
ficNom = fExtraitChemin(ficDest,fFichier+fExtension)
ficDest = RépertoireWeb +"/" + ficNom
ResCopie=UploadCopieFichier(ChampUpload,RépertoireWeb, ficNom)
SI ResCopie = Faux ALORS
Erreur(ErreurInfo(errMessage))
FIN
FIN
FicPhotos.NomPhoto1 = ficNom
HAjoute(FicPhotos)

//----------------------------------------------------------------

JP