VBA Ouvrir un répertoire avec un formulaire

  • Initiateur de la discussion Initiateur de la discussion MATOS
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
519
Réponses
2
Affichages
159
Retour