Bonjour à toutes et à tous

J'ouvre un fichier

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Sub Macro5()
    Dim doc1 As Document
    Set doc1 = OpenDocument("D:\28_vatican\001.jpg")
End Sub
J'ai un fichier txt (D:\ZZ Sauve JOUR\PageSuivante.txt), qui reprend le chemin complet du fichier à ouvrir.

Je cherche à stocker 1e nom du fichier DANS le fichier txt par une variable, en lisant ce fichier txt, et remplacer le nom du fichier dans OpenDocument, par cette variable.
Le but, ouvrir n'importe quel fichier, SANS corriger le code VBA, en modifiant seulement le chemin du fichier dans le fichier txt.