Lancer Macro si valeur cellule =

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

babelone

XLDnaute Occasionnel
Bonjour a tous,

Voici mon PB,j'ai récuperer une macro qui lance outlook express,je l'ai adapté a mes besoins,mais j'aimerai que cette macro ce lance automatiquement .

Je remplis ma base (Feuil1) via un USF dans cette Usf,j'ai une liste box qui met OUI ou NON dans la colonne AB de Feuil1

Dans une Feuil2, je un SOMMEPROD qui que si Cel AB=10 alors cellule devient rouge et je souhaiterai que ma macro ce lance a ce moment là.
voici la macro qui est dans un module .

Sub MailOutlookExpress()
Dim Adresse As String, Sujet As String, Texte As String
If (Range("C3").Value) = 10 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

Merci de votre Aide,ci joint un fichier exemple épuré pour qu'il entre dans le tuyau
Free - Envoyez vos documents
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
2 K
T
  • Question Question
Réponses
2
Affichages
978
E
Réponses
0
Affichages
1 K
Eric D
E
C
Réponses
0
Affichages
905
C
E
Réponses
0
Affichages
1 K
Eric D
E
R
Réponses
4
Affichages
1 K
R
Retour