Explication de ligne de codes !!!!

JTCorporation Messages postés 39 Date d'inscription samedi 18 octobre 2003 Statut Membre Dernière intervention 16 juin 2004 - 12 juin 2004 à 17:33
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 12 juin 2004 à 17:54
Bonjour est ce qq sais me dire à quoi serr cet ligne de code :

Debug.Print Err.Number; Error(Err.Number)

ds le programme suivant :

Private Sub cmdInstall_Click()

On Error GoTo Erreur
ChDir app.path & "Test"
MkDir app.path & "Test"

Erreur:
Select Case Err.Number
Case 76
RepMsgBox = MsgBox((app.path & "\Test n'existe pas. Faut-il le créer ?"), vbYesNo + vbQuestion, "Dossier inexistant !")
If RepMsgBox = vbYes Then
frminstall.Show
premfois = False
cmdDémarrer.Visible = True
GoTo Fin
End If
Case 75
RepMsgBox = MsgBox(("app.path & "\Test existe déjà !"), vbOKOnly + vbCritical, "Attention !")
cmdDémarrer.Visible = True
GoTo Fin
End Select
Debug.Print Err.Number; Error(Err.Number)
Fin:

End Sub

Merci d'avance !!!

Jtcorp

1 réponse

cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
12 juin 2004 à 17:54
Bonjour
En mode création, cette ligne écrit dans la fenêtre Debug (la fenêtre en-dessous du code, intitulée Exécution)
le numéro de l'erreur (Err.Number) suivi (;)
du type d'erreur (Error(Err.Number)
0