Discussion :

[fourgeaud]

Bonjour,
Lorsque j'execute mon programme, au chargement de la form j'ai un message d'erreur qui apparait et je ne voit vrément pas pourquoi.

le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
If Dir(AppPath & "strQuit.txt", vbHidden) <> "" Then
        Open "strQuit.txt" For Input As #1
        Input #1, strQuit
        strQuit = strQuit + 1
        frmPeche.Caption = "Sortie n°" & strQuit
        Close #1
        Open "strQuit.txt" For Output As #1
        Print #1, strQuit
        Close #1
    Else
        strQuit = "0"
        Open "strQuit.txt" For Output As #1
        Print #1, strQuit
        Close #1
        Open "strQuit.txt" For Input As #1
        Input #1, strQuit
        strQuit = strQuit + 1
        frmPeche.Caption = "Sortie n°" & strQuit
        Close #1
        Open "strQuit.txt" For Output As #1
        Print #1, strQuit
        Close #1
    End If

Le message d'erreur est :
INPUT PAST END OF FILE.

Lorsque je clique sur debug il me surligne la 3ème liqne.
Merci d'avance.

[SfJ5Rpw8]

Bonjour,
(...)
Le message d'erreur est :
INPUT PAST END OF FILE.

Lorsque je clique sur debug il me surligne la 3ème liqne.
Merci d'avance.

ben cela ve dire que tu lit trop de ligne dans ton fichier ...


Pourquoi utilise tu appPAth .. pour tester si fichier existe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Dir(AppPath & "strQuit.txt", vbHidden) <> "" Then

et puis plus d'appPAth pour l'ecriture/lecture///

[AdHoc]

Testes la fin de fichiers ("EOF(filenumber)") et utilises Freefile avant tes open (en plus de ce que te préconnise bbil).

[fourgeaud]

Bonjour,
-Pour répondre à bbil, j'utilise appPath car le fichier créé lorsqu'on utilise output se crée automatiquement là où se trouve l'application. En fait appPath est le chemin de l'application, et strQuit, c'est le nom du fichier.
-Pour répondre à adHOC, je n'utilise pas Freefile par ce que j'ai prit l'habitude de me servir des fichiers comme ça, en fait je ne connait pas l'avantage de Freefile, il faut que je me renseigne pour savoir merci.

Et j'ai fait ce ke vous m'avez dit, et j'ai toujours le msg d'erreur.
Merci à vous deux.

[fourgeaud]

En fait ça marche comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
If Dir(AppPath & "strQuit.txt", vbHidden) <> "" Then
        strQuit = "0"
        Open AppPath & "strQuit.txt" For Output As #1
        Print #1, strQuit
        Close #1
        Open AppPath & "strQuit.txt" For Input As #1
        Input #1, strQuit
        strQuit = strQuit + 1
        frmPeche.Caption = "Sortie n°" & strQuit
        Close #1
        Open AppPath & "strQuit.txt" For Output As #1
        Print #1, strQuit
        Close #1
    Else
        Open AppPath & "strQuit.txt" For Input As #1
        Input #1, strQuit
        strQuit = strQuit + 1
        frmPeche.Caption = "Sortie n°" & strQuit
        Close #1
        Open AppPath & "strQuit.txt" For Output As #1
        Print #1, strQuit
        Close #1
    End If

Mais le problème c'est que ma form affiche toujours en caption "sortie n°1".
Voila merci à tous et si quelqu'un sait pourquoi elle affiche toujours ça, peut-il le dire?
En tout cas merci à tous.

[jmfmarques]

Bien difficile de te répondre sans connaître les attributs de chacun des fichiers de ton répertoire, ma foi !