Discussion :

[choko62]

Voila j'ai encore un probleme surment basic lol mon application lors de son execution ne rentre pas dans la boucle, je ne comprend pas car dans une autre page de mon application j'ai réussi a rentrer dans la meme boucle

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
Open Nvil For Input As #8
        While Not (EOF(8))
            Input #8, num, nom, CC
            MsgBox nom
            Phnom = valphon(nom)
            If PhLieuNais = Phnom Then
                If LD(LieuNais, nom) < 2 Then
                    nln = nln + 1
                    Write #7, nom
                End If
            End If
            Close #7
            If Phvlle = Phnom Then
                If LD(vlle, nom) < 2 Then
                    nv = nv + 1
                    Write #9, nom
                End If
            End If
            Close #9
        Wend
        Close #8

[zazaraignée]

Est-ce que par hasard ton fichier de départ est vide ?

[choko62]

non il comporte 39000 lignes environ

[La Praline]

Le programme n'entre pas dans la boucle... fait-il au moins le Open ???
As-tu essayé de mettre un point d'arrêt pour voir....

Cordialement

[lstjean]

Moi je pense pour une erreur au niveau de la variable nvil.

As tu vérifié si ta variable comporte le bon nom et le bon chemin de fichier au moment de l'ouverture ?

[zazaraignée]

Tu veux ajouter des linges ou le réécrire (append ou input) ?

Et je continue de croire que c'est ta condition de fin de boucle qui n'est pas bonne. On fait un

Code :

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

While Not EOF(numFichier)

quand on veut le lire, pas quand on veut l'écrire.

[Chad11]

non il comporte 39000 lignes environ

39000, c'est un peu beacoup ca pourrai etre le probleme....c comme ouvrir un fichier de plus de 20 MO...ou essai de mettre

Code :

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

On Error Resume Next

bonne chance