Bonjour,

Après avoir écumé les différents sites d'entraide Excel, je me tourne vers vous car je reste dans l'impasse.

Objectif : Insérer un lien hypertexte (fixe) dans le corps d'un email.

Alors j'arrive sans problème à créer un lien hypertexte vers une cellule Excel, mais j'ai beau essayer, je n'arrive pas à "affecter" ce lien à une variable, que j'appelle par la suite dans le corps de mon message.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton1_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
 
 With Sheets("Sheet1")
 
'CE QUE J'AIMERAI FAIRE MAIS QUI NE FONCTIONNE PAS
objLink  = Worksheets("Sheet1").Hyperlinks.Add Anchor:=Selection, Address:="D:\test.gif", SubAddress:="", TextToDisplay:="ici"
 
 
'REMPLISSAGE DES CHAMPS "ADRESSE, SUJET, MESSAGE"
    MailAd = "azeaze@free.fr"
    Subj = "Sujet du message"
    Msg = "Vous trouverez  " & objLink & " les informations souhaitées"
 
'CONSTITUTION ET ENVOI DU MAIL
    URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
    ActiveWorkbook.FollowHyperlink Address:=URLto
 
End With
End Sub

Maintenant j'aimerais que cela envoie un email avec comme message "Vous trouverez ici les informations souhaitées"

Et le mot "ici" est un lien hypertexte vers le fichier "D:\test.gif"


En vous remerciant d'avance, je vous souhaite un bon appétit !