Salut

comment on fait pour lire un fichier text.txt
et entre en #1 le tout.
et savoir combien il y a de ligne
j'ai essayer sa

Private Sub form_activate()
Open "c:\agenda electronique\agenda_database.txt" For Input As #1
i = 0
Do Until EOF(1)
Line Input #1, texte(i)
i = i + 1
Loop
End Sub
Mais comment savoir si il est a la fin du fichier.text

Lorsque tu es a la fin du fichier la valeur EOF(1) passe a true. EOF = End Of File.

The Pingouin

Donc chaque fois qu'il boucle, il récupère la ligne suivante dans le fichier txt et l'isère dans la variable texte(). i étant incrémenter à chaque passage de boucle, c'est lui qui pourra t'indiquer le nombre de lignes qui ont été lues. Par exemple : txtNombreLignes. Text = Str(i)

@+