Erreur: type Incompatible...Résolu

Question

B'jour!

Me (re)voil&#224; avec un pobl&#232;me avec le programme que je d&#233;veloppe. Je vais essayer d'&#234;tre clair et concis:

_Je d&#233;bute en VB ;)
_Je fais un logiciel qui contient en fait 3 modules: Un qui permet de s'occuper d'ajouter, supprimer et consulter des &#233;l&#232;ves; Un qui permet de s'occuper d'ajouter, supprimer et consulter des notes qu'auront eu les &#233;l&#232;ves et Un qui permet de s'occuper d'ajouter, supprimer et consulter des Examens qu'ont subis les &#233;l&#232;ves.
_Les El&#232;ves, Notes, Examens et leurs caract&#233;ristiques attenantes sont enregistr&#233;s dans 3 fichiers diff&#233;rents.
_Mon bug ne se produit pas sur le module concernant les &#233;l&#232;ves, celui que j'ai cr&#233;&#233; en premier et qui m'a servi de r&#233;f&#233;rence pour les deux autres modules. J'ai proc&#233;d&#233; &#224; quelques copier/coller depuis celui ci vers les autres mais de mani&#232;re, me semble-t-il, prudente.

Donc il se trouve que quand je veux ajouter (ou consulter ou supprimer) une note ou un examen j'ai, &#224; chaque fois le message d'erreur "Erreur d'excution 13         Type Incompatible".

Je ne comprends pas l'erreur. Mais voici peut-&#234;tre quelques pistes d'erreur possible, que je ne sais pas r&#233;soudre:

_Les donn&#233;es li&#233;es aux &#233;l&#232;ves sont enregistr&#233;s par un bout de code dont voici les lignes:
    Open "C:\eleve.txt" For Random As 1 Len = Len(SaveEleve)
SaveEleve.numeroeleve = TxtNumEleve
SaveEleve.nomeleve = TxtNomEleve
SaveEleve.prenomeleve = TxtPrenomEleve
SaveEleve.classeeleve = TxtClasseEleve
Put 1, TxtNumEleve, SaveEleve
Close 1

_ Et celles li&#233;es aux Notes (par exemple) sont enregistr&#233;es gr&#226;ce &#224; &#231;a:

    Open "C:
ote.txt" For Random As 2 Len = Len(SaveNote)
SaveNote.numeroeleve = TxtNumEleve
SaveNote.numexam = TxtNumExam
SaveNote.nommatiere = TxtNomMatiere
SaveNote.numeronote = TxtNumNote
Put 2, TxtNumEleve, SaveNote
Close 2

Je me demande donc si le probl&#232;me ne vient pas des num&#233;ros (1 et 2) qui caract&#233;risent les fichiers... ? Je ne sais pas trop m'en servir de ces num&#233;ros...

En r&#233;fl&#233;chissant vraiment au message d'erreur, je me suis demand&#233; si l'erreur ne vient pas de mon "module" dans lequel sont d&#233;finis quelques types publiques. Mais je n'y vois pas d'erreur.

Voil&#224;, je vous laisse avec cela, et n'h&#233;sitez pas si vous avez des questions pour vous aider &#224; r&#233;soudre mon probl&#232;me, j'essaierai d'y r&#233;pondre avec le plus de pr&#233;cision ;)

Bonne soir&#233;e &#224; tous et merci de votre aide!

David

davidguillon · Accepted Answer

Youpi un copain vient de me trouver la solution.

Vous ne pouviez pas trouver la solution vu le code que je vous avais donn&#233;. Je vous donne un bout de code plus cons&#233;quent:

