Discussion :

[antonysansh]

Bonjour à tous,

Je fais appel à vous car je n'arrive pas à placer dans le corps d'un mail un lien vers un fichier Excel via une macro lancée depuis Excel.
Sur mon fichier Excel, j'ajoute juste un bouton qui permettrais a l'utilisateur d'envoyer par mail (via Outlook) un lien vers ce même fichier.

J'ai beau chercher notamment sur ce site et le Tuto de SilkyRoad je ne trouve pas mon bonheur.

J'ai à chaque fois dans le corps de mon mail le nom complet du fichier (chemin\nom\extension) mais en texte et non en lien hypertexte.
J'ai l'impression que c'est parce que le chemin d'accès au fichier et le nom du fichier comportes des espaces car même avec .body = "file://" & ThisWorkbook.FullName cela ne fonctionne pas.

Voilà une partie du 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
24
25
26
27
28
29
30
31
32
33
34
Private Sub Mail_Lien_Debrief()
 
On Error GoTo err_outlook
 
Dim MonApply As New Outlook.Application
Dim MonMail As Outlook.MailItem
 
Set MonApply = Outlook.Application
Set MonMail = MonApply.CreateItem(olMailItem)
 
With MonMail
    .Subject = "Débriefing : " & ActiveSheet.[A3].Value
    .Body = ThisWorkbook.FullName
    .Display
End With
 
fin:
    Set MonApply = Nothing
    Set MonMail = Nothing
 
    Exit Sub
 
err_outlook:
    If err.Number = 462 Then
        MsgBox "Une erreur s'est produite" & _
                vbCr & _
                "Assurez-vous d'être connecté au réseau et que l'application Microsoft Outlook est ouverte." & _
                vbCr & vbCr & _
                "Si le problème persiste, quitter l'application Excel et relancer l'application Outlook avant d'ouvrir Excel." _
                , vbCritical
    End If
    Resume fin
 
End Sub

Merci d’avance pour vos réponses

[Quentin77170]

Salut à toi, c'est pas génial car je pense que ça te force à mettre tout le message en HTML mais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Message = "<a href=""" & Application.ActiveWorkbook.Path & """>lien vers le dossier</a>, <a href=""" & Application.ActiveWorkbook.FullName & """>lien vers le fichier</a>."
       .HTMLBody = Message

Je pense que bientôt, une "meilleure" réponse te sera apportée

Quentin

[antonysansh]

Merci Quentin77170,

Effectivement, mettre tout le message est HTML m'ennuie un peu mais au moins j'ai un truc fonctionnel.
De toute façon sauf dans des cas très particulier, c'est l'utilisateur qui complète le reste du mail et met les destinataires donc ça feras l'affaire.