VBA Ouvrir un répertoire avec un formulaire

Bonjour à tous,

Je souhaiterais rechercher des sous dossiers sur le serveur via un formulaire à remplir avec un nom partiel , et pouvoir l'ouvrir dans Windows explorer.

Mon code est les suivant:

Private Sub TextCommune_Change()
End Sub

Sub OuvrirFenetreAvecDossier_Click()

Dim MonDossier As String
Dim TextCommune As String
Dim Repertoire As String


MonDossier = "Y:\Test\Travail\"
Repertoire = MonDossier & TextCommune

If Len(Dir((MonDossier & TextCommune), vbDirectory)) > 0 Then 'vérifie si le Dossier existe

Shell Environ("WINDIR") & "\explorer.exe " & Repertoire, vbNormalFocus
End If

End Sub

Malheureusement, rien ne se passe, ni message d'erreur.

Est ce que quelqu’un a une idée s'il vous plait?

Merci.