VBA Ouvrir un répertoire avec un formulaire

MATOS

XLDnaute Nouveau
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.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas