Microsoft 365 Envoyer un email automatique a date d'échéance d'une cellule Excel

A

Abdenour

XLDnaute Nouveau
Bonjour,

Je ne connais pas du tout le VBA mais je me permets de solliciter votre aide.

Je possède un fichier Excel qui liste les tâches de mes différents projets. Chaque tâche possède un nom de tâche (colonne C), une date de début (colonne I) et une date de fin (colonne K). Attention : certaines tâches peuvent ne pas avoir de date de fin.

Ce qui est souhaité :

1/ C'est d'envoyer un email pour toutes les lignes de mon fichier dont les tâches disposes uniquement d'une date de fin. Si pas de date de fin saisi dans la colonne K, dans ce cas je n'envoi aucun email.

2/ Dans l'email envoyé avoir un titre d'objet ainsi qu'une phrase du type "La tâche xxxx n'est pas finalisé, merci de la traiter au plus vite". Le xxxx doit correspondre au texte saisi en colonne C qui correspond au nom de la tâche.

J'ai réussi a faire quelque chose (ci-dessous) mais cela ne fonctionne pas correctement car d'une part je reçois des emails pour les tâches ne possédant pas de date de fin (cellules vides) et plus d'emails qu'il n'y a de lignes dans mon tableau.

VB: 
Sub envoimail()

Dim messagerie As Object
Dim email As Object
Dim cel As Range
Dim delai As Integer

Set messagerie = CreateObject("Outlook.Application")

delai = 1 'jours

For Each cel In Range("A4:A" & Range("A4").End(xlDown).Row)
    If cel.Offset(, 7).Value - Now < delai Then

        Set email = messagerie.CreateItem(0)
    
        With email
            .to = "monadresseemail@toto.fr"
            .Subject = "mettre ici le titre du mail"
            .body = "Bonjour, la tâche " & cel.Offset(, 2) & " arrive à échéance." & vbCrLf & "Merci de la traiter dès que possible." & vbCrLf & "Cordialement"
            
            .ReadReceiptRequested = True
            .display ' à remplacer par .send si ok
        End With

        Set email = Nothing

    End If
Next cel

Set messagerie = Nothing

End Sub

Informations complémentaires : J'utilise Microsoft Office 365 avec dernière version d'Excel.

Capture d’écran 2022-04-07 125203.png
 

Pièces jointes

  • SUIVI-PROJETS-TEST1.xlsm
    21.9 KB · Affichages: 24
Trier par date Trier par votes
D

danielco

XLDnaute Accro
Bonjour,

Essaie :

VB: 
Sub EnvoiMail()
    Dim olApp As Object, M As Object, C As Range
    Set olApp = CreateObject("Outlook.application")
    With Sheets("Suivi Projets")
      For Each C In .Range("K6", .Cells(.Rows.Count, 11).End(xlUp))
          If IsNumeric(C) Then
            Set M = olApp.CreateItem(olMailItem)
            M.Subject = "Alerte"
            M.Body = "La tâche " & C.Offset(, -8) & _
              " n'est pas finalisée, merci de la traiter au plus vite"
            M.Recipients.Add "test@test.com"
            M.Send
        End If
      Next C
    End With
End Sub

Daniel
 
Vote positif 0 Vote négatif
A

Abdenour

XLDnaute Nouveau
danielco à dit:
Bonjour,

Essaie :

VB: 
Sub EnvoiMail()
    Dim olApp As Object, M As Object, C As Range
    Set olApp = CreateObject("Outlook.application")
    With Sheets("Suivi Projets")
      For Each C In .Range("K6", .Cells(.Rows.Count, 11).End(xlUp))
          If IsNumeric(C) Then
            Set M = olApp.CreateItem(olMailItem)
            M.Subject = "Alerte"
            M.Body = "La tâche " & C.Offset(, -8) & _
              " n'est pas finalisée, merci de la traiter au plus vite"
            M.Recipients.Add "test@test.com"
            M.Send
        End If
      Next C
    End With
End Sub

Daniel
Cliquez pour agrandir...

Tout d'abord merci pour ton aide .

Je viens de tester. Ci-dessous mon résultat.

1/ Dans le fichier que j'ai mis en pj de ce post, seule une tâche sur les trois possède une date de fin (la tâche B1). Mais lors de mon test j'ai reçu 3 emails au lieu de 1 seul.

