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