Création d'un lien dans vba
Résolu
Bilou64000
Messages postés
23
Date d'inscription
Statut
Membre
Dernière intervention
-
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
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...
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:
- Création d'un lien dans vba
- Créer un lien pour partager des photos - Guide
- Lien url - Guide
- Creation compte gmail - Guide
- Création site web - Guide
- Création d'un compte google - Guide
5 réponses
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).
Bonjour,
Eh bien vous devez avoir votre texte :
" W:\Entity\****\***\** - ***\**-********\*****************\***\*** **** "
Sous cette forme :
"file://" & "C:\Users\PJP\Desktop\envoyer_formulaire_final.xlsm"
Eh bien vous devez avoir votre texte :
" W:\Entity\****\***\** - ***\**-********\*****************\***\*** **** "
Sous cette forme :
"file://" & "C:\Users\PJP\Desktop\envoyer_formulaire_final.xlsm"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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\****\***\** - ***\**-********\*****************\***\*** **** "
"
` !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\****\***\** - ***\**-********\*****************\***\*** **** "
"
