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

[Ecthelion2]

Bonjour,

concernant la condition d'envoi, tu utilises ton "target.value" dans le corps de ton mail, il te suffit donc, avant de réaliser ta procédure d'envoi de mail, de vérifier si ta variable contient bien "reçu" avec un simple IF (ou d'incorporer le test dans ton IF de départ).

Pour l'adresse mail, la macro ne peut pas deviner seule à qui l'envoyer en fonction des initiales, il faut donc que tu ais un tableau de correspondance qui dit pour chaque initiale possible, l'adresse à qui envoyer le mail.

Une fois le tableau créé sur un de tes onglets, lorsque tes conditions d'envoi sont vérifiées, il te suffit d'aller chercher l'adresse dans le tableau à l'aide de la fonction VLookUp par exemple (RechercheV) :

https://docs.microsoft.com/fr-fr/off...nction.vlookup


Cordialement.

[Zapuro]

Bonjour,

Tout d'abord merci pour la réponse,

J'ai crée mon tableau avec la correspondance des initiales, par contre je n'arrive pas à déterminer la cellule de la colonne A correspondante a la ligne de la cellule active (par exemple K5) et de ce faite récupérer la valeur de initiales pour ensuite sélectionner la bonne adresse mail.

Pouvez vous m'aider ?

Merci d'avance

[Ecthelion2]

Bonjour,

Tout d'abord merci pour la réponse,

J'ai crée mon tableau avec la correspondance des initiales, par contre je n'arrive pas à déterminer la cellule de la colonne A correspondante a la ligne de la cellule active (par exemple K5) et de ce faite récupérer la valeur de initiales pour ensuite sélectionner la bonne adresse mail.

Pouvez vous m'aider ?

Merci d'avance

Alors c'est tout simple, vous savez déjà récupérer la ligne active, puisque vous utilisez Target.Row dans le corps de votre mail, vous avez donc déjà fait la moitié du chemin.

Il ne reste plus qu'à préciser la colonne, et là deux solutions :

Code :

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

variable = Range("A" & Target.Row)

ou

Code :

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

variable = Cells(Target.Row, 1)

Une fois que vous avez mis cela en place, faites déjà quelques essais de votre côté pour récupérer l'adresse mail, avec la fonction VLookUp, et si cela ne fonctionne pas, venez poster ce à quoi vous serez arrivé, et l'on essaiera de voir où se situe l'erreur.


Cordialement.

[Zapuro]

Bonjour,

Merci pour l'aide j'ai réussit.