Lien hypertexte fichier partagé macro?

bonjour a tous

je relève un sujet déjà abordé mais je n'ai pas trouver de réponse, je voudrais comme le titre l'indique pouvoir créer des liens hypertexte dans un fichier partagé.

j'ai vu cette macro mais je n'arrive pas a la mettre en place et encore moins certain quel pourrait fonctionner.

je voudrais utiliser un bouton qui me permet d'ouvrir un accès au lien ht.

merci pour votre aide.

Sub LiensH()

Fichier = Application.GetOpenFilename("Fichiers Excel(*.xlsm),*.xlsm")

If Fichier = 0 Then Exit Sub

nom = Application.InputBox("Entrez le nom qui sera affiché", "DONNER UN NOM AU LIEN")

If nom = "" Or nom = 0 Then

MsgBox "Vous devez saisir un nom pour le lien", vbCritical + vbOKOnly

Exit Sub

End If

ActiveCell.Formula = "=HYPERLINK(""" & Fichier & """,""" & nom & """)"

End Sub