voila. je cherche des entrées dans un fichier TXT et quand il n'y a plus d'entrées...
Ben de temps en temps ça plante...
Voila le code. il me dit qu'il arrive à la fin du fichier alors que j'ai mis une condition ON ERROR GOTO
 
 

 
Quelqu'un pourrait me donner un coup de main ?

Salut
 
N'oublie pas le # devant 2 !!
La fonction "Do While Not EOF(#1)" (fait tant que tu n'es pas à la fin du fichier 1), "Loop" peut elle te convenir ???
 

théoriquement oui
j'ai copié mon code et il vire le # automatiquement. je vais essayer

  While Not EOF(#2)
   While Not EOF(#2)=True
 
il me met : attendu  : Expression
...

Bon je vais essayer ça :
a priori pas d'erreur mais le soucis c'est que le programme execute la commande environ une fois par seconde et qu'il plante de temps en temps (au bout d'une heure parfois...)
 
    Open "c:/bateau.txt" For Output As #1
    Open "c:/ttt.txt" For Input As #2
   While Not EOF = True
    Input #2, truc
    Print #1, truc;
    Loop
    Wend:
Close
 
etc etc

 
C'est bon j'ai trouvé : ça marche
 
    Open "c:/bateau.txt" For Output As #1
    Open "c:/ttt.txt" For Input As #2
   While Not EOF(2) = True
    Input #2, truc
    Print #1, truc;
    Wend:
Close
    Open "c:/bateau.txt" For Input As #1
    Open "c:/ttt.txt" For Output As 2
   While Not EOF(1) = True
    Input #1, truc
    Print #2, truc;
    Wend:
 
MERCI

Oui bien vu fallait pas le dièse dans le EOF (End Of File...). Par contre je n'utilise pas le "= True", je ne dis pas que c'est mieux...
 

lol. pour le moment ça tourne et àa ne plate pas...
mais je verrai ce soir !