Discussion :

[luis18]

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.

[Daniel.C]

Bonjour,

Quel est ton client de messagerie ? OutLook ? Notes ?

[luis18]

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

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

[Daniel.C]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Daniel.C]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

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?

[Daniel.C]

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

Oui.

[luis18]

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?

[Oliv-]

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

Soit quand tu ouvres le Fichier excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sub Workbook_Open() dans ThisWorkbook

Soit à un moment donné

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  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)

[Daniel.C]

Mets cette macro dans un module standard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
    Alertes
End Sub

et attache ce code à un bouton (ActiveX) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
    Alertes
End Sub

Cf. classeur joint.