Private Sub BtnOkAjoutExamen_Click()
Open "C:\examen.txt" For Random As 3 Len = Len(SaveExam)
SaveExam.numeroexam = TxtNumExam
SaveExam.nomexam = TxtNomExam
SaveExam.dateexam = TxtDateExam
SaveExam.moyexam = TxtMoyExam
SaveExam.numsalle = TxtNumSalle
SaveExam.nommatiere = TxtNomMatiere
SaveExam.numeroeleve = TxtNumEleve
SaveExam.nomeleve = TxtNomEleve
Put 3, TxtNumEleve, SaveExamen
SaveExam.numeroexam = ""
SaveExam.nomexam = ""
SaveExam.dateexam = ""
SaveExam.moyexam = ""
SaveExam.numsalle = ""
SaveExam.nommatiere = ""
SaveExam.numeroeleve = ""
SaveExam.nomeleve = ""
Close 3
End Sub

L'erreur.... vous l'avez peut-&#234;tre trouv&#233;e maintenant. Une fois que le Put 3 a &#233;t&#233; effectu&#233;, je voulais que les champs de texte soient effac&#233;s pour permettre une autre saisie. Mon pote m'a donc trouv&#233; qu'il ne faut pas r&#233;initialiser la variable (exemple: SaveExam.nomexam) mais uniquement la zone de texte. Donc le type d'exemple pour effacer une ligne est :
TxtNomExam=""  

Il m'a d'ailleurs conseill&#233; d'ajouter ".Text" apr&#232;s chaque nom de champ texte afin que tout soit bien d&#233;fini.

Ensuite, ce monsieur m'a appris &#224; ajouter une condition SI qui me permet de v&#233;rifier que certains champs ont bien &#233;t&#233; remplis ;)

Donc voil&#224;, ma situation est d&#233;bloqu&#233; :)

Merci &#224; vous tous de vous &#234;tre pench&#233;s sur mon probl&#232;me, &#231;a fait vraiment plaisir de voir que l'on n'est pas seul en cas de p&#233;pin en d&#233;veloppement :)

Bonne journ&#233;e &#224; tous!

David

davidguillon · Answer

erf... J'ai bien l'impression que finalement tout mon programme bug avec cette m&#234;me erreur... Ca sera peut-&#234;tre plus simple pour r&#233;soudre le probl&#232;me...

Je me relance dans mes recherches, en esp&#233;rant que vous sachiez pr&#233;cis&#233;ment ce que cette erreur signifie ;)

A tout de suite :P

David

cs_casy · Answer

Moi je diaris plutot que ton erreur vient des instructions Put.
L'instruction Put attent en second param&#232;tre un nombre de type long, et toi tu lui passe une chaine de caract&#232;re (j'imagine que TxtNumEleve est une chaine de caract&#232;re).

Normalement quand tu execute ton programme depuis VB et que tu obtient une erreur, la ligne ou se produit l'erreur est surlign&#233;e de jaune, &#231;a peut aider pour trouver l'erreur.

cs_casy · Answer

Et pour les nombres 1 et 2 tu peux regarder du cot&#233; de la fonction FreeFile aussi. Elle te renvoie le premier num&#233;ro de fichier libre.
Personellement, je pr&#233;f&#232;re &#231;a que d'imposer arbritrairement un num&#233;ro.

davidguillon · Answer

Ben en fait non, c'est un Integer :D Mais celui ci se saisi dans une case de texte, d'o&#249; le nom que j'ai choisi...

Pour les fichiers, on m'a appris &#224; faire comme &#231;a et vu que je suis un mouton... lol   Nan mais j'aimerai, pour ce programme, utiliser ce type d'&#233;criture.

Je ne trouve pas la solution du probl&#232;me... Il me met et surbrillance cette ligne l&#224; (dans le module &#233;l&#232;ve):
SaveEleve.numeroeleve = TxtNumEleve

SaveEleve &#233;tant en rapport avec mon type public ELEVE d&#233;fini dans le module li&#233;...

cs_casy · Answer

Regarde les d&#233;finitions de tes diff&#233;rentes variables dans ton type ELEVE
numeroeleve doit etre du m&#234;me type que TxtNumEleve, etc....

Ton type ELEVE s'il est d&#233;fini dans un autre module, il ne doit pas etre d&#233;fini avec le mot cl&#233; Private, idem pour la variable SaveEleve.

