VBA : envoi d'un mail auto en fonction du contenu d'une cellule

Excel

minia -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 17 mars 2023 à 07:21

Bonjour,

Apres plusieurs jour de recherche je n'ai pas trouvé de réponse à ma question.

J'ai un tableau excel avec 3 colonnes, j'aimerai qu'une macro s'exécute automatiquement lorsqu'une cellule de la 3e colonne contient le texte "A valider" et envoi un mail contenant les textes écrit dans les 2 autres colonnes de la même ligne.

Exemple :

A1 B1 C1
A2 B2 C2
A3 B3 C3

Si C1 contient "A valider" -> envoi auto d'un mail contenant le texte "A1 et B1 sont disponibles" ou A1 et B1 sont les contenu des cellules.

Voila mon code actuellement :

Sub mail_auto_fin_procédure()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim L As String
L = "A valider" 'ne fonctionne que si c'est un nombre, j'ai une erreur de compilation quand c'est un texte
For L = "A valider" To Range("C65356").End(xlUp).Row
If Range("C" & L) = "A valider" Then

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "A1 et B1 sont disponibles"

On Error Resume Next
With OutMail
.To = "***@***"
.CC = ""
.BCC = ""
.Subject = "A vérifier"
.Body = strbody
.Display 'utiliser .Send pour l'envoi du mail
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End If
Next L
End Sub

Merci pour votre aide.

Afficher la suite

A voir également:

Envoyer une alerte mail depuis excel
L'indice n'appartient pas à la sélection vba - Forum VB / VBA
Incompatibilité de type vba ✓ - Forum Programmation
Excel compter cellule couleur sans vba - Guide
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA

6 réponses

Réponse 1 / 6

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Sub mail_auto_fin_procédure()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim L As Long

    With Worksheets("feuil1")    'adaptez le nom de feuille
        derlig = Range("C" & Rows.Count).End(xlUp).Row
        For L = 1 To derlig
            strbody = ""
            If Range("C" & L) = "A valider" Then
                Set OutApp = CreateObject("Outlook.Application")
                Set OutMail = OutApp.CreateItem(0)
                strbody = .Range("A" & L) & " et " & .Range("B" & L) & " sont disponibles"
                'On Error Resume Next
                With OutMail
                    .To = "xxxxxxxx@xxxxxx"
                    .CC = ""
                    .BCC = ""
                    .Subject = "A vérifier"
                    .Body = strbody
                    .Display 'visu @Mail
                    '.Send       ' pour l'envoi du @mail
                End With
                On Error GoTo 0
            End If
            Set OutMail = Nothing
            Set OutApp = Nothing
        Next L
    End With
End Sub

Julien54

Bonjour,

Merci beaucoup pour ce code qui fonctionne très bien.

Cependant, je l'ai adapté pour envoyer un mail à chaque formateur mais ca envoie autant de mail que de fois ou le nom apparaît alors que je voudrais qu'il n'nvoie un mail que sur la dernière ligne ajoutée.

Est-ce possible ?

par exemple :

Cellule X31 : Vincent => envoie un mail

Cellule X32 : Vincent => envoie un mail (Alors qu’aujourd’hui ça envoie de nouveau le mail de la cellule X31 + X32 donc deux mails)

Merci beaucoup :)

Julien

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > Julien54

Bonjour,

par exemple :

Cellule X31 : Vincent => envoie un mail

Cellule X32 : Vincent => envoie un mail (Alors qu’aujourd’hui ça envoie de nouveau le mail de la cellule X31 + X32 donc deux mails)

Pouvez mettre un fichier exemple a dispo car je suppose qu'il n'y a pas que Vincent

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : http://cjoint.com
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

Julien54 > f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention

Bonjour,

Merci beaucoup pour ta réponse.

Je peux te transmettre par mail ? car je ne peux pas me connecter à Cjoint avec mon portable pro !!.

J'ai deux soucis :

- Envoyer un mail (au formateur juste sur le dernier enregistrement)

- Je constate que ma fonction ne fonctionne que si mon classeur et ouvert sur la feuille "PowerBi" alors que dans l'idée c'est de jamais ouvrir le classseur et tout passer par "UserForm"

Merci encore !!

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > Julien54

Bonjour,

Passez par la messagerie privee de ccm pour transmettre une adresse messagerie

Réponse 2 / 6

minia

L'objectif est d'envoyé une seule fois le mail par ligne et pas tout réenvoyé à chaque fois tant que la case n'a pas changé.

