Avec le code suivant, j'obtiens l'erreur :

«On ne peut pas affecter à une structure autre chose qu'une structure de même
définition.»

STRéponsesPELN est une Structure
sNomClient est une chaîne UNICODE
sPrénomClient est une chaîne UNICODE
nIdClient est un entier sur 4 octets
nIdQuestion est un entier sur 1 octet
sQuestion est une chaîne UNICODE
sRéponseEnTexte est une chaîne UNICODE
sRéponseLettre est une chaîne UNICODE
nRéponseNuméro est un entier sur 2 octets
nQualification est un entier sur 1 octet
dDatePELN est une Date
nMois est un entier sur 1 octet
FIN

ReqPELN est une Requête SQL = [
SELECT
clients.Nom,
clients.Prenom,
clients_pelns_reponses.idClient,
clients_pelns_reponses.idQuestion,
peln_questions.Question,
peln_questions_choix.ChoixTexte,
clients_pelns_reponses.ReponseLettre,
clients_pelns_reponses.ReponseNo,
peln_questions_choix.Qualification,
clients.DatePELN,
month(clients.DatePELN) AS mois
FROM
clients_pelns_reponses
JOIN
peln_questions
ON clients_pelns_reponses.idQuestion = peln_questions.idQuestion
JOIN
peln_questions_choix
ON clients_pelns_reponses.ReponseNo = peln_questions_choix.ReponseNo
JOIN
clients
ON clients_pelns_reponses.idClient = clients.ID_Client
ORDER BY
clients.Nom ASC,
clients.Prenom ASC,
clients_pelns_reponses.idClient ASC,
clients_pelns_reponses.idQuestion ASC
]

HExécuteRequête(ReqPELN)

stUneLigneRéponse est un STRéponsesPELN
tabRéponses est un tableau de STRéponsesPELN

POUR TOUT ReqPELN stUneLigneRéponse.sNomClient = ReqPELN.Nom
stUneLigneRéponse.sPrénomClient = ReqPELN.Prenom
stUneLigneRéponse.nIdClient = ReqPELN.idClient
stUneLigneRéponse.nIdQuestion = ReqPELN.idQuestion
stUneLigneRéponse.sQuestion = ReqPELN.Question
stUneLigneRéponse.sRéponseEnTexte = ReqPELN.ChoixTexte
stUneLigneRéponse.sRéponseLettre = ReqPELN.ReponseLettre
stUneLigneRéponse.nRéponseNuméro = ReqPELN.ReponseNo
stUneLigneRéponse.nQualification = ReqPELN.Qualification
stUneLigneRéponse.dDatePELN = ReqPELN.DatePELN
stUneLigneRéponse.nMois = ReqPELN.Mois

TableauAjouteLigne(tabRéponses,
stUneLigneRéponse.sNomClient,
stUneLigneRéponse.sPrénomClient,
stUneLigneRéponse.nIdClient,
stUneLigneRéponse.nIdQuestion,
stUneLigneRéponse.sQuestion,
stUneLigneRéponse.sRéponseEnTexte,
stUneLigneRéponse.sRéponseLettre,
stUneLigneRéponse.nRéponseNuméro,
stUneLigneRéponse.nQualification,
stUneLigneRéponse.dDatePELN,
stUneLigneRéponse.nMois)
FIN