Macros VBA Lotus Notes

Bonjour,
J'ai récupéré ce code sur un autre forum :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim ol As Object, monmail As Object DisplayAlerts = False Set ol = CreateObject("Notes.NotesSession") Set monmail = ol.CreateItem(olMailItem) monmail.To = "***@***" monmail.Subject = "Modifs" monmail.Body = "Modifications enregistrées dans le fichier Comité promo interne face it" monmail.Send Set ol = Nothing End Sub

---

et malheureusement ça ne fonctionne pas...
En fait ce que j'aimerai si c possible c'est qu'à chaque fois que l'un des utilisateurs du fichier excel (qui se trouve sur un serveur commun) apporte une modification sur le fichier et de recevoir une notification par email sur Lotus Notes.
Comment faire ? Merci d'avance pour votre support.
Ngolo75