Macro hyperlien vers Outlook

Staple1600

XLDnaute Barbatruc

• 14 Mars 2018

• #2

Bonjour le fil, le forum

Un exemple à tester

VB:

Sub test()
Dim OutApp As Object, OutMail As Object, strbody$, FileCell As Range
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
'(ici adapter le nom de la feuille et la cellule contenant
'le chemin du fichier
'ex de contenu valide en A1: "D:\Fichier1.xlsm"
Set FileCell = Sheets(1).Range("A1")
With OutMail
    .To = "whoever@microsoft.com"
    .Subject = "Test"
    .Body = "Message de test"
    If Trim(FileCell) <> "" Then
        If Dir(FileCell.Value) <> "" Then
            .Attachments.Add FileCell.Text
        End If
    End If
.Send  'ou .Display
End With
Set OutMail = Nothing
End Sub

 

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 15 Mars 2018

• #3

Bonsoir
merci pour la réponse, mais ce n'est pas ça que je recherche.
Moi j'aimerai récupérer l’hyperlien qui se trouve en cellule A1 est le rendre actif par un clic sur içi.

Vmax

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Mars 2018

• #4

Re

Oui sauf que cela n'est possible
Puisque le lien pointe sur le lecteur D
Or le destinataire de ton mail n'a pas accès à ton disque dur, non ?

D'où le code que je t'ai proposé...

 

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 15 Mars 2018

• #5

Si le dentinaire à accès au lecteur D car il se trouve sur un réseau d'entreprise.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Mars 2018

• #6

Re

Dans ce cas, le chemin ne peut pas pointé sur: "D:\Fichier1.xlsm"
mais plutôt \\nomdupartage\Fichier1.xlsm

*

j'ai une macro qui fonctionne bien à condition d'indiquer le chemin du fichier à ouvrir.
J'aimerai que le lien soit repris depuis la cellule A1.

Cliquez pour agrandir...

NB: *Cette précision importante ne figurait pas ton premier message...

 

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 15 Mars 2018

• #7

oui c'
est ça

 

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 17 Mars 2018

• #8

Bonjour
auriez-vous une solution avec avec l’accès suivant \\nomdupartage\Fichier1.xlsm

Par avance merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Mars 2018

• #9

Bonjour le fil, le forum

@wmax67
Pourquoi tu tiens absolument à privilégier cette voie?
Ce n'est pas plus simple (et plus sûr) de joindre le fichier en PJ comme le fait mon code du message#2

 

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 17 Mars 2018

• #10

Pour des raisons pratique, après consultation le personnel préfère avoir accès directement au fichier plutôt que de l’enregistrer sur le serveur, qui plus et au mauvais endroit.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Mars 2018

• #11

Re

Le but est bien de recevoir un mail avec un lien pointant sur un classeur stocké sur un serveur.
Or si ce fichier est renommé ou déplacé le lien ne sera plus valide dans le mail.

Par contre en recevant directement le fichier en PJ lors de l'envoi du mail, au moins on est sûr d'avoir un fichier.

Quand à la praticité, pourquoi chaque utilisateur ne connecte pas un lecteur réseau qui pointe vers le dossier où est stocké ce classeur
(en cochant Se reconnecter lors de la connexion) ?
C'est ce que je fais au boulot.
Quelque soit le PC sur lequel je me connecte j'ai accès à cette ressource.

 

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 17 Mars 2018

• #12

C'est toi qui vois moi je préfère de cette manière car le fichier change constamment de nom.
Maintenant si tu veux pas m'aider c'est pas grave. Encore merci pour tes réponses.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Mars 2018

• #13

Re

Lis plus attentivement ma réponse

Or si ce fichier est renommé ou déplacé le lien ne sera plus valide dans le mail.

Cliquez pour agrandir...

NB: Où ai-je écris que je ne voulais pas t'aider?
Sauf preuve du contraire, je ne vois pas comment insérer un lien (hyperlink) si le fichier change constamment de de nom ou de dossier.

 

Vote positif 0 Vote négatif

V

vmax67

XLDnaute Occasionnel

• 17 Mars 2018

• #14

regarde mon code, le chemin et le nom du fichier même s'il change de nom se touve toujours dans le cellule A1.

trbody = "body of email" & "<a href=""Chemin pris dans cellule A1""> ici</a>" & " Merci"

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Mars 2018

• #15

Re

Comment est renseignée la valeur en A1
manuellement ou par macro?

 

Vote positif 0 Vote négatif