[RESOLU] nom du fichier envoyé dans la fonction //monmail.Subject ="test"//

[laskoo87]

Bonjour à tous,

Je souhaite envoyé une notification via outlook lors de la modification de mon fichier partagé, ça, aucun problème...

Par contre, je voudrai intégrer automatiquement dans l'objet de mon mail le nom du fichier en question (fichier_partage.xls)...

Auriez vous une idée?

Le code actuel que j'ai est le suivant:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim ol As Object, monmail As Object
DisplayAlerts = False
Set ol = CreateObject("outlook.application")
Set monmail = ol.CreateItem(olMailItem)
monmail.To = "mail@mail.com"
monmail.Subject = "Modifs NOM DU FICHIER.xls"
monmail.Body = "Modifications enregistrées dans le fichier trucmuche"
monmail.Send
Set ol = Nothing
End Sub

NOM DU FICHIER.xls doit s'ajouter automatiquement...

Merci !

 

[JNP]

Re : nom du fichier envoyé dans la fonction //monmail.Subject ="test"//

Bonjour Laskoo87 ,

monmail.Subject = "Modifs " & ThisWorbook.Name

Peut-être ?
Bonne journée

 

[Guest]

Re : nom du fichier envoyé dans la fonction //monmail.Subject ="test"//

Bonjour,

Si le fichier est celui qui contient la macro:

monmail.Subject = "Modifs " & ThisWorkBook.Name

A+

 

[laskoo87]

Re : nom du fichier envoyé dans la fonction //monmail.Subject ="test"//

Merci beaucoup à vous 2!!
Ca marche !! )

 

[laskoo87]

Re : nom du fichier envoyé dans la fonction //monmail.Subject ="test"//

Dites moi, une autre petite question qui vous semblera peu etre simpliste, mais dans les destinataires de mon mail, je peux en mettre plusieurs?
Par exemple : monmail.To = test@mail.com et test1@mail.com

Merciiii

 

[JNP]

Re : nom du fichier envoyé dans la fonction //monmail.Subject ="test"//

Re ,

monmail.To = test@mail.com & ";" & test1@mail.com

Bon courage