Re : envoi de mail via vba
salut tiens un petit truc qui envoie un mail en cas de modification d'une case
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2")) Is Nothing Then
'en dessous cela permet d'envoyer le mail
Dim OutApp As Object, OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "ton adresse" '<------ remplacer par l'adresse du destinataire
.Subject = "Modification de cellule"
.body = "La cellule C2 a été modifiée avec ce nouveau contenu: ----> " & Target & vbLf & "Le " & Format(Date, "dddd dd,mmm,yyyy") & vbLf & "à " & Format(Time, "hh:mm:ss")
' .Display 'pour voir et modifier ou envoyer supprimer l'apostrophe au début de la ligne
.Send 'Pour envoyer directement le mail
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
'fin de ce qui t'interresse
End If
End Sub