Comment envoyer un e-mail si une certaine cellule est modifiée dans Excel?

Cet article parle d'envoyer un e-mail via Outlook lorsqu'une cellule d'une certaine plage est modifiée dans Excel.

Envoyer un e-mail si la cellule dans une certaine plage est modifiée avec le code VBA

Envoyer un e-mail si la cellule dans une certaine plage est modifiée avec le code VBA

Si vous devez créer automatiquement un nouvel e-mail avec un classeur actif joint lorsqu'une cellule de la plage A2: E11 est modifiée dans une certaine feuille de calcul, le code VBA suivant peut vous aider.

1. Dans la feuille de calcul dont vous avez besoin pour envoyer un e-mail en fonction de sa cellule modifiée dans une certaine plage, cliquez avec le bouton droit sur l'onglet de la feuille, puis cliquez sur le bouton Voir le code dans le menu contextuel. Voir la capture d'écran:

2. Dans le pop-up Microsoft Visual Basic pour applications , veuillez copier et coller ci-dessous le code VBA dans la fenêtre Code.

Code VBA: envoyer un e-mail si la cellule d'une plage spécifiée est modifiée dans Excel

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/12
    Dim xRgSel As Range
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xMailBody As String
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set xRg = Range("A2:E11")
    Set xRgSel = Intersect(Target, xRg)
    ActiveWorkbook.Save
    If Not xRgSel Is Nothing Then
        Set xOutApp = CreateObject("Outlook.Application")
        Set xMailItem = xOutApp.CreateItem(0)
        xMailBody = "Cell(s) " & xRgSel.Address(False, False) & _
            " in the worksheet '" & Me.Name & "' were modified on " & _
            Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
            " by " & Environ$("username") & "."

        With xMailItem
            .To = "Email Address"
            .Subject = "Worksheet modified in " & ThisWorkbook.FullName
            .Body = xMailBody
            .Attachments.Add (ThisWorkbook.FullName)
            .Display
        End With
        Set xRgSel = Nothing
        Set xOutApp = Nothing
        Set xMailItem = Nothing
    End If
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

Florales:

3. appuie sur le autre + Q touches simultanément pour fermer le Microsoft Visual Basic pour applications fenêtre.

À partir de maintenant, toute cellule de la plage A2: E11 est modifiée, un nouvel e-mail sera créé avec le classeur mis à jour en pièce jointe. Et tous les champs spécifiés tels que l'objet, le destinataire et le corps de l'e-mail seront répertoriés dans l'e-mail. Merci d'envoyer l'e-mail.

Notes: Le code VBA ne fonctionne que si vous utilisez Outlook comme programme de messagerie.

Articles Liés:

• Comment envoyer automatiquement un e-mail en fonction de la valeur de la cellule dans Excel?
• Comment envoyer un e-mail via Outlook lorsque le classeur est enregistré dans Excel?
• Comment envoyer un e-mail si le bouton est cliqué dans Excel?
• Comment envoyer un e-mail si la date d'échéance a été respectée dans Excel?
• Comment envoyer un rappel ou une notification par e-mail si le classeur est mis à jour dans Excel?