Notification par mail
Bonjour à tous,
Je partage un classeur Excel avec d'autres camarades de travail. Mon souhait est de recevoir un mail a chaque modification d'une cellule des différentes feuilles constituant ce classeur.
Après quelques recherches, j'ai bien trouvé ce code ci-dessous :
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 = "moi@fai.fr"
monmail.Subject = "Modifs"
monmail.Body = "Modifications apportees dans le fichier"
monmail.Send
Set ol = Nothing
End Sub
Il fonctionne très bien et je reçois bien un message d'alerte par mail m'annonçant qu'une modification a été apportée au classeur.
Seulement, je ne sais pas quoi ? Il me faut cherché sur les différentes feuilles constituant le classeur.
Est-il possible à partir de ce code de le modifié afin de connaître :
1 - l'identité de la feuille qui à été modifié
2 - La cellule en question
Merci pour vos lumières
@+
Bonjour,
Pour avoir tous les détails ... tu peux jeter un oeil sur ce lien ...
En espèrant que cela t'aide ...