Merci

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Sub mail_auto_fin_procédure()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim L As Long

    With Worksheets("feuil1")    'adaptez le nom de feuille
        derlig = .Range("C" & Rows.Count).End(xlUp).Row
        For L = 1 To derlig
            strbody = ""
            If .Range("C" & L) = "A valider" And .Range("D" & L) = Date Then
                Set OutApp = CreateObject("Outlook.Application")
                Set OutMail = OutApp.CreateItem(0)
                strbody = .Range("A" & L) & " et " & .Range("B" & L) & " sont disponibles"
                'On Error Resume Next
                With OutMail
                    .To = "xxxxxxxx@xxxxxx"
                    .CC = ""
                    .BCC = ""
                    .Subject = "A vérifier"
                    .Body = strbody
                    .Display 'visu @Mail
                    '.Send       ' pour l'envoi du @mail
                End With
                .Range("C" & L) = "A valider" & " Ok"     'modification pour eviter x envoi
                On Error GoTo 0
            End If
            Set OutMail = Nothing
            Set OutApp = Nothing
        Next L
    End With
End Sub

Réponse 3 / 6

minia

Super ça marche parfaitement comme je le voulais !!

Dernière question : Comment lancer l'exécution de la macro automatiquement à 16h00 tous les jours par exemple ?

Merci.

minia

ou plutot dès la modification de la colonne C par le texte "A verifier"

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > minia

Re,

Que decidez vous, modification de la colonne C par le texte "A verifier" ou a 16h00.

modification de la colonne C par le texte "A verifier"

code a mettre dans VBA de la feuille que vous remplissez

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim L As Long

    If Target.Count > 1 Then Exit Sub
    derlig = Range("C" & Rows.Count).End(xlUp).Row
    If Not Application.Intersect(Target, Range("C1:C" & derlig)) Is Nothing And Target <> "" Then
        strbody = "": L = Target.Row
        If Range("C" & L) = "A valider" And Range("D" & L) = Date Then
            Set OutApp = CreateObject("Outlook.Application")
            Set OutMail = OutApp.CreateItem(0)
            strbody = Range("A" & L) & " et " & Range("B" & L) & " sont disponibles"
            With OutMail
                .To = "xxxxxxxx@xxxxxx"
                .CC = ""
                .BCC = ""
                .Subject = "A vérifier"
                .Body = strbody
                .Display 'visu @Mail
                '.Send       ' pour l'envoi du @mail
            End With
        End If
        Set OutMail = Nothing
        Set OutApp = Nothing
    End If
End Sub

minia > f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention

Cette partie : .Range("C" & L) = "A valider" & " Ok" n'est plus nécessaire ?

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > minia

Re,

Oui, plus necessaire puisque c'est la cellule qui vient d'etre saisie avec "A valider" qui permet d'envoyer le @Mail

minia

Quand je veux exécuter ce code pour tester rien ne se passe... Pourquoi ?

Réponse 4 / 6

minia

Bonjour,

Merci pour votre réponse c'est exactement ce qu'il me fallait !
Autre question, j'ai ajouté une colonne date (Colonne D) pour que le mail s'envoi seulement si la date renseigné est celle du jour et non a chaque fois que je lance la macro. Comment faire pour dire si la date est celle d'aujourd'hui -> exécuter la macro ?

Merci.

Pyrisis Messages postés 9 Date d'inscription Statut Membre Dernière intervention 1

essaye ça

If Range("D1") = Now() Then
    mail_auto_fin_procédure
Else
MsgBox("Mail déjà envoyer)
End If

panthera2612 Messages postés 6 Date d'inscription Statut Membre Dernière intervention > Pyrisis Messages postés 9 Date d'inscription Statut Membre Dernière intervention

bonjour j aimerai adapter ce code a mon fichier mais rien de ne se passe pouvez vous m aider svp

Réponse 6 / 6

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

Avec "mon" code normalement pas besoin de la reference Microsoft Outlook xx,0 Object Library mais une library qui permet beaucoup de "chose" sans avoir a cocher x libraray: Microsoft Office xx.0 Objec Library

Si vous vous envoyez les messages, vous devez mettre .Display en commentaire en mettant un ' devant et enlever le ' devant '.Send sinon les message ne partent pas

panthera2612 Messages postés 6 Date d'inscription Statut Membre Dernière intervention

cc voila la procedure mail marche, j ai regler le probleme et le code fonctionne.

maintenant me reste la variable qui declenche le mail la c un bouton j aimerai automatique

colonne A = alerte envoi le mail corps du texte mail C et D de la ligne ou le probleme se pose et boucle autant de fois necessaire

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Re,

Bonjour,
tache recurrente non faite par un humain
Tout a fait Thierry, mais il faut quand meme ouvrir le fichier!!!
Toujours valable

Il faut une colonne pour marquer le @Mail de la ligne a ete deja envoye

Geo

Bonjour,

Merci tout d'abord car votre VBA est très utile.
Cependant je me demandais si il était possible, au lieu d'envoyer X messages pour X lignes dans la boucle , d'envoyer 1 seul mail avec les X lignes de la boucle qui vérifient la condition ?

Merci beaucoup

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Vous pourriez replacer le contexte et surtout quel code je vous ai mis a dispo!!!!!!!

Discussions similaires

FORMULE POUR TICKET TOMBOLA

Activer la fonction DATEDIF

Filtre numérique ?

Somme en fonction des mois de l'année

Comment inverser le nom et le prénom

Date anglais vers français

Votre réponse

Discussions similaires