2/ Dans les 3 emails reçus, seulement dans un seul email j'ai le nom de la tâche qui a été reprise. Or je devrais aussi avoir les noms des tâches pour les 2 autres emails même si je ne suis pas censé les recevoir car ils ne possèdent pas de date de fin.
 
Vote positif 0 Vote négatif
D

danielco

XLDnaute Accro
Désolé.

J'avais préparé une réponse... J'ai dû oublier de l'envoyer. J'ai corrigé ainsi :

VB: 
Sub EnvoiMail()
    Dim olApp As Object, M As Object, C As Range
    Set olApp = CreateObject("Outlook.application")
    With Sheets("Suivi Projets")
      For Each C In .Range("K6", .Cells(.Rows.Count, 11).End(xlUp))
        If C.Row = 10 Then Stop
        If IsDate(C.Value) Then
          If C > 0 Then
            Set M = olApp.CreateItem(olMailItem)
            M.Subject = "Alerte"
            M.Body = "La tâche " & C.Offset(, -8) & _
              " n'est pas finalisée, merci de la traiter au plus vite"
            M.Recipients.Add "test@test.com"
            M.Send
          End If
        End If
      Next C
    End With
End Sub

Teste.

Daniel
 
Vote positif 0 Vote négatif
A

Abdenour

XLDnaute Nouveau
danielco à dit:
Désolé.

J'avais préparé une réponse... J'ai dû oublier de l'envoyer. J'ai corrigé ainsi :

VB: 
Sub EnvoiMail()
    Dim olApp As Object, M As Object, C As Range
    Set olApp = CreateObject("Outlook.application")
    With Sheets("Suivi Projets")
      For Each C In .Range("K6", .Cells(.Rows.Count, 11).End(xlUp))
        If C.Row = 10 Then Stop
        If IsDate(C.Value) Then
          If C > 0 Then
            Set M = olApp.CreateItem(olMailItem)
            M.Subject = "Alerte"
            M.Body = "La tâche " & C.Offset(, -8) & _
              " n'est pas finalisée, merci de la traiter au plus vite"
            M.Recipients.Add "test@test.com"
            M.Send
          End If
        End If
      Next C
    End With
End Sub

Teste.

Daniel
Cliquez pour agrandir...
Merci Daniel,

Je viens de tester et j'ai un arrêt sur le visual basic. Voir capture écran en pièce jointe.
La macro ne fonctionne donc pas.

Pour ne pas faire plusieurs allers/retours d'échanges, je tiens à préciser que dans ma colonne K il peut y avoir des cellules sans date de fin (date d'échéance). Et que ce qui est souhaité est d'avoir un email qui sera envoyé en auto par exemple 5 jours avant une date de fin saisi dans une des cellules de la colonne K.

D'avance, je te remercie pour ton aide.
 

Pièces jointes

  • Capture d’écran 2022-04-11 174519.png
    Capture d’écran 2022-04-11 174519.png
    54 KB · Affichages: 41
Vote positif 0 Vote négatif
A

Abdenour

XLDnaute Nouveau
Bonjour Daniel,

Je viens de tester et cela fonctionne parfaitement. Je te remercie.
Une seule chose manquante à cette macro ou plutôt une condition comme demandé dans mon premier post.

Que l'email ne soit envoyé uniquement que 5 jours avant la date de fin (date d'échéance en colonne K).

Si la "date de fin" saisi dans la colonne K est supérieur à 5 jours : Pas d'envoi d'email.
Si la "date de fin" saisi dans la colonne K est inférieur à 5 jours : Envoyer un email.
 
Vote positif 0 Vote négatif
D

danielco

XLDnaute Accro
Bonjour,

Sauf erreur, dans ton post initial, il n'est pas question de ça :

1/ C'est d'envoyer un email pour toutes les lignes de mon fichier dont les tâches disposes uniquement d'une date de fin. Si pas de date de fin saisi dans la colonne K, dans ce cas je n'envoi aucun email.
Cliquez pour agrandir...
Essaie comme ça :

