Bonjour à tous
pourriez vous m'aider sur ce codage, j'essaye de faire en sorte qu'EXCEL envoi un mail automatique dés que le seuil est supérieur à un chiffre en l'occurence 11000 cependant ça ne fonctionne pas et je ne comprend pas d'ou viens le pb
merci par avance à tous
Sub SendEmail()
'
' SendEmail Macro
'
Dim olApp As Outlook.Application
Set olApp = CreateObject("outlook.application")
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
Dim A As Integer
Dim B As Long
A = 19
B = 4
With Worksheets("SUIVI COUTS") 'adaptez le nom de feuille
If .Range("S" & B) > "11000" Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With olMail
.To = "XXXX@CCCC"
.CC = "zzz@yy"
.Subject = "ATTENTION "
.Body = "Bonjour à tous "
.Display
.send
End With
End Sub