ouvrir tout les fes fichier en format rtf d'un dossier

[s.ayme]

Bonjour à tous,

est-il possible d'ouvrir tous les fichiers en format rtf d'un dossier seulement en connaissant le chemin de celui-ci?

En fait grâce à une macro (voir ci-dessous), je récupère son chemin. mais je n'arrive pas à les ouvrir automatiquement. par contre je sais que le nom de chaque fichiers comprends le mots "TH".

merci de voçtre aide

Sub test()
'MsgBox ActiveDocument.Path

chemin_doc_active = Left(ActiveDocument.Path, InStrRev(ActiveDocument.Path, "\"))
'InStrRev : récupère la position d'un symbole a partir de la fin de l'enssemble de caractère
chemin_dossier = chemin_doc_active & "Sens X\Fichiers RTF"
MsgBox chemin_dossier
''ChangeFileOpenDirectory chemin_dossier

End Sub