VB: 
Sub EnvoiMail()
    Dim olApp As Object, M As Object, C As Range
    Set olApp = CreateObject("Outlook.application")
    With Sheets("Suivi Projets")
      For Each C In .Range("K6", .Cells(.Rows.Count, 11).End(xlUp))
        If IsDate(C.Value) Then
          If C > 0 Then
            If C - Date < 5 And C > Date Then
              Set M = olApp.CreateItem(olMailItem)
              M.Subject = "Alerte"
              M.Body = "La tâche " & C.Offset(, -8) & _
                " n'est pas finalisée, merci de la traiter au plus vite"
              M.Recipients.Add "test@test.com"
              M.Send
            End If
          End If
        End If
      Next C
    End With
End Sub

Note que tu risques d'envoyer des mails à J-4, J-3, J-2, J-1 et J

Daniel
 
Vote positif 0 Vote négatif
A

Abdenour

XLDnaute Nouveau
danielco à dit:
Bonjour,

Sauf erreur, dans ton post initial, il n'est pas question de ça :


Essaie comme ça :

VB: 
Sub EnvoiMail()
    Dim olApp As Object, M As Object, C As Range
    Set olApp = CreateObject("Outlook.application")
    With Sheets("Suivi Projets")
      For Each C In .Range("K6", .Cells(.Rows.Count, 11).End(xlUp))
        If IsDate(C.Value) Then
          If C > 0 Then
            If C - Date < 5 And C > Date Then
              Set M = olApp.CreateItem(olMailItem)
              M.Subject = "Alerte"
              M.Body = "La tâche " & C.Offset(, -8) & _
                " n'est pas finalisée, merci de la traiter au plus vite"
              M.Recipients.Add "test@test.com"
              M.Send
            End If
          End If
        End If
      Next C
    End With
End Sub

Note que tu risques d'envoyer des mails à J-4, J-3, J-2, J-1 et J

Daniel
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
A

Abdenour

XLDnaute Nouveau
Désolé Daniel, tu as raison, je n'avais pas émis cette précision. J'en étais pourtant persuadé :oops:

Je viens de tester mais malheureusement aucun email n'est reçu. J'ai pourtant bien modifier l'adresse email par la mienne et mis une date à J-4 avant la date de fin.
 
Vote positif 0 Vote négatif
A

Abdenour

XLDnaute Nouveau
Oui cela fonctionne. Désolé.

Pour terminer 2 questions stp.

1/ Il n'y a pas d'email qui est envoyé quand on est à J. Par contre les emails sont bien envoyés à J-1, J-2, J-3, J-4, J-5. Je souhaiterais aussi inclure dans l'envoi d'email la date du jour (J-0).

2/ Est-il possible que la macro fonctionne même si mon fichier Excel n'est pas ouvert ? Ou bien pour que les alertes puissent d'être envoyées, je dois chaque jour ouvrir le fichier et cliquer sur exécuter la macro ?
 
Vote positif 0 Vote négatif

Discussions similaires

O
  • Question
Microsoft 365 Excel [VBA]. Erreur d’exécution 424 Objet requis sur une concaténation
Réponses
3
Affichages
134
Oneida
Oneida
J
  • Résolu(e)
XL 2013 Macro et script vba : macro s'arrête dès la première condition trouvée
Réponses
11
Affichages
421
Janu44
J
gothc
  • Question
XL 2021 choisir un onglet avant envoyer par email
Réponses
2
Affichages
335
gothc
gothc
M
  • Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
110
Maxou69
M
K
  • Question
XL 2016 From Excel to Outlook - Déclenchement sur la date et arrêt de la macro
Réponses
3
Affichages
740
AtTheOne
AtTheOne
M
  • Résolu(e)
XL 2016 mail en automatique dans excel destinataire en fonction de la valeur d une cellule
Réponses
11
Affichages
694
mathieu20
M
Sellig
  • Question
envoyer un mail depuis excel
2
Réponses
27
Affichages
1 K
Zon
Z
L
  • Question
Microsoft 365 vba Outlook traiter un fichier excel lors de sa reception
Réponses
0
Affichages
250
lesoldat9
L
H
  • Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
282
HANN
H
F
  • Question
XL 2016 Ajouter planning Outlook un rdv(sans activer de reference "Microsoft Outlook object library xx.x"
Réponses
2
Affichages
260
fredl
F

Membres actuellement en ligne

3 membres et 59 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 104
Messages
2 085 349
Membres
102 869
dernier inscrit
radyreth