Probleme de on error goto ....
codefalse
Messages postés
1123
Date d'inscription
mardi 8 janvier 2002
Statut
Modérateur
Dernière intervention
21 avril 2009
-
23 janv. 2002 à 15:19
Makabey Messages postés 152 Date d'inscription mercredi 27 juin 2001 Statut Membre Dernière intervention 11 juillet 2002 - 23 janv. 2002 à 21:10
Makabey Messages postés 152 Date d'inscription mercredi 27 juin 2001 Statut Membre Dernière intervention 11 juillet 2002 - 23 janv. 2002 à 21:10
1 réponse
Makabey
Messages postés
152
Date d'inscription
mercredi 27 juin 2001
Statut
Membre
Dernière intervention
11 juillet 2002
1
23 janv. 2002 à 21:10
23 janv. 2002 à 21:10
Essaie ceci:
Private Sub testnom()
Dim Nom1 As String
Dim NumFich As Integer
On Error GoTo prout
NumFich = FreeFile
Open "c:\nom.txt" For Input As #NumFich
Input #NumFich, Nom1
Close #NumFich
Debug.Print Nom1
''demar
Exit Sub
prout:
Select Case Err.Number
'76: Path Not Found
Case 76
Debug.Print "Chemin inexistant..."
'53: File Not Found
Case 53
Open "c:\nom.txt" For Output As #NumFich
Print #NumFich, "nom"
Close #NumFich
Open "c:\nom.txt" For Input As #NumFich
Debug.Print "Fichier inexistant!"
Resume Next
Case Else
MsgBox "Erreur #" & Trim$(Str$(Err.Number)) & " (" & Err.Description & "), non traitée..."
End Select
End Sub
