XL 2016 créer un lien hypertexte cliquable lors de l'envoi d'un mail excel

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

titi7500

XLDnaute Junior
Bonjour,

Je souhaite mettre en place l'envoi automatique d'un mail par excel.

Pour cette partie il y a pas de soucis. Le problème se trouve au niveau du liens hypertexte que je souhaite mettre en place. Dans Excel sur la case A1 par exemple il y aura un lien hypertexte et je souhaite que le code VBA cherche ce lien pour l'inscrire dans le corp du mail mais de façon a pouvoir clique dessus directement dans le mail.

Pouvez vous m'aider svp.

Merci par avance.
Cdt.
Titi
 
Trier par date Trier par votes
Re,

VB: 
Sub SendMailData()

Dim Fichier As String
Dim MonOutlook As Object
Dim MonMessage As Object
Dim MyBench As String

        
Fichier = "H:\SERVICE\MAINTENANCE PREVENTIVE\Archivage fiche d'intervention maintenance\Fichier excel\Archivage fiche d'intervention maintenance"
ThisWorkbook.SaveAs Fichier

MyBench = Sheets("Fiche d'intervention").Range("I10").Value

  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.createitem(0)
  MonMessage.BodyFormat = 2
       corps = "<HTML><BODY>"
         MonMessage.To = "romain.dehan@poclain.com"
  MonMessage.cc = ""
'  MonMessage.Attachments.Add "H:\SERVICE\MAINTENANCE PREVENTIVE\Archivage fiche d'intervention maintenance\Fichier excel\Archivage fiche d'intervention maintenance.xlsm"
  MonMessage.Subject = "Demande d'intervention maintenance"
  ' Le corps du message est divisé en 2 lignes :
 corps = corps & "Bonjour Christophe,"
  ' <p> = Touche ENTER
 corps = corps & "<p>"
   corps = corps & "<p> Ci-joint la demande d'intervention pour le banc : " & MyBench & ".</p>"
  corps = corps & "<p><a href=""H:\SERVICE\MAINTENANCE PREVENTIVE\Archivage fiche d'intervention maintenance\Fichier excel\Archivage fiche d'intervention maintenance.xlsm"">lien vers le document</a></p>"
  corps = corps & "</BODY></HTML>"
  MonMessage.htmlbody = corps
  MonMessage.display
 
  Set MonOutlook = Nothing
Workbooks("Archivage fiche d'intervention maintenance").Close False

End Sub

Regarde les balises de code <HTML><BODY> et ensuite comment est défini le corps (la propriété de la variable MonMessage) par rapport à corps : En fait tu insères des balises HTML à ta variable corps, puis tu la remplies avec ton texte (et tes liens dans href=___) puis tu fermes ta balise HTML. Tu finis par indiquer que le "corps html" (par traduction littérale) de ton mail correspond à la variable corps que tu viens de taper (qui a donc été encadrée par des balises de type Corps et de type HTML) et basta.

Bonne continuation
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
XL 2019 Ajout d'un lien hypertexte dans un mail envoyé par VBA
Réponses
2
Affichages
679
angelusr71
A
I
  • Question Question
XL pour MAC Xlsm - Fichier permettant de gérer un cross d'établissement scolaire
Réponses
8
Affichages
531
iruri
I
S
  • Question Question
XL 2021 Planning de suivi des actions pour service Hygiène Sécurité et Environnement
Réponses
2
Affichages
1 K
fanfan38
fanfan38
L
  • Question Question
Microsoft 365 vba Outlook traiter un fichier excel lors de sa reception
Réponses
0
Affichages
769
lesoldat9
L
A
  • Question Question
XL 2019 A partir d' Excel créer lien qui ouvre directement le mail concerné d'Outlook
Réponses
3
Affichages
1 K
mromain
mromain
P
  • Résolu(e)
XL 2016 Besoin d'ajouter une fonctionnalité d'envoi d'e-mails pour deux personnes dans un outil 5S
2
Réponses
15
Affichages
2 K
Pauuul35
P
C
  • Question Question
XL 2019 Fermer une feuille par un lien hypertexte
Réponses
4
Affichages
1 K
Corentin2170
C
C
  • Résolu(e)
Microsoft 365 Macro qui crée un lien hypertexte + se déclenche OnClick
Réponses
5
Affichages
862
AtTheOne
AtTheOne
F
  • Question Question
XL 2016 Envoi mail Outlook plage de cellule (qui ne se déforme pas)
Réponses
13
Affichages
2 K
fanch55
fanch55
J
  • Question Question
Microsoft 365 liens hyper texte
Réponses
3
Affichages
704
fanch55
fanch55
L
  • Résolu(e)
XL 2016 Lien hypertexte VBA
Réponses
1
Affichages
1 K
Louu59
L
T
  • Question Question
XL 2019 Créer un lien hypertexte dans Excel vers un endroit spécifique d'un pdf
Réponses
3
Affichages
2 K
kiki29
kiki29
C
  • Question Question
XL 2021 EXCEL IMPORTER du texte de plusieurs fichier en 1 fichier
Réponses
6
Affichages
721
Cousinhub
Cousinhub
L
  • Question Question
XL 2016 Lien hypertexte vers le fichier le plus récent d'un dossier
Réponses
5
Affichages
709
le chat perché
L
I
  • Résolu(e)
Microsoft 365 Garder dimension des graphes issus d'un lien Excel lors de la MaJ dans PP
Réponses
2
Affichages
516
ilyes4205
I
E
  • Résolu(e)
Microsoft 365 Conception d'un outils alliant faciliter d'utilisation et optimisation de la RAM/Processeur/Espace Disque
Réponses
6
Affichages
804
elgringo123456
E
M
  • Question Question
XL 2019 Problème ouverture lien hypertexte
2
Réponses
19
Affichages
2 K
sylvanu
sylvanu
C
  • Résolu(e)
Microsoft 365 créer un lien vers un onglet créé
Réponses
4
Affichages
1 K
cecenico
C
T
  • Question Question
Microsoft 365 Import de données et liaisons entre classeurs
Réponses
14
Affichages
922
TCHIS
T
L
  • Résolu(e)
XL 2019 Lien Cliquable VBA Email
2
Réponses
20
Affichages
4 K
LuanaDDC
L
Retour