Macro hyperlien vers Outlook

[vmax67]

Bonjour

j'ai une macro qui fonctionne bien à condition d'indiquer le chemin du fichier à ouvrir.
J'aimerai que le lien soit repris depuis la cellule A1. Voir code ci-dessous.

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
strbody = "body of email" & "<a href=""D:\Fichier1.xlsm""> ici</a>" & " Merci"

strbody = "body of email" & "<a href=""Chemin pris dans cellule A1""> ici</a>" & " Merci"

On Error Resume Next
With OutMail
.To = "whoever@microsoft.com"

.Subject = "Hyperlien"
.HTMLBody = strbody
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Par avance Merci.

Vmax

 

[vmax67]

par concaténation des cellules D9 D13 G13

 

[Staple1600]

Re

Et comment sont remplis les cellules D9, D13 et G13 ?

 

[vmax67]

manuellement

 

[Staple1600]

Re

?
Pourquoi ne pas directement copier le chemin en A1.
(soit manuellement -> Clic-droit -> Copier en tant que chemin d'accès
ou par macro en allant chercher le fichier le plus récent sur le lecteur réseau)

 

[vmax67]

Laisse tomber je chercherai à trouver la solution d'une autre manière.
Merci pour ton intervention

 

[Staple1600]

Re

Je n'ai pas l'intention de laisser tomber.
Puisque la saisie est manuelle, c'est que l'utilisateur connait le chemin du classeur, non ?
Par conséquent, il peut faire un copier-coller (comme précédent indiqué- message#19)

Peut-être que si tu joignais un fichier exemple anonymisé, ce serait plus simple pour tester, non ?