rechercge de fichier existant

Bonjour

La macro ci dessous effectue la recherche d'un dossier exprimé dans le Textbox1 et affiche le chemin du fichier ayant le même nom que le Texbox1 précéder d'un "a-" si celui ci existe ou alors un message 'Pas de dossier correpondant au nom specifie' dans le cas contraire.



j'essai de transformer la macro pour simplement rechercher si le dossier exprimer dans le textbox1 existe bien sous le lien suivant
"\\ml350\production\Atelier CONTROLES\Rapport de controle final\'
et dans le cas contraire afficher le message suivant 'Pas de fichier correpondant au nom specifie'

Pouvez vous m'aider à transformer la macro?
Merci d'avance
Gildas

Private Sub CommandButton1_Click()

DossierRapportDeContolefinal = "\\ml350\production\Atelier CONTROLES\Rapport de controle final\"

NOMREP = Dir(DossierRapportDeContolefinal & TextBox1.Value & "\a-*")
If NOMREP = "" Then
Label3.Caption = "Pas de dossier correpondant au nom specifie"
Else
Label3.Caption = "\\ML350\Production\Atelier CONTROLES\Rapport de controle final\" & TextBox1.Value & "\" & NOMREP '"P:\Atelier CONTROLES\Rapport de microsection\" & TextBox1.Value ' NOMREP
Found = True
End If


If Found = False Then
Label3.Caption = "Pas de dossier correpondant au nom specifie"
End If



End Sub

Cliquez pour agrandir...