Re : Si Qté par fournisseur = 20 alors ALERTE !
Bonjour le forum,Bonjour TOTOTITI,
Je recuperer une macro que j'ai adapté.
Sub auto_open()
Worksheets("Alerte").OnEntry = "MailOutlookExpress"
End Sub
Sub MailOutlookExpress()
Dim Adresse As String, Sujet As String, Texte As String
If (Range("C3").Value) = 1 Then
Adresse = "Destinataire01@mail.fr;Destinataire02@mail.fr"
Sujet = "Le sujet"
Texte = "Bonjour," & vbCrLf & vbCrLf _
& "La quantité a envoyer est atteinte pour le fournisseur" & vbCrLf & vbCrLf & _
"Cordialement" & vbCrLf & Environ("UserName")
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & _
Adresse & "?subject=" & Sujet & "&Body=" & Texte
End If
End Sub
Je l'ai mit dans un module,quand je change manuellement la valeur de la CEL C3 a 1,dans la feuille Alerte,elle s'execute bien,par contre la valeur C3 passe a 1,losque je valide mon USF et que la colonne AB passe a oui pour le CodFour 1659,la il ne se passe rien .
Comment faire pour que cette macro s'execute en auto si e seuil de la feuille Alerte est atteind
Merci