Macro / Excel / Outlook / lien hypertexte

[Céline]

Bonjour,

J'aimerais créer une macro qui automatise l'envoi d'un mail à un groupe d'utilisteurs depuis un fichier Excel. Ce mail doit contenir un lien pointant sur un fichier dont le chemin d'accès et plus spécifiquement le lecteur, peut varier d'un utilisateur à l'autre, le dossier et le fichier restant identique:

file://S:\Dossier\Fichier.xls
file://T:\Dossier\Fichier.xls
file://U:\Dossier\Fichier.xls

La création de ce chemin d'accès "dynamique" me pose un problème

Merci pour votre aide

 

[michel]

bonsoir Celine

Dans l'exemple joint :
la liste des destinataires est saisi dans la colonne A de la feuille
la reference du lecteur associé à chaque destinataire doit etre saisi dans la colonne B


Sub EnvoiMail()
Dim Destinataire As Range
Dim Objet As String
Dim URLto As String
Dim Val As String

Objet = " Essai envoi message "
Application.ScreenUpdating = False
For Each Destinataire In Range("A1:A" & Range("A65536").End(xlUp).Row)
Val = Destinataire.Offset(0, 1)
URLto = "mailto:" & Destinataire & "?subject=" & Objet & "&body=" & "file://" & Val & ":\Dossier\Fichier.xls"
ActiveWorkbook.FollowHyperlink Address:=URLto
Next
Application.ScreenUpdating = True

End Sub


bonne soirée
michel