Notification par mail de la modification de fichier Excel
Bonjour a Tous
je reviens vers vous avec une nouvellle mission...
j'ai un fichier excel partage et j aimerais recevoir une notification par mail de la modifications du fichier avec la liste des modifications
pour le moment j en suis la ,je recoi bien la notification par mail de la modifications du fichier
j ai coller cela dans le Workbook
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@adresse.com"
monmail.Subject = "Modifs"
monmail.Body = "Modifications apportees dans le fichier"
monmail.Send
Set ol = Nothing
End Sub
je souhaiterais avoir la liste des modifications dans le corps du Mail (monmail.body), est ce possible et comment faire?
je pensais au'suivi des modifications ' d'excel mais la je bloque
merci pour votre aide
Bonjour,
Je n'ai malheureusement pas de réponse à ta question étant vraiment novice dans ce domaine.
Cependant je me permet de répondre à ton annonce car je serais très intéressée par ta macro et j'aurais voulu savoir si tu pourrais m'expliquer comment la mettre en pratique
Je te remercie d'avance pour ta réponse.
Cordialement
Kisscool943
n etant pas non plus une fleche...
je sais que le code ci dessous fonctionne
et grace au suivi des modifications d'excel on peu recroiser les elements.
pour faire simple
tu ouvres ton fichier excel.
tu fais 'alt+F11' ce qui te donnes acces au VBA
sur la droite (normalement) tu as une liste correspondant a tes feuil (Feuil1,Feuil2 ...) et enfin 'ThisWorkbook'
tu doubles clic sur ce dernier, et tu colles le code suivant dans la partie a droite.
code a copier:
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@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"-- ici correspond au contenu du mail
monmail.Send
Set ol = Nothing
End Sub
tu ferme tout en enregistrant et deja normalement tu devrais avoir un mail te notifiant que le fichier a subit une modif et en plus l'expediteur du mail est celui du PC qui as fait la modif etant donne que ce code envoi un mail de l'outlook actif sur le pc.
j espere avoir ete relativement assez clair avec toi.
pour le systeme "suivi des modifications" sur excel, tape F1 dans le fichier excel pour ouvrir l'aide, elle est assez explicite sur le sujet.
bon courage a toi.
Bonjour ,
Merci beaucoup pour tes explications.
Ta macro est vraiment très pratique.
Cordialement
Kisscool943
heureux que cela te convienne Kisscool943
bonjour a tous
pas de soluce alors..??
bonjour tout le monde !
Cette macro marche à merveille !! génial !
cependant, je souhaiterais qu'elle ne marche que sur une seule colonne (par exemple colonne C)
comment faire ?
merci à tous !
Bonjour,
pouvons nous avoir plusieurs emails de destinataires?, si oui pouvez-vous m'expliquer la marche a suivre svp.
Est-il également possible d'avoir le lien hypertexte du fichier dans le corps du texte (Fichier en réseau).
Merci par avance pour votre retour.