Pour une nouvelle amélioration de "rechercher"

bonsoir,

j'utilise l'excellente macro postée sur

https://www.blog-excel.com/creer-un-champ-de-recherche-vba/

et sur https://forum.excel-pratique.com/excel/amelioration-du-champ-rechercher-t53371.html

pour lister tous les fichiers doc et docx contenus dans un dossier F:\mon dossier

comment faire pour que les fichiers apparaissant dans la Listbox1 puissent être ouverts par un double clic?

merci d'avance.

Bonjour,

Ci-joint une proposition à tester.

Utilisation de la commande Shell.

'chemin de l'exe WORD
Private Const MS_WORD As String = "C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE"

'ouverture du document WORD
    sCommande = MS_WORD & " " & sFichier
    Shell sCommande

MS_WORD : emplacement de l'exe Word (à modifier dans le code VBA si besoin)

Bonne soirée

Bouben

déjà, merci pour votre réponse !

ensuite j'ai le message suivant "fichier introuvable", alors qu'il est bien dans la Listbox 1

et bizarrement ce n'est pas avec tous les fichiers !peu importe leur extension...

je ne comprends pas...

j'ai essayé aussi avec

Private Sub ListBox1_Click()

  ThisWorkbook.FollowHyperlink Address:=Me.ListBox1.Value

End Sub

et là j'ai le message d'erreur suivant :

"impossible d'ouvrir le fichier spécifié"

auriez-vous une idée de ce qui cloche dans mon code?