Microsoft 365 RÉSOLU - VBA Ouvrir un dossier et liste les fichiers contenant une valeur

[chris6999]

Bonjour

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

Merci

 

[sylvanu]

Bonsoir Chris,
Un ex en PJ qui peut être une piste avec :

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

 

[chris6999]

Bonsoir Chris,
Un ex en PJ qui peut être une piste avec :

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

Merci Sylvanu
Cela fonctionne très bien.
J'ai juste mis mon chemin et ma valeur recherchée en dur au lieu des références B1 et B2.
Très bonne soirée