envoi email en fonction d'un texte dans une cellule

Question

Bonjour, 

Je souhaite envoyer un email a une adresse en fonction de la valeur d'une cellule si cette cellule a une autre valeur je voudrais l'envoyer à une autre personne. 
Je débute en VBA, j'ai réussit a faire l'envoi du mail mais la condition en fonction de la valeur de la cellule ne fonctionne pas 
voici le code 

Private Sub Worksheet_Change(ByVal target As Range)
    Dim Adresse As String, olApp As Object, M As Object
    offset = target.offset(, -10).Value
        If target.Column = 11 And target.Row > 1 Then
            Adresse = "mathieu.paruzot@louisvuitton.com"
        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
    End If
    End Sub  

pouvez vous m'aider

f894009 · Answer

Bonjour,

Koi t-est-ce:

offset = target.offset(, -10).Value 

ici vous devez mettre une valeur de cellule!!!

exemple:

Private Sub Worksheet_Change(ByVal target As Range)
    Dim Adresse As String, olApp As Object, M As Object
    
    Offset = target.Offset(, -10).Value
    If target.Column = 11 And target.Row > 1 Then
        Adresse = celluleX
        Set olApp = CreateObject("Outlook.Application")
        Set M = olApp.CreateItem(olMailItem)
        With M
            .To = Adresse
            .Subject = "Statut commande modifi?"
            .Body = "Le statut de votre commande ligne " & target.Row & " de l'onglet RS est " & target.Value & ""
            .Display        'visu
            '.Send          'envoi direct
        End With
    End If
End Sub

Envoi email en fonction d'un texte dans une cellule

1 réponse

Discussions similaires

Newsletters