Salut,

J'ouvre un fichier texte et je le lie ligne par ligne :

NumFichier = FreeFile
Open App.Path & "\toto.txt" For Input As #NumFichier
Do While EOF(NumFichier) = False
Line Input #NumFichier, Strligne
Debug.Print StrLigne
loop
Close #NumFichier

Jusque la tout va bien.... mais j'aimerais savoir s'il est possible apres l'ouverture de mon fichier de connaitre le nombre de lignes ou de pages pour faire avancer une barre de progression le temps de la lecture....

Bonjour
Une solution :

NumFichier = FreeFile Dim NbreLignes As Long Open App.Path & "\toto.txt" For Input As #NumFichier Do While Not EOF(NumFichier) Line Input #NumFichier, Strligne NbreLignes = NbreLignes + 1 Loop Close #NumFichier

Nombre de lignes du fichier = NbreLignes