Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

laskoo87

XLDnaute Nouveau
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 !
 
Dernière édition:
Re : nom du fichier envoyé dans la fonction //monmail.Subject ="test"//

Bonjour Laskoo87 🙂,
Code:
monmail.Subject = "Modifs " & ThisWorbook.Name
Peut-être 🙄 ?
Bonne journée 😎
 
Re : nom du fichier envoyé dans la fonction //monmail.Subject ="test"//

Bonjour,

Si le fichier est celui qui contient la macro:
Code:
monmail.Subject = "Modifs " & ThisWorkBook.Name

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
18
Affichages
2 K
Réponses
3
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…