Problème fichier CSV

Version imprimable

Bonjour,
j'essai de mettre en place une méthode de création/lecture/écriture sur fichier .csv. Je me suis inspiré sur un tuto disponible sur développez.com en utilisant la méthode par "accès direct".

L'erreur affichée est que le "fichier est déjà ouvert" alors que je close le fichier à la fin.
Voici mon code:

Code:

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
28
29
30
31
Private Sub Lecture(recu() As tRecu)
    Dim i As Integer
    Dim szTmp As String
    Dim nTmp As Integer
    Dim intFic As Integer
 
    If frmMain.lstPeriodes.ListIndex = -1 Then  'Si aucune période n'est selectionnée
        nTmp = 0
    Else
        nTmp = Val(Trim$(frmMain.lstPeriodes.ListIndex))
    End If
 
    szTmp = "D:\Documents\s611516\Mes Documents\Level1\" & Trim$(frmMain.szContrat) & "_" & Trim$(Replace(Replace(frmMain.lstPeriodes.List(nTmp), "   ", "-"), "/", "")) & "_" & Trim$(nomVariable) & ".csv"
 
    If Dir(szTmp) <> "" Then
        intFic = FreeFile
        Open szTmp For Output As #intFic 'For Random As intFic Len = Len(recu)
        For i = 0 To 4
            Get #intFic, (i + 1), recu(i)
        Next i
    Else
        Open szTmp For Output As FreeFile
        For i = 0 To 4
            recu(i).Montant = ""
            recu(i).Date = ""
            recu(i).Remarque = ""
        Next i
    End If
 
    Close #intFic
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Ecriture(numLigne As Integer, recu As tRecu)
    Dim szTmp As String
    Dim nTmp As Integer
    Dim intFic As Integer
    Dim intNum As Integer
 
    If frmMain.lstPeriodes.ListIndex = -1 Then  'Si aucune période n'est selectionnée
        nTmp = 0
    Else
        nTmp = Val(Trim$(frmMain.lstPeriodes.ListIndex))
    End If
 
    szTmp = "D:\Documents\s611516\Mes Documents\Level1\" & Trim$(frmMain.szContrat) & "_" & Trim$(Replace(Replace(frmMain.lstPeriodes.List(nTmp), "   ", "-"), "/", "")) & "_" & Trim$(nomVariable) & ".csv"
 
    If Dir(szTmp) <> "" Then
        Open szTmp For Random As intFic Len = Len(recu)
        intNum = LOF(intFic) / Len(recu)    'Compte le nombre d'enregistrements
        Put intFic, intNum + 1, recu      'Ajoute la donnée
    Else
        Open szTmp For Output As FreeFile
    End If
 
    Close intFic
End Sub

J'ai fias un débeugage et ça s'arrête à la ligne 19 de la méthode Lecture en m'écrivant m'éthode d'accés au fichier incorrect.
On ne peut pas utiliser la méthode d'accés direct avec les fichiers .csv contrairement aux fichiers .txt?

Apparemment il faudrait utiliser les méthodes Print# et Write#. Voici ce que j'ai fait:
La lecture du .csv:

Code:

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
28
29
30
31
Private Sub Lecture(recu() As tRecu)
    Dim i As Integer
    Dim szTmp As String
    Dim nTmp As Integer
    Dim intFic As Integer
 
    If frmMain.lstPeriodes.ListIndex = -1 Then  'Si aucune période n'est selectionnée
        nTmp = 0
    Else
        nTmp = Val(Trim$(frmMain.lstPeriodes.ListIndex))
    End If
 
    szTmp = "D:\Documents\s611516\Mes Documents\Level1\" & Trim$(frmMain.szContrat) & "_" & Trim$(Replace(Replace(frmMain.lstPeriodes.List(nTmp), "   ", "-"), "/", "")) & "_" & Trim$(nomVariable) & ".csv"     'Le chemin d'accés du fichier csv
    intFic = FreeFile
 
    If Dir(szTmp) <> "" Then       'Si le csv existe déjà
        Open szTmp For Output As intFic 'For Random As intFic Len = Len(recu)
        For i = 0 To 4      'On fait ça 5 fois car il y a au maximum 5 entrées
            Print #intFic, recu(i).Montant; recu(i).Date; recu(i).Remarque
        Next i
    Else     'S'il n'existe pas on le crée juste et on initialise les 4 variables contenues dans le Type tRecu
        Open szTmp For Output As intFic
        For i = 0 To 4    'On fait ça 5 fois car il y a au maximum 5 entrées
            recu(i).Montant = ""
            recu(i).Date = ""
            recu(i).Remarque = ""
        Next i
    End If
 
    Close #intFic    'on ferme le fichier ouvert précedement
End Sub

Pour l'écriture sur le fichier cvs:

Code:

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
Private Sub Ecriture(numLigne As Integer, recu As tRecu)
    Dim szTmp As String
    Dim nTmp As Integer
    Dim intFic As Integer
    Dim intNum As Integer
 
    If frmMain.lstPeriodes.ListIndex = -1 Then  'Si aucune période n'est selectionnée
        nTmp = 0
    Else
        nTmp = Val(Trim$(frmMain.lstPeriodes.ListIndex))
    End If
 
    szTmp = "D:\Documents\s611516\Mes Documents\Level1\" & Trim$(frmMain.szContrat) & "_" & Trim$(Replace(Replace(frmMain.lstPeriodes.List(nTmp), "   ", "-"), "/", "")) & "_" & Trim$(nomVariable) & ".csv"   'Le chemin d'accés du fichier csv
    intFic = FreeFile
 
    If Dir(szTmp) <> "" Then    'Si le csv existe déjà
        Open szTmp For Random As intFic Len = Len(recu)
        intNum = LOF(intFic) / Len(recu)    'Compte le nombre d'enregistrements
        Write #intFic, recu.Montant; recu.Date; recu.Remarque
    Else
        Open szTmp For Input As intFic
    End If
 
    Close #intFic   'on ferme le fichier ouvert précedement
End Sub

Mais ça me dit toujours "Mode d'accés au fichier incorrect".

De l'aide svp

16/05/2012, 10h41
Invité

1 pièce(s) jointe(s)

J'ai oublié de mettre un ImprEcran pour que ce soit plus parlant.

Voir pièce jointe.

Donc j'aimerai simplement que les champs de ce UserForms soit enregistrés dans un .csv

Merci