Resume error [Résolu]

Signaler
Messages postés
119
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
18 novembre 2008
-
Messages postés
119
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
18 novembre 2008
-
Bonsoir!
quel code pour empecher la sortie du prog.
qand j'ouvre un fichier qui existe pas
Voici mon code
FF = FreeFile


Open "E:\Mes Documents" & "F" & NFich & ".bas" For Input As #FF 'ouvre le fichier en lecture
Do While Not EOF(FF) 'boucle ligne par ligne sur le fichier
Line Input #FF, Ligne 'Stocke dans la variable ligne chaque ligne
TextFich.Text = TextFich.Text & Ligne & vbCrLf ' afiche les lignes

Loop

Close #FF

6 réponses

Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
32
Bonsoir,




L'utilisation de "On error resume next" est a éviter.

Utilise la fonction dir pour savoir si un fichier est présent



If Dir("E:\Mes Documents\F" & NFich & ".bas") <> "" Then

'// Le fichier existe, on continue

Open "E:\Mes Documents\F" & NFich & ".bas" For Input As FF 'ouvre le fichier en lecture

Do While Not EOF(FF) 'boucle ligne par ligne sur le fichier

Line Input FF, Ligne 'Stocke dans la variable ligne chaque ligne

TextFich.Text = TextFich.Text & Ligne & vbCrLf ' afiche les lignes

Loop

Close #FF

Else

'// Le fichier n'existe pas !!!

End If



ChRB
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 152 internautes nous ont dit merci ce mois-ci

Messages postés
1812
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010
1
Violent Ken

Tu mets "On error resume next" en début de prog.
@+
Messages postés
119
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
18 novembre 2008

Re
Private Sub ListTitre_Click()
Dim i, FF, Pos, Ind As Integer
Dim Fich, Ligne As String
On error resume next

et la il plante!!!! le Prog. re repond plus

claude
Messages postés
1812
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010
1
Violent Ken

Ton fichier existe bien, non ?
Alors c'est ta boucle qui est mauvaise. Essaie plutôt :


Open "E:\Mes Documents" & "F" & NFich & ".bas" For Input As #1 'ouvre le fichier en lecture

While Not EOF(1) 'boucle ligne par ligne sur le fichier
Line Input #1, Ligne 'Stocke dans la variable ligne chaque ligne
TextFich.Text = TextFich.Text & Ligne & vbCrLf ' afiche les lignes
Doevents 'rend la main
Wend

Close #1

@+
Messages postés
119
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
18 novembre 2008

Re
Debutant VB

Ok super

Merci
Messages postés
119
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
18 novembre 2008

Re
j' pris la solution de Charle