Bonjour
je ne sais pas si cela pourra t'aider mais code si dessous permet d'ouvrir un fichier word (après sélection) dans sous-répertoire
'Sélection de la lettre type utilisée pour le mailing
'ouverture de fichier .doc
ChDir (répertoire & '\\LETTRES TYPE')
Ouvrir = Application.GetOpenFilename(filefilter:='Lettres type (*.doc),*.doc', Title:='Sélection d'une lettre type')
If Ouvrir = False Then
MsgBox 'aucun fichier sélectionné', vbOKOnly + vbCritical, 'fin de procédure '
Sheets('Accueil').Select
Exit Sub
End If
ThisWorkbook.FollowHyperlink Ouvrir
Application.ScreenUpdating = False
A+