Bonjour à tous,
Etant novice dans le monde du VBA je m'adresse à vous pour un coup de main.
J'ai un fichier partager qui est réguliérement mis à jour par plusieur personne. Afin d'évider d'ouvrir le fichier 10 fois par jour pour le vérifier , j'aimerais qu'une fois modifié un E-mail soit envoyé au personne qui n'ont pas modifié le fichier.
exemple :
"A" mets à jour le fichier un E-mail est envoyer à "B", "C" ... mais pas à A
"B" mets à jour le fichier un E-Mail est envoyé à "A","C".. mais pas à B et ainsi de suite.
A l'heure actuelle j'ai cette macro qui fonctionne bien mais qui ne colle pas vraiment avec mon vrai besion
--------------------------------------------------------------------------------------------
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 = "mon adresse@.com" 'ici tu renseignes ton adresse mail
monmail.Subject = "Modifs" 'ici correspond a l'objet du mail
monmail.Body = "Modifications apportees dans le fichier attendu recette" 'ici correspond au contenu du mail
monmail.Send
Set ol = Nothing
End Sub
-----------------------------------------------------------------------------------------------
Si quelqu'un peut m'aider (ce que je ne doute absolument pas )
Je vous en remercie par avance
Cordialement
Lasource