macro excel envoie message par outlook

[crovax39]

bonjour,

je suis novice en programmation sur excel

j'ai créé une macro qui envoie un message via outlook lorsque le fichier est fermé, ou enregistré...

macro:

Sub SendWorkBook()

Dim OL, olMailItem, MyItem As Object

Set OL = CreateObject("Outlook.Application")
Set MyItem = OL.CreateItem(olMailItem)
With MyItem

.To = "aaaaaaaaaa@xxxxxxxxxxxxxxxx.truc"
.Subject = "fichier consulté"
.Body = "le fichier xxxxxx a été consulté"
.Categories = "Banking-Info"

.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send

End With

End Sub


Et je dois ajouter deux "difficultés" à ma macro:

-envoyer le nom du fichier (surtout si son nom a été modifier, donc même si celui là varie)
-et envoyer l'emplacement du fichier par lien : C:\mes document\xxxxx (car le fichier sera sur un réseau accessible par toutes les personnes de l'entreprise)

cordialement; crovax39

 

[JNP]

Re : macro excel envoie message par outlook

Bonjour Crovax39 et bienvenue 🙂,
Teste ce bout de code, il devrait répondre à ta question 😉.

Sub Test()
MsgBox ThisWorkbook.Name
MsgBox ThisWorkbook.Path
End Sub

Bonne journée 😎

 

[crovax39]

Re : macro excel envoie message par outlook

merci pour ton renseignement

Aprés vous allez dire que je suis chiant (voir complètement débille lol) mais tu pourai me donné la macro en entière ????😀 je n'arrive pas à placer ton code

merci 🙂🙂

 

[JNP]

Re : macro excel envoie message par outlook

Re 🙂,

.Body = "le fichier " & ThisWorkbook.Name & " a été consulté" _
   & VbCrLf & ThisWorkbook.Path

Bon courage 🙂

 

[crovax39]

Re : macro excel envoie message par outlook

merciiiiiiiiiiiiiiiiiiiiiiii beaucoup,

bonne continuation 🙂 🙂 🙂 🙂 🙂 🙂 🙂