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