Chemin du fichier actuel en lien hypertexte

Bonjour,

Je souhaite faire un code en VBA qui permet de mettre le chemin du fichier actuel (ThisWorkbook.Path) en lien hypertexte pour l'envoyer par mail.

J'ai réussi l'envoi par mail mais j'arrive pas à transformer le chemin en lien hypertexte.

En gros mon chemin s'affiche correctement dans mon corps de mail mais pas en hypertexte.

Merci de votre aide

Bonjour, le contenue du mail est renseigné sous format HTML ?

Si oui tenter d'ajouter le lien avec cette commande à adapater

.htmlbody = "<a href=""" & ThisWorkbook.Path & """>Lien du dossier</a>"

Slts,

Gabin

Function EnvoyerMail()
  Dim Fichier As Variant
  'Fichier = ActiveWorkbook 'à modifier ex: "C:\Bureau\dossier\Classeur.xlsx
  Dim MaMessagerie As Object
  Dim MonMessage As Object
  Set MaMessagerie = CreateObject("Outlook.Application")
  Set MonMessage = MaMessagerie.CreateItem(0)

  'MonMessage.to = "ddddddd@gmail.com" ' à modifier avant envoi
  ' MonMessage.CC = "dd@dd.com" à modifier au besoin
  MonMessage.Subject = Sheets("Fiche de modif").Range("a1")

  contenu = "Bonjour,"
  contenu = contenu & Chr(10) & Chr(13)
  contenu = contenu & "Veuillez trouver le fichier " & Sheets("Fiche de modif").Range("a1") & Chr(10) & Chr(13) & "Dans le dossier " & ThisWorkbook.Path & "\" & ActiveWorkbook.Name
  contenu = contenu & Chr(10) & Chr(13)
  contenu = contenu & "Merci de prendre note de l'ouverture de cette modification."
  contenu = contenu & Chr(10) & Chr(13)
  contenu = contenu & "Cordialement,"

  MonMessage.body = contenu
  MonMessage.send
  Set MaMessagerie = Nothing
  MsgBox "Votre Mail a bien été envoyé avec la P.J. "
End Function

Voici mon code il fonctionne très bien, je crois pas du coup que mon corps de texte soit en HTML.

Re,

A tester comme ça ?

Function EnvoyerMail()
  Dim Fichier As Variant
  'Fichier = ActiveWorkbook 'à modifier ex: "C:\Bureau\dossier\Classeur.xlsx
  Dim MaMessagerie As Object
  Dim MonMessage As Object
  Set MaMessagerie = CreateObject("Outlook.Application")
  Set MonMessage = MaMessagerie.CreateItem(0)

  'MonMessage.to = "ddddddd@gmail.com" ' à modifier avant envoi
  ' MonMessage.CC = "dd@dd.com" à modifier au besoin
  MonMessage.Subject = Sheets("Fiche de modif").Range("a1")

  contenu1 = "Bonjour,"
  contenu1 = contenu1 & Chr(10) & Chr(13)
  contenu1 = contenu1 & "Veuillez trouver le fichier " & Sheets("Fiche de modif").Range("a1") & Chr(10) & Chr(13) & "Dans le dossier "
  contenu2 = contenu2 & Chr(10) & Chr(13)
  contenu2 = contenu2 & "Merci de prendre note de l'ouverture de cette modification."
  contenu2 = contenu2 & Chr(10) & Chr(13)
  contenu2 = contenu2 & "Cordialement,"

  MonMessage.htmlbody = contenu1 & "<a href=""" & ThisWorkbook.Path & """>ThisWorkbook.Path</a>" & contenu2
  MonMessage.send
  Set MaMessagerie = Nothing
  MsgBox "Votre Mail a bien été envoyé avec la P.J. "
End Function

OK cool pour le dossier.
Mais si je veux que lien hyper texte ouvre le fichier actuel.

  MonMessage.htmlbody = contenu1 & "<a href=""" & ThisWorkbook.Path & ActiveWorkbook.fullName""">ThisWorkbook.Path</a>" & contenu2

J'ai essayé comme ça mais je reçois un code erreur quand je clique sur le lien, je vois pas pourquoi.

Bonjour,
Essaie avec :

Dim Fichier As String
    Fichier = ActiveWorkbook.FullName
    MonMessage.htmlbody = contenu1 & "<a href=""" & Fichier & """>ThisWorkbook.Path</a>" & contenu2

Cdlt.

Nickel vous gérer les mecs, Merci.