Lire dans un fichier texte

Bonsoir,

Peut-être un truc du genre :

Sub zz()
Dim f As Integer, ligne As String
Dim cpt As Long, monseparateur As String
f = FreeFile
strcherche = "Heure = "
Open "c:alain.csv" For Input As f
Do While Not EOF(f)
Line Input #f, ligne: cpt = cpt + 1
If InStr(ligne, strcherche) > 0 Then
Debug.Print Right(ligne, Len(ligne) - Len(strcherche) - 1)
End If
If cpt = 3 Then
monseparateur = Left(ligne, 1)
Debug.Print monseparateur
Exit Do
End If
Loop
Close f
End Sub

Bonsoir à tous,

me revoila pour vous soumettre un nouveau problème, j'ai trouvé qques brides
de réponses sur le news mais rien qui me débloque.

J'ai un fichier CSV et je voudrais faire les choses suivantes:
- Prendre la date et l'heure inscrite sur la première ligne de ce fichier
après le texte "Heure = "
- Prendre le premier caractère de la 3ème ligne (je m'en servirai ensuite
pour dire que c'est celui là mon séparateur.

Merci beaucoup

Franck le débutant

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr