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