Envoi alerte mail sur valeur cellule excel

Question

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

yoyo789 · Answer

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

Envoi alerte mail sur valeur cellule excel

1 réponse

Votre réponse

Discussions similaires

Newsletters