Discussion :

[karima123]

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
------------------------------------------

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
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

[Oliv-]

Salut,

Comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Sub EnvoiHistorique()
'---------------------------------------------------------------------------------------
' Procedure : EnvoiHistorique
' Author    : Oliv'
' Date      : 28/12/2015
' Purpose   :
'---------------------------------------------------------------------------------------
'
    Application.DisplayAlerts = False
    With ActiveWorkbook
        .SaveAs , , , , , , xlShared
        .KeepChangeHistory = True
        .HighlightChangesOptions When:=xlAllChanges
        .ListChangesOnNewSheet = True
        .HighlightChangesOnScreen = False
        .Worksheets("Historique").Select
    End With
 
 
    Const olMailItem = 0
    'Copy range of interest
    Dim r As Range
    'Set r = Range("b10:G14")
    'r.Copy
    Worksheets("Historique").Copy    'copie de la feuille vers un classeur temporaire
    Range([a1], [a1].SpecialCells(xlLastCell)).Select
    Selection.Copy
 
    'Open a new mail item
    Dim outlookApp As Object
    Set outlookApp = CreateObject("Outlook.Application")
    Dim outMail As Object
    Set outMail = outlookApp.CreateItem(olMailItem)
 
 
    outMail.To = "destinataire@adresse.com"
    outMail.Subject = "Modifs dans le classeur " & ActiveWorkbook.Name
 
 
    'Get its Word editor
    outMail.Display
    Dim wordDoc As Object
    Set wordDoc = outMail.GetInspector.WordEditor
 
    'To paste as picture
    'wordDoc.Range.PasteAndFormat wdChartPicture
 
    'To paste as a table
    wordDoc.Range.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False
    ActiveWorkbook.Close False    'fermeture du classeur temporaire
 
    'pour masquer la feuille historique du classeur partagé
    ActiveWorkbook.Save
 
End Sub

[karima123]

Merci pour ta reponse,

Peut-tu SVP m'expliquer pourquoi tu as ajouté la ligne ci_dessous puisse que le fichier est deja partagé???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 .SaveAs , , , , , , xlShared

Salutation,

[Oliv-]

bonjour,

pour être sùr qu'il est bien à ce moment là partagé et surtout provoquer un enregistrement pour obtenir les dernières modif.

[karima123]

desolé Oliv j'ai pas bien compris.

[Tross]

Bonjour,

j'aimerais savoir Karima123 si tu as pu résoudre ton problème car la procédure de notification par mail lors de modifications d'un classeur m'intéresserait...ou tout du moins tenter de comprendre la procédure d' Oliv-...

Merci d'avance pour vos éventuelles réponses.

[karima123]

Bonjour,

Je suis vraiment désoler pour ce retard,
Oui j'ai testé le code que Mr Oliv m'a conseillé et sa marche parfaitement, mais j'avais juste un petite problème, c'est qu'on j'ajoute un nouvel enregistrement "je reçois juste les enregistrements de la colonne A et les autres colonnes non, comme si j'ai rien écris dans le reste des colonnes. C’est le seule problème que j'ai constaté.

Et en réalité j'ai changé l’idée de suivre les changements effectuer dans les fichiers pour cela j'ai pas remarqué ton message.
et j'oublie pas de remercie Mr Oliv pour ces efforts

cordialement
karima