Bonjour à tous!!

Ca faisait un pti moment que je ne venais plus vous embeter mais la j'arrive en force accompagné d'un problème qui me laisse pantois!! (j'ésper que ca ne sera pas le cas pour tout le monde..)

Déjà, voici le bout de code posant problème:

PublicSub LectureConfigSas()

Dim i AsByte

' Ouverture du fichier de configuration sas

'==========================================

OpenFile()

' Test existence d'un précédent enregistrement

'==============================================

NbSasCfg =

LOF(Canal) / Len(SasN1)

If NbSasCfg = 0 Then

' Première création du fichier

For i = 0 To NBPSMAX - 1

SasN1.in_PORTE(i) = i 

' adresses portes

SasN1.in_NomPorte(i) =

"PORTE " & Chr(&H41S + i ) ' noms portes

SasN1.stat_M_ouvre(i) =

False' Interne: Mémoire Ouverture depuis Porte

SasN1.stat_Aut_ouvre(i) =

False' Interne: Autorisation d'ouverture depuis Porte

Next

==================================================


Le problème est le suivant:

Lorsque je rentre dans la boucle "for to, next" (je suis en mode debug ,pas à pas), je vois que la première instruction est lue MAIS ensuite au lieu de passer à la 2ième instruction, le programme sort complètement de la "sub" comportant cette boucle et n'éxecute pas meme une seule fois la boucle !!!!! Mais qu'est ce qu'il lui prend???!! Si vous avez une idée de la raison de ce problème ou meme un pti message de soutien pour ma cause il sera le bienvenue..lol

Merci d'avance!!!

Ce qui se conçoit bien s'énonce clairement...

Salut,

tu dois gérer une erreur quelque part. En VB6 ou VBA, il y a une instruction ON ERROR GOTO Label.

As tu une gestion d'erreur avant l'appel de ta sub.

Vers ou le code s'execute lorsqu'il sort de la sub ?

Essaies aussi de voir s'il n'y a pas un soucis avec l'instruction suivant (meme autre part dans le programme)

SasN1.in_PORTE(0) = 0 

Mouais c'est quand même strange comme problème...
Vb a dja perdu les pédales chez moi parce que j'affectais à un string une chaine de caractère contenant le caractère null habituellement utilisé pour indiquer la fin de la chaine dans la mémoire. Tu vas me dire que c'est l'instruction suivante, mais vérfie quand meme que Chr(&H41S + i )  ne produit jamais Chr(0)...

---

Julien.

NBPSMAX a quelle valeur ? Parce que si il est égale à 0 et que comme j'ai vu tu fais -1 c'est sûr qu'il y a un problème à ce moment là.

 pseudoOM

Déja merci beaucoup mais je suis encore en train de cherché je ne trouve pas, l'instruction en elle meme ne crée pas de problème mais je n'ai aucune gestion d'erreur ici donc je continu mes recherches.autrement je suis sur VB2005 et c'est normalement "on error resume next" que j'utilise mais la il faut que cette instruction s'éxecute impérativement sans problème.
encore merci nicko!

Ce qui se conçoit bien s'énonce clairement...

On error resume next c'est pas top, faut gérèr les erreurs avec des blocs Try Catch en .Net.

---

Julien.

désolé j'avais pas vu les autres messages!

NBSPMAX=4 donc pas de souci a ce niveau et si Chr(&H41S + i )= chr(0) j'arrete la prog!! lol
en tout cas merci a vous quand meme !! 

Ce qui se conçoit bien s'énonce clairement...

Oula merciiii beaucoup julien je n'utilisais pas le try catch et en fait ca aide vraiment bien!!
l'erreur qui m'est donné est en fait ailleur:

'***********************************************************

' Ouverture d'un fichier en accès direct (type RECORD)

'***********************************************************

PrivateSub OpenFile()

' Ouverture du fichier de configuration sas

'==========================================

Canal = FreeFile()

Try

FileOpen(Canal, CFG_FILE_NAME, OpenMode.Random, , , Len(SasN1))

Catch ex As Exception

MsgBox(ex.Message)

EndTry

 

l'erreur décrite est: "incompatibilité de type."

Je pense que ca vien du fait que SasN1 est un objet de la classe SasN mais pourquoi je ne sais pas..

Je fais en fait la migration d'un projet VB6 vers VB2005 mais je n'ai aucune erreur a la génération..

Merci julien!

Ce qui se conçoit bien s'énonce clairement...

Et pour la première erreur , la définition est : "la reférence d'objet n'est pas définie à une instance d'objet , bon , ca me parait louche car à la génération ca me signalerais une érreur non??merci

Ce qui se conçoit bien s'énonce clairement...