Discussion :

[Zapuro]

Bonjour,

Je suis débutant en VBA je souhaiterai dans un fichier envoyer un mail en fonction de la valeur d'une cellule je m'explique :

par exemple :

J'ai des initial en A1 "MP" ou "JC" ou "CD" et en C1 une valeur "en commande" ou "reçu".

Je voudrais pouvoir envoyer un mail à la personne concernée en fonction des initiale et lorsque le statut de la commande change par exemple quand il passe de en commande a reçu.

J'arrive à envoyer le mail mais sans les conditions des initiale et a une seule adresse mail voici mon début de macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal target As Range)
    Dim Adresse As String, olApp As Object, M As Object
        If target.Column = 11 And target.Row > 1 Then
            Adresse = "@"
        Set olApp = CreateObject("Outlook.Application")
        Set M = olApp.CreateItem(olMailItem)
        With M
            .Subject = "Statut commande modifié"
            .Body = "Le statut de votre commande ligne " & target.Row & " de l'onglet RS est " & target.Value & ""
            .Recipients.Add Adresse
            .Send
        End With:D
    End If
    End Sub

Merci pour vos réponses