[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DU USERFORM[/I][/B][/COLOR]
[COLOR=NAVY]Private Sub[/COLOR] btnScan_Click()
[COLOR=NAVY]Dim[/COLOR] Chemin [COLOR=NAVY]As String[/COLOR]
[COLOR=GREEN]' On Error Resume Next[/COLOR]
Chemin = Dir(txtChemin.Text)
[COLOR=NAVY]If[/COLOR] Chemin <> "" [COLOR=NAVY]Then[/COLOR]
lblPatient.Visible = [COLOR=NAVY]True[/COLOR]
ScanClasseurs txtChemin.Text, txtNom.Text, Val(txtMin.Text), Val(txtMax.Text)
Unload Me
[COLOR=NAVY]Else[/COLOR]
MsgBox "Le chemin à analyser n'est pas reconnu !"
[COLOR=NAVY]End If
End Sub[/COLOR]