VBA - Ouvrir l'explorateur Windows et lancer une recherche

Bonjour,

Dans mon code VBA j'aimerai ouvrir l'explorateur Windows (ça c'est assez simple, il devrait pas y avoir de soucis) mais dans cet explorateur je voudrais lancer directement une recherche suivant une variable que j'aurais défini précédemment? Je n'arrive pas à trouver cette information sur les précédents sujets..

Merci d'avance

Bonjour

Une variable pour le dossier, le fichier, l'extension du fichier ?????

A +

Une variable qui serait le nom du fichier.

Je voudrais mettre l'url d'un fichier dans excel qui pointerait vers le dossier en question avec une recherche pour afficher uniquement 1 fichier (il risque d'y en avoir beaucoup dans le dossier, d'ou l'idée de faire une recherche).

Re

Si tu as le chemin et le nom du fichier , pourquoi ne pas l'ouvrir directement sans passer par l'explorateur ??

A+

Parce que le fichier peut s'ouvrir avec plusieurs applications, et il faudrait laisser la main à l'utilisateur

Bonsoir

fichier = "C:\Fich\21.txt"  (Nom complet)
Shell "explorer.exe " & fichier, 1

Bye

Bonjour

voila une macro pour chercher les fichier Txt

A tester

Private Sub ChoixFicTxt()
Dim dossier As FileDialog
ChoixChemin = ActiveWorkbook.Path & Application.PathSeparator
   Set dossier = Application.FileDialog(msoFileDialogFilePicker)
      With dossier
         .AllowMultiSelect = False
         .InitialFileName = ChoixChemin
         .Title = "Choix d'un fichier TXT"
         .Filters.Clear
         .Filters.Add "Fichier TxT ", "*.txt*", 1
            If .Show = -1 Then
               Chemin = .SelectedItems(1)
'  ''             LireTxt Chemin
            End If
      End With
   Set dossier = Nothing
End Sub

A+

Maurice