Bonjour,

J'ai un problème pour la gestion de fichier texte. J'aimerai que le fichier texte soit créé lorsqu'il n'existe pas.

Voici mon code:

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
Private Function Lecture(numLigne As Integer) As tRecu
    Dim recu As tRecu
    Dim intFic As Integer
 
    intFic = FreeFile
 
    If frmMain.lstPeriodes.ListIndex = -1 Then  'Si aucune période n'est selectionnée
        Open "D:\Documents\s611516\Mes Documents\Level1\" & frmMain.szContrat & "_" & Replace(frmMain.lstPeriodes.List(0), "   ", "-") & "_" & nomVariable & ".txt" For Random As intFic Len = Len(recu)
    Else
        Open "D:\Documents\s611516\Mes Documents\Level1\" & frmMain.szContrat & "_" & Replace(frmMain.lstPeriodes.List(frmMain.lstPeriodes.ListIndex), "   ", "-") & "_" & nomVariable & ".txt" For Random As intFic Len = Len(recu)
    End If
 
    Get intFic, numLigne, recu
    Close intFic
End Function
J'ai trouvé différentes solutions mais pas adaptées à mon code.

Avez vous des idées?