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 !
Partager