Envoi alerte mail sur valeur cellule excel
Bonjour,
Sur un fichier de gestion de stock, je souhaite envoyer un mail lorsque le stock d'alerte est atteint, d'après la valeur "commande" définie par une mise en forme conditionnelle. La MFC est établie, mes valeurs "commande" apparaissent bien dans
mes cellules. Quel code VBA utiliser et comment l'intégrer pour être averti par mail ?
Merci de vos réponses
Sur un fichier de gestion de stock, je souhaite envoyer un mail lorsque le stock d'alerte est atteint, d'après la valeur "commande" définie par une mise en forme conditionnelle. La MFC est établie, mes valeurs "commande" apparaissent bien dans
mes cellules. Quel code VBA utiliser et comment l'intégrer pour être averti par mail ?
Merci de vos réponses
1 réponse
-
Avec quelque chose du genre:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MessageIntroduction, Adresse As String
Adresse = "Mario@profenex.com"
MessageIntroduction = "La cellule " & Target.Address & " as atteint la valeur " & Target & ". Veuillez commander S.V.P."
'Atteint le minimum
If Target.Value < 100 Then
With ActiveSheet.MailEnvelope
.Introduction = MessageIntroduction
.Item.To = Adresse
.Item.Subject = "Item à commander: " & Target
.Item.send
End With
End If
End Sub
