Private Sub CommandButton1_Click()
DossierRapportDeMicrosection = "P:\xxxxx\"
NOMREP = Dir(DossierRapportDeMicrosection & TextBox1.Value & "\a-*")
If NOMREP = "" Then
Label3.Caption = "Pas de dossier correspondant au nom specifie"
Else
Label3.Caption = "P:\xxxxx\" & TextBox1.Value & "\" & NOMREP
End If
End Sub