Bonjour
J'ai un fichier Excel (office 365 version 2016) avec des macros.
Après avoir fait sa tache la personne doit cliquer sur un bouton pour valider sa tache et prévenir la personne suivant par mail, donc un mail est généré et je voudrait mettre un lien hypertext dans le corps du message qui permettra d'ouvrir ce fichier.
avec une syntaxe comme ci-dessous cela fonctionne très bien comme le chemin vers le fichier est écrit R:\02-test\TEST.xlsm sauf que le nom de mon fichier va changé
mais je ne trouve pas la syntaxe pour le faire avec nom_fichier_complet.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 .HTMLBody = "Bonjour, <BR><BR>Ce message est un mail automatique, il vous informe que " & Environ("username") & " a mis à jour le suivi des taches.<BR><BR>" _ & "<A href=""R:\02-test\TEST.xlsm" & """" & ">OUVRIR LE SUIVI SUR LE RESEAU.</A>" & Chr(10) & "<BR><BR>Cordialement"
voici la partie envoi de mail
merci de votre aide
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
24
25
26
27
28
29
30
31
32
33 Sub top1() Dim OutApp As Object Dim OutMail As Object Dim strbody As String Dim olFormatHTML As String Dim nom_fichier_complet As String nom_fichier_complet = Workbooks(ActiveWorkbook.Name).FullName MsgBox ("Préparation du MAIL envoyé à " & Chr(10) & Chr(10) & "TOTO.TITI@HOTMAIL.com" _ & Chr(10) & Chr(10) & "pour l'informer qu'il doit faire sa tache" & Chr(10) & Chr(10) & "Cliquer sur OK pour ouvrir OUTLOOK" & Chr(10) & Chr(10) & "Puis dans OUTLOOK cliquer sur Envoyer pour valider et terminer votre étape du suivi") Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) strbody = "Information sur la mise à jour" On Error Resume Next With OutMail .To = "au.suivant@hotmail.com" .CC = "" .BCC = "" .Subject = "FAIRE CREATION " .BodyFormat = olFormatHTML .HTMLBody = "Bonjour, <BR><BR>Ce message est un mail automatique, il vous informe que " & Environ("username") & " vous devez <BR><BR>" & _ & "<A href= nom_fichier_complet & ">OUVRIR LE SUIVI SUR LE RESEAU.</A>" & Chr(10) & "<BR><BR>Cordialement" .Display End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing
Partager