Bonjour,
cela semble plutot compliqué. Une manière plus simple serait de faire comme ceci :
Sub ouvrirDocWord()
Dim Reponse As String
Reponse = MsgBox("voulez vous ouvrir le document : fichier1 ?", vbYesNo, "Message")
If Reponse = vbYes Then
ThisWorkbook.FollowHyperlink "C:\\fichier1.doc"
Else
MsgBox "opération annulée."
End If
End Sub
A voir si le nom du fichier est variable ainsi que le lien hypertexte.
A plus !