Bonjour,

Je n'arrive pas à trouver comment exploiter les données d'un fichier *.TXT dont les champs sont séparés par une virgule alors que j'y arrivais bien en VB6.
Voici comment se présentent les lignes dans le fichier :

8,1,"Lucien"
9,1,"Alix"
10,1,"Guillaume"
11,1,"Hortense et Pauline"

Voici un extrait de mon code en VB6 :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim i%, j%, m%
    If laDate = "" Or Not IsDate(laDate) Then laDate = Date
    titreMsg$ = "À souhaiter le " & Format(laDate, "dddd d mmmm")
    Open leChemin$ & "\" & nomFich1$ For Input As #1
    Do While Not EOF(1)
        Input #1, j%, m%, fete$
        If j% = Day(laDate) And m% = Month(laDate) Then
            Exit Do
        End If
    Loop
    Close #1
--------

Pouvez-vous m'aider ?

D'avance, un grand merci !