Probrleme d'ecriture dans un fichier

locs Messages postés 8 Date d'inscription jeudi 24 juin 2004 Statut Membre Dernière intervention 21 février 2007 - 24 juin 2004 à 16:52
locs Messages postés 8 Date d'inscription jeudi 24 juin 2004 Statut Membre Dernière intervention 21 février 2007 - 25 juin 2004 à 09:00
Bonjours g créer un type en public dans un module et je voudrais l'ecrire dans un fichier texte mais je n'y arrive pourriez vous m'aider ?
Voici le code mon type de données :
Code:

Public Type Reg_Gral
'
CAL As String * 25
GRAM As String * 15
...........
End Type


et voici mon code d'ecriture dans le fichier :
Code:

Private EnrFich, FicLog

Private Sub Exporter_Click()

Set EnrFich = CreateObject("Scripting.FileSystemObject")

Dim compteur As Integer
Dim nIndex As Integer
Dim nInd As Integer
Dim nbligne As Integer
Dim registre As Reg_Gral, n
Dim num As Integer
Set FicLog = EnrFich.GetFile(I_DatHost & "save.txt")

'Récupération du nombre d'enregistrement de la table netipap
SQLStm = "Select COUNT(*) as NBENREG From NETIPAP"
num = g_Con.gfAbrirSeleccion(nInd, SQLStm)
nbligne = g_Con.Fields(nInd, "NBENREG")
g_Con.CerrarSeleccion (nInd)

'Récupération des données de la table netipap
SQLStm = "SELECT * FROM NETIPAP "

num = g_Con.gfAbrirSeleccion(nIndex, SQLStm)

compteur = 1
g_Con.MoveFirst (nIndex)
Do While compteur <= nbligne
'renseignement des valeurs de l'objet
registre.CAL = g_Con.Fields(nIndex, "CAL")
registre.GRAM = g_Con.Fields(nIndex, "GRAM")

FicLogBis.WriteLine (registre)
compteur = compteur + 1
If compteur <= nbligne Then
g_Con.MoveNext (nIndex)
End If
Loop
g_Con.CerrarSeleccion (nIndex)
FicLog.Close


J'ai un message d'erreur qui me dit:
Code:

erreur de compilation :

Seuls les types définies par l''utilisateurs et qui sont définies dans les modules d'objets public peuvent etre convertie depuis ou vers un variant,ou passées a des liaisons tardive.


Si quelqu'un pouvait m'aider se serait sympa parce que la je bloque.

4 réponses

Scalpweb Messages postés 1467 Date d'inscription samedi 13 mars 2004 Statut Membre Dernière intervention 5 mai 2010 4
24 juin 2004 à 16:57
Tu sais que tu peux utiliser l'instruction "Open" pour ouvrir un fichier ?
0
locs Messages postés 8 Date d'inscription jeudi 24 juin 2004 Statut Membre Dernière intervention 21 février 2007
24 juin 2004 à 17:01
oui je sais mais ca change rien sa marche pas non plus je comprend vraiment pas d'ou vient le probleme???????
0
Scalpweb Messages postés 1467 Date d'inscription samedi 13 mars 2004 Statut Membre Dernière intervention 5 mai 2010 4
24 juin 2004 à 17:07
C'est en Vb.Net ?

Pice-WCorp bientôt sur le net.
0
locs Messages postés 8 Date d'inscription jeudi 24 juin 2004 Statut Membre Dernière intervention 21 février 2007
25 juin 2004 à 09:00
Il s'agit de vb 6
0