Mail alerte en fonction d'une date

Version imprimable

25/11/2013, 19h12
luis18

Mail alerte en fonction d'une date

Bonsoir,

Je suis à la recherche d'une macro pouvant répondre à mon besoin. J'ai fais le tour du forum, mes je n'ai pas encore trouvé ma solution.

J'ai une liste de tache dans une colonne (Pierre, Thomas, Jacques...)
A chaque tache j'ai une date limite.
Je cherche à envoyer un mail (à une liste donnée dans une autre page) indiquant que tel ou tel tâche arrive à la date limite (genre 2 ou 3 jours avant)

J'arrive à créer un mail via excel, mais les paramètre (adresse objet et corps) ne sont pas paramétrable comme je le souhaite.

Je début en VBA, mais je veux apprendre...

Merci d'avance pour votre aide.
26/11/2013, 12h49
Daniel.C

Bonjour,

Quel est ton client de messagerie ? OutLook ? Notes ?
26/11/2013, 12h52
luis18

Très bonne question, j'y avais pas pensé.

Sur Outlook 2010, avec tout le pack office également en 2010

En supposant les tâches en colonne A, les dates en colonne B, les adresses mail en colonne C, les sujets en colonne D et les corps de message en colonne E (à toi t'adapter) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Alertes()
    Dim C As Range, OL As Object, M As Object, Plage As Range
    Set olApp = CreateObject("Outlook.application")
    With Sheets("Feuil1")
        Set Plage = .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
    End With
    For Each C In Plage
        If C.Offset(, 1) - Date = 3 Then
            Set M = olApp.CreateItem(olMailItem)
            With M
                .Subject = C.Offset(, 3)
                .Body = C.Offset(, 4)
                .Recipients.Add C.Offset(, 2)
                '.display
                .Send
            End With
        End If
    Next C
End Sub

Le mail est envoyé à J-3.

27/11/2013, 13h46
luis18
Super c'est exactement ce que je cherché, j'ai pu un petit peu l'adapter.
Cependant je n'arrive pas ajouter d'autre adresse, et à faire en sorte d'utilisé une autre feuille du tableur pour tel ou tel paramètre.

Dans cette parti, si j'ai bien compris,
Code:

1 2 3 .Subject = C.Offset(, 3) .Body = C.Offset(, 4) .Recipients.Add C.Offset(, 2)
le numéro correspond au décalage de la colonne de base. mais pour lui dire que c'est sur une autre feuille, je bloque...

Voici un exemple avec deux destinataires dont un et le sujet sont sur une autre feuille. Sinon, ça dépend de la disposition de test données. Décris-les ou mets un classeur en pièce jointe.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Alertes()
    Dim C As Range, OL As Object, M As Object, Plage As Range
    Set olApp = CreateObject("Outlook.application")
    With Sheets("Feuil1")
        Set Plage = .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
    End With
    For Each C In Plage
        If C.Offset(, 1) - Date = 3 Then
            Set M = olApp.CreateItem(olMailItem)
            With M
                .Subject = [Feuil2!A3]
                .Body = C.Offset(, 4)
                .Recipients.Add C.Offset(, 2)
                .Recipients.Add [Feuil3!A10]
                '.display
                .Send
            End With
        End If
    Next C
End Sub

29/11/2013, 15h12
luis18

ha oui ça devient un petit peu compliqué là. J'ai essayé mais j'y arrive pas trop. Je te met en forme mon classeur pour pouvoir le mettre en libre sur le net lundi.

En faite une solution apporte un nouveau besoin :D

Jusque là, le mail envoyé (objet + corps) était toujours le même si j'ai bien compris?
Est-ce possible de modifier le corps et l'objet en fonction de la tâche en question?
29/11/2013, 17h46
Daniel.C

Citation:

Est-ce possible de modifier le corps et l'objet en fonction de la tâche en question?

Oui.
04/12/2013, 14h18
luis18

1 pièce(s) jointe(s)

Alors voila, j'ai mi du temps car j'étais pris par le taf dsl.

Dans le fichier joint, tu as sur la première feuille une liste de doc, avec une date limite d'envoi déterminé par la fin d'une intervention.

Mon but c'est d'avoir un mail alertant l'approche de la dead line d'envoi, puis un mail alertant le dépassement (avec l'objet et le corps correspondant au document).

Je suppose qu'il y a plusieurs façon de déclencher une macro. le faire automatiquement 3 jours avant me semble bien. Mais avoir la possibilité en plus de le faire également, en fonction du besoin avec un bouton par exemple, pour les doc dépassé me semble bien utile.

Une macro peut elle être appelé automatiquement en fonction d'une date et avec un bouton?
04/12/2013, 15h13
Oliv-

Bjr,
Oui tu peux déclencher une macro selon une date de plusieurs manières.

Soit quand tu ouvres le Fichier excel

Code:

Sub Workbook_Open() dans ThisWorkbook

Soit à un moment donné

Code:

Application.OnTime Now + TimeValue("00:00:01"), "Module_comparaison.Comparaison_go"

mais il faut que ton classeur soit ouvert.

S'il n'est pas ouvert mais qu'il faut vérifier à un instant donné il faut utiliser les "taches planifiées" du panneau de configuration de Windows +
Workbook_Open (ou auto_open)

1 pièce(s) jointe(s)

Mets cette macro dans un module standard :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Alertes()
    Dim C As Range, OL As Object, M As Object, Plage As Range
    Set olApp = CreateObject("Outlook.application")
    With Sheets("Tranche Ferme - MCO Contractuel")
        Set Plage = .Range(.[A7], .Cells(.Rows.Count, 1).End(xlUp))
    End With
    For Each C In Plage
        If C.Offset(, 4) - Date = 3 Or C.Offset(, 4) > Date Then
            Set M = olApp.CreateItem(olMailItem)
            With M
                .Subject = C.Offset(, 7).Value
                .Body = C.Offset(, 8).Value
                If C.Offset(, 4) - Date = 3 Then
                    .Recipients.Add [reporting!A2].Value
                Else
                    .Recipients.Add [reporting!A3].Value
                End If
                '.display
                .Send
            End With
            Set M = Nothing
        End If
    Next C
End Sub

Dans ThisWorkbook, mets :

Code:

1
2
3
Private Sub Workbook_Open()
    Alertes
End Sub

et attache ce code à un bouton (ActiveX) :

Code:

1
2
3
Private Sub CommandButton1_Click()
    Alertes
End Sub

Cf. classeur joint.