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 SubNotes:
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?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
