Bonjour,
J'ai récupéré ce code sur un autre forum :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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