Je souhaiterais ouvrir un dossier et n'afficher que les fichiers contenant dans leur intitulé une valeur prédéfinie 'exemple : contenant la valeur "Je suis désespérée d'être aussi nulle".
Comme on le fait quand on utilise la zone recherche dans l'explorateur.
J'ai trouvé beaucoup de fils sur le sujet mais rien qui correspond vraiment à mes besoins.
Je précise que le but est juste d'afficher les fichiers attendus et non de les intégrer à mon classeur.
Quelqu'un saurait-il comment faire
Mon code actuel qui permer d'ouvrir le répertoire en question et qui fonctionne
Dim Chemin As String
Chemin = "\\mon chemin\"
ThisWorkbook.FollowHyperlink Chemin
Je ne met pas de fichier en PJ car je n'y vois pas de plusvalue
Bonsoir Chris,
Un ex en PJ qui peut être une piste avec :
VB:
Sub ouvrir_un_fichier()
Dim Fic As String, Rep As String
Rep = [B1]
Fic = [B2]
If Right(Rep, 1) <> "\" Then Rep = Rep & "\"
On Error Resume Next
Application.Dialogs(xlDialogOpen).Show Rep & "*" & Fic & "*"
End Sub
Bonsoir Chris,
Un ex en PJ qui peut être une piste avec :
VB:
Sub ouvrir_un_fichier()
Dim Fic As String, Rep As String
Rep = [B1]
Fic = [B2]
If Right(Rep, 1) <> "\" Then Rep = Rep & "\"
On Error Resume Next
Application.Dialogs(xlDialogOpen).Show Rep & "*" & Fic & "*"
End Sub