Création d'un lien dans vba

Résolu/Fermé
Bilou64000 Messages postés 23 Date d'inscription jeudi 21 novembre 2013 Statut Membre Dernière intervention 22 décembre 2016 - 13 févr. 2014 à 12:26
Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 - 14 févr. 2014 à 22:49
Bonjour,

J'ai créé un module avec une macro qui envoie un mail directement à ma hiérarchie, quand ils reçoivent le mail, il est inscrit:

Bonjour,

Je vous prie de bien valider un CRI en attente dans le W.

W:\Entity\... (lien du dossier),

Merci d'avance.

Cordialement.

Voir le code ci dessous:

Sub envoi_mail_hierarchie()
'
' envoie d'un mail
'
Dim ol As Object, monItem As Object
Set ol = CreateObject("outlook.application")
Set monItem = ol.CreateItem(olMailItem)

monItem.To = "****-******.*****@*****.***;**********.*******@*****.***"
monItem.Subject = "Validation d'un CRI en attente"
monItem.Body = "Bonjour" & Chr(13) & Chr(13) & "Je vous prie de bien vouloir valider un CRI en attente dans le W." & Chr(13) & Chr(13) & " W:\Entity\****\***\** - ***\**-********\*****************\***\*** **** " & Chr(13) & Chr(13) & "Merci d'avance." & Chr(13) & Chr(13) & "Cordialement"
Set mondoc = monItem.Attachments
monItem.Send
Set ol = Nothing
MsgBox "La demande a bien été transmise aux destinataires "
End Sub


Mon problème est le suivant, lorsque ma hierarchie reçoit le mail, elle ne peut pas faire un ctrl+clic sur le lien pour avoir un accès direct au dossier, elle est obligée de se créer un raccourci sur le bureau du dit dossier ou de devoir faire le chemin d'accès à chaque fois. Est-il possible de créer un lien hypertexte ou que le lien qui soit reçu soit fait de telle sorte qu'on puisse cliquer dessus?

Je sais pas si j'ai été très clair...


A voir également:

5 réponses

Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
13 févr. 2014 à 14:32
Bonjour,
Une solution par ici.

1
Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
14 févr. 2014 à 22:49
Bonjour,
Merci et bonne fin de soirée.
1
Bilou64000 Messages postés 23 Date d'inscription jeudi 21 novembre 2013 Statut Membre Dernière intervention 22 décembre 2016 125
14 févr. 2014 à 12:54
Merci pour le lien, mais je suis assez novice dans tout celà, et je ne sais pas quoi changer pour donner une forme viable à mon lien. Si je comprends bien la c'est pour une adresse sur internet, moi je souhaite donner un accès à un dossier sur un réseau (W).
0
Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
14 févr. 2014 à 16:24
Bonjour,
Eh bien vous devez avoir votre texte :
" W:\Entity\****\***\** - ***\**-********\*****************\***\*** **** "
Sous cette forme :
"file://" & "C:\Users\PJP\Desktop\envoyer_formulaire_final.xlsm"

0
Bilou64000 Messages postés 23 Date d'inscription jeudi 21 novembre 2013 Statut Membre Dernière intervention 22 décembre 2016 125
14 févr. 2014 à 17:12
?! En francais... Je suis vraiment novice dans l'histoire, j'ai pas saisi ou est-ce que je dois changer la forme ...
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
14 févr. 2014 à 17:51
Bonjour,
` !En français... mais oui bien sûr, mais avec un bonjour pour commencer c'est aussi en français.... !
Doc je reprends :
Dans votre code vous avez ce texte :
" W:\Entity\****\***\** - ***\**-********\*****************\***\*** **** "
Vous devez le compléter pour qu'il soit comme celui-ci :
"file://" & "" W:\Entity\****\***\** - ***\**-********\*****************\***\*** **** "
"

0
Bilou64000 Messages postés 23 Date d'inscription jeudi 21 novembre 2013 Statut Membre Dernière intervention 22 décembre 2016 125
14 févr. 2014 à 22:33
Bonsoir,

Excusez-moi, il est vrai que j'ai été très malpoli pour le coup!!!! Veuillez m'en excuser! Je testerai lundi et vous dirai si cela fonctionne. Merci beaucoup d'avance, et encore désolé.
0