Macro-Récupérer le chemin réseau d'une cellule pour l'insérer dans un mail

Bonjour,

Dans une feuille j'ai une cellule contenant un lien hypertexte qui ouvre un répertoire d'une ressource partagée. J'aimerais insérer le lien hypertexte contenu dans la cellule dans un mail.

Malheureusement ma macro ne m'affiche pas le lien complet et coupe le lien au premier espace rencontré dans le nom du répertoire. Ci-dessous le code réalisé :

Sub mail_outlook_signature_commande()

Dim OutApp As Object 
Dim OutMail As Object 
Dim chemin As String
chemin = Workbooks(ActiveWorkbook.Name).Path
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
    .To = "***@***"
    .CC = ""
    .BCC = ""
    .Subject = "Commande à valider"
    .HTMLBody = "Antoine, " & "<br><br>" & _
    "Merci de bien vouloir valider la commande : " & "<br>" & _
    "" & "<a href=" & chemin & ActiveSheet.Cells(ActiveCell.Row, 5).Hyperlinks(1).Address & ">" & chemin & ActiveSheet.Cells(ActiveCell.Row, 5).Value & "</a>" & "<br><br>" & _
    "Bonne journée," & "<br><br>" & _
    "Jonathan" & _
    .HTMLBody
    .Display 
End With

Set OutMail = Nothing 
Set OutApp = Nothing

End Sub

Pourriez-vous m'aider ?

Bonne journée,

Jonathan