Discussion :

[maniolo]

Bonjour à tous,
Lorsque je crée un fichier avec mon bout de code ci-dessous cela me créer bien un fichier .dat dans le dossier mais le fichier est toujours vide et un autre fichier portant le meme nom mais sans extension et contenant les données se crée à la racine du projet , je n'arrive pas à savoir pourquoi merci de votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Set Fsystem = CreateObject("Scripting.FileSystemObject")
Set MonFichier = Fsystem.CreateTextFile("" & App.Path & "\Dossier\" & fichierTemp & ".dat")

[SfJ5Rpw8]

ben il nous manque le morceau de code ou tu écrit ces fameuses donneés

[maniolo]

J'utilise une procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Private Sub Init(strNomFichier As String)
Dim intPlace As Integer
 
 structReserv.strNom = Space(30)    
 structReserv.strPrenom = Space(35)      
 structReserv.strNumTel = Space(10)     
 
 Close #1
 
 Open strNomFichier For Random As #1 Len = Len(structReserv)
 
 For intPlace = 1 To 114
     Put #1, intPlace, structReserv      
     If Me.lblPlace(intPlace) >= 1 And Me.lblPlace(intPlace) <= 37 Then
        Me.lblPlace(intPlace).BackColor = RGB(141, 16, 95)
     ElseIf Me.lblPlace(intPlace) >= 38 And Me.lblPlace(intPlace) <= 70 Then
        Me.lblPlace(intPlace).BackColor = RGB(246, 61, 178)
     ElseIf Me.lblPlace(intPlace) >= 71 And Me.lblPlace(intPlace) <= 114 Then
        Me.lblPlace(intPlace).BackColor = RGB(240, 133, 221)
     End If
 
     Me.lblPlace(intPlace).ForeColor = vbYellow  
     Me.lblPlace(intPlace).Visible = True       
 Next intPlace
 
End Sub

[SfJ5Rpw8]

et comment l'appelle tu ta procédure... , et pourquoi mélange tu deux maniéres différentes d'écrire dans ton fichier (filesystemobject et méthoque classique par open/put..)

[maniolo]

Pour appeler ma procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Init(strFichierTemp)

filesystemobject me sert en fait juste à créer le fichier, ensuite j'écris dans le fichier avec la methode open

[SfJ5Rpw8]

ben la méthode open créé aussi le fichier...

bon tu ne nous as pas encore tout dit... qu'elle valeur écrit tu dans cette variable
strFichierTemp qui je suppose n'est pas la même que la variable Fichier temp vu plus haut !! ou bien il manque le répertoire..