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é

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"
mais je ne trouve pas la syntaxe pour le faire avec nom_fichier_complet.

voici la partie envoi de mail

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
merci de votre aide