Combiner Target address et un envoi automatique de mail

Bonjour à tous !

J'ai (comme par hasard) un léger problème dans le code ci-joint:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If a Then

Set NSession = CreateObject("Notes.NotesSession")

Set NUIWorkspace = CreateObject("Notes.NotesUIWorkspace")

Set NMailDb = NSession.GETDATABASE("", "")

NMailDb.OPENMAIL

Set NUIDocument = NUIWorkspace.ComposeDocument(NMailDb.Server, NMailDb.filePath, "Memo")

With NUIDocument

.Fieldsettext "EnterSendTo", "blablabla@bla.fr" ' remplacer to par mail du destinataire

.Fieldsettext "Subject", "modification fichier excel"

.Fieldsettext "Body", "Le tableau a été modifié"

.Document.SaveOptions = "1"

.Document.MailOptions = "1"

.Close

End With

Set NUIDocument = Nothing

End If

End Sub

J'aimerai lors de l'envoi de ce mail, faire en sorte que la ligne rouge indique au destinataire, la ou les cellule(s) modifiées.

Merci de votre aide

bonjour,

code à mettre dans le module du classeur (thisworkbook)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If a Then
        Set NSession = CreateObject("Notes.NotesSession")
        Set NUIWorkspace = CreateObject("Notes.NotesUIWorkspace")
        Set NMailDb = NSession.GETDATABASE("", "")
        NMailDb.OPENMAIL
        Set NUIDocument = NUIWorkspace.ComposeDocument(NMailDb.Server, NMailDb.filePath, "Memo")
        With NUIDocument
            .Fieldsettext "EnterSendTo", "to"    ' remplacer to par mail du destinataire
           .Fieldsettext "EnterCopyTo", "cc,"    ' remplacer cc par mail du carbon copy
           .Fieldsettext "Subject", "modification fichier excel"
            .Fieldsettext "Body", "les cellules suivantes ont été modifiées : " & b
            .Document.SaveOptions = "1"
            .Document.MailOptions = "1"
            .Close
        End With
        Set NUIDocument = Nothing
    End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  seta
  b = b & "," & Target.Address
End Sub

code à mettre dans un module standard

Public a, b
Sub seta()
    a = True
End Sub

C'est génial h2so4, merci. Je te demande un dernier coup de main si me le permet.

Je reçois le mail, avec les cellules qui ont été modifiées. Je les reçoit sous ce format la: $D$4,$C$2

Est-il possible de les recevoir sur ce format la: D4, C2 ?

Encore merci

Désolé pour le double post:

Je fais en sorte de comprendre comment tu fais et comment ça marche. (Il ne suffit pas d'attendre les réponses venir d'elles mêmes, il faut comprendre afin d'aider les autres plus tard)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If a Then

Set NSession = CreateObject("Notes.NotesSession")

Set NUIWorkspace = CreateObject("Notes.NotesUIWorkspace")

Set NMailDb = NSession.GETDATABASE("", "")

NMailDb.OPENMAIL

Set NUIDocument = NUIWorkspace.ComposeDocument(NMailDb.Server, NMailDb.filePath, "Memo")

With NUIDocument

.Fieldsettext "EnterSendTo", "to" ' remplacer to par mail du destinataire

.Fieldsettext "EnterCopyTo", "cc," ' remplacer cc par mail du carbon copy

.Fieldsettext "Subject", "modification fichier excel"

.Fieldsettext "Body", "les cellules suivantes ont été modifiées : " & replace(b,"$","")

.Document.SaveOptions = "1"

.Document.MailOptions = "1"

.Close

End With

Set NUIDocument = Nothing

End If

End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

seta

b = b & iif(b="","",",") & Target.Address

End Sub

Bonjour,

Un gros merci à h2so4 !!!!!

Bon courage à tous pour cette nouvelle semaine !

Cdlt