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