Bonjour a tous,
Je reviens vers vous pour savoir selon vous quelle serait l'erreur ou le manque dans mon test de code suivant
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Adresse As String, olApp As Object, M As Object
Set xRg = Range("A2:Vz2")
nConfirmation = MsgBox("Voulez-vous envoyer ce mail à marc??", vbInformation + vbYesNo, "Mail Sheet Updates")
If nConfirmation = vbYes Then
ActiveWorkbook.Save
On Error Resume Next
Set objOutlookApp = CreateObject("Outlook.Application")
Set objMail = objOutlookApp.CreateItem(olMailItem)
With objMail
.To = "
mail@mail.com"
.Subject = "Modification planning 2018"
.Body = "Bonjour," & vbCrLf & vbCrLf & "Le fichier " & Chr(34) & ActiveWorkbook.Sheets(1).Name & Chr(34) & " a été modifié."
Range("2:6").Select
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
End If
End Sub