Question : Utilise-tu l'option explicit ? Si ce n'est pas le cas, ajoute syst&#233;matiquement sur la toute premi&#232;re ligne de code de tous les modules et de toute les feuilles la ligne suivante : Option Explicit
Cela va t'obliger &#224; d&#233;clarer explicitement chaque variable que tu utilise. C'est un peu moins souple au niveau codage (c'est une habitude &#224; prendre), mais &#231;a va t'&#233;viter certains bugs tr&#232;s difficiles &#224; trouver quand ils portent sur le type de variable.

Consid&#232;re cette option comme une option ABSOLUMENT OBLIGATOIRE pour ce programme et tous tes programmes &#224; venir.

asecher · Answer

Casy a casiment raison....

L'erreur de type 13 survient souvent quand on passe un str vers un num&#233;rique. De plus, il faut faire attention (ce ne doit pas &#234;tre le cas pour toi car tu travaille sur des entiers) au s&#233;parateur d&#233;cimal, qui, selon le param&#233;trage "International" est le point ou la virgule.

Des petites fonctions de conversion (cint, par exemple) ou de verification (IsInteger) selon le langage utilis&#233; (mais qui ne sont pas tr&#232;s compliqu&#233;es &#224; d&#233;velopper) aident bien...

Cordialement,

Alain 31

davidguillon · Answer

D'accord, merci pour vos r&#233;ponses. Je vais m'occuper de &#231;a ce week-end ou en d&#233;but de semaine ;) Je vous tiens au courant :)

mortalino · Answer

Salutation &#224; tous,

Je souhaiterai savoir une petite chose : ton module s'appelle "SaveEleve" ?


Si c'est le cas dans 
    Open "C:
ote.txt" For Random As 2 Len = Len(SaveNote)


c'est pas bon car la fonction Len renvoi le nombre de caract&#232;res d'une variable de type string.


Par contre si SaveNote n'est pas ton module mais belle et bien une variable de type string, ben alors j'ai rien dit..

@ ++

  Mortalino

davidguillon · Answer

Je ne vois pas ce que tu appelles module. J'ai "ajout&#233; un module" et y ai d&#233;clar&#233; mes types publiques.
J'en ai trois: NOTE (auquel le programme se r&#233;f&#232;re gr&#226;ce &#224; SaveNote)
                        EXAMEN (auquel le programme se r&#233;f&#232;re gr&#226;ce &#224; SaveExam)
                       ELEVE (auquel le programme se r&#233;f&#232;re gr&#226;ce &#224; SaveEleve)

Est-ce que ta remarque tiens toujours sachant ce que je viens d'&#233;crire?

Merci en tout cas de te pencher sur le probl&#232;me ;)

David

mortalino · Answer

Quand tu dis :    J'ai "ajout&#233; un module" et y ai d&#233;clar&#233; mes types publiques.
*Comment s'appelle ton module ? module1, ou tu l'as renomm&#233; ?
*SaveEleve, qu'est ce c'est ?

c'est en fait pour voir si le probl&#232;me ne se situe pas dans la phrase
Open "C:
ote.txt" For Random As 2 Len = Len(SaveNote)


Si "SaveNote" n'est pas de type string, t'es marron, d'o&#249; le message d'erreur d'incompatibilit&#233;

  Mortalino

davidguillon · Answer

Module1 ets bien le nom de mon module.

SaveEleve en fait... heu ben regarde ce que j'ai : 

Public Type ELEVE
numeroeleve As Integer
nomeleve As String * 50
prenomeleve As String * 50
classeeleve As String * 10
End Type

Public SaveEleve As ELEVE

Donc voil&#224;, SaveEleve c'est le nom qui fait r&#233;f&#233;rence au type ELEVE.

Ici, toutes les variables &#224; saisir ne sont pas r&#233;f&#233;renc&#233;es mais pour l'exemple NOTE ben elle sont toutes d&#233;clar&#233;es et &#231;a na fonctionne pas..

Ce qui m'&#233;tonne c'est que pour tout ce qui se rapporte aux &#233;l&#232;ve, &#231;a fonctionnait avant...

mortalino · Answer

Dans ces 2 phrases :
    Open "C:\eleve.txt" For Random As 1 Len = Len(SaveEleve)
    Open "C:\eleve.txt" For Random As 1 Len = Len(SaveNote)

remplace (temporairement)     "= Len(SaveEleve)"     par         "= 10"          (10 &#233;tant un nombre que j'ai mis au hasard, met la nombre de ton choix, bref le plus adapt&#233;)
idem pour "= Len(SaveNote)"


Juste pour voir si &#231;a te cause tjs le probl&#232;me, au moins on saura si c'est dans cette partie de code ou non.

  Mortalino

cs_casy · Answer

mortalino, pour ton info l'instruction len(SaveNote) est tout &#224; fait correcte dans ce cas l&#224;.

L'instruction Len renvoie le nombre de caract&#232;re d'une chaine de caract&#232;re OU le nombre d'octet d'une variable qu'elle soit classique ou de type user comme ici.

davidguillon · Answer

En mettant "Open "C:\eleve.txt" For Random As 1 Len = 10" &#224; la place de "Open "C:\eleve.txt" For Random As 1 Len = Len(SaveEleve)", le probl&#232;me et l'erreur restent les m&#234;mes.

Par contre en mettant "Open "C:\eleve.txt" For Random As 1 Len = xx" ben j'ai une erreur 5    Argument ou appel de proc&#233;dure incorrect. Mais en faisant le d&#233;bogage, il me surligne Open "C:\eleve.txt" For Random As 1 Len = xx alors qu'avec Open "C:\eleve.txt" For Random As 1 Len = Len(SaveEleve)   il me surligne ma premi&#232;re ligne (&#224; savoir "SaveEleve.numeroeleve = TxtNumEleve")

Voili voil&#224;...

Je risque de ne plus r&#233;pondre beaucoup ce soir. D'ici Vingt minutes je ne serai plus l&#224;. Je repasserai faire un tour dans la soir&#233;e ;)

merci encore &#224; vous ;)

mortalino · Answer

Merci casy, sans se moquer, je ne savais pas que ca calculait aussi le Nb d'octets.


 Sinon je suis ancr&#233; sur sa phrase
Open "C:\eleve.txt" For Random As 1 Len = Len(SaveEleve)

j'ai d&#233;j&#224; eu des prob de r&#233;f&#233;rencement entre plusieurs module.

Si cette instruction (Open ...) est plac&#233;e Hors du module o&#249; se trouve sa d&#233;claration du Type ELEVE, ne serait il pas judicieux de placer 


Open "C:\eleve.txt" For Random As 1 Len = Len(ModuleX.SaveEleve)   ??

  Mortalino

cs_casy · Answer

Ce n'est pas le type ELEVE mais bien la variable SaveEleve (et SaveNote dans le second cas) .

Pour moi il n'est pas utile de preciser le module, si SaveEleve est d&#233;clar&#233;e en tete de module, en public, elle est visible dans l'ensemble du programme, si elle est d&#233;clar&#233; en private, elle n'est visible que dans le module ou elle est d&#233;clar&#233;e. Et donc si elle est utilis&#233;e dans un autre module, il devrai normalement avoir une erreur de variable non d&#233;clar&#233;e (avec l'option explicit active).

 Au sujet de Len, s'il s'agit de connaitre, non pas la taille de la variable, mais la taille de la m&#233;moire r&#233;serv&#233;e &#224; la variable (passage &#224; une dll en C par exemple), il faut utiliser LenB qui elle tient compte des &#233;ventuels alignement m&#233;moires des &#233;l&#233;ments &#224; l'int&#233;rieur de la structure

davidguillon · Answer

L'erreur affich&#233;e est la m&#234;me en mettant la ligne:
Open "C:\eleve.txt" For Random As 1 Len = Len(Module1.SaveEleve)

snif.... et &#224; plus tard ;)

Erreur: type Incompatible...

18 réponses

Discussions similaires