[myDearFriend!]

Bonsoir chris31, ptitrobertpointfr,

Une autre solution sans doute plus simple :

Private Sub Ok3_Click()
      ThisWorkbook.FollowHyperlink ActiveWorkbook.Path & '\paragraphe1.doc'
End Sub

Cordialement,