Récupérer les mails dans une colonne et les envoyer automatiquement en fonction d'un filtre élaboré

**graphikris** · 10/03/2016, 18h31

Bonjour,

J'essaie de faire un truc assez complexe mais je ne sais pas par quel bout commencer.

Dans un tableau, j'ai des infos qui me permettre de savoir si telle ou telle personne a du retard dans une ou plusieurs taches dont elle a fixée une échéance.

Dans la colonne "Retards", j'ai soit "Aucun" soit un nombre de jour dépassé par rapport a l'échéance fixée qui se trouve dans une autre colonne.
J'ai également dans la colonne A, le nom du bureau dans lequel travaille les personnes (trié par ordre alphanumérique).
Dans la dernière colonne, j'ai les adresses mails des personnes.

Si dans un même bureau, j'ai une personne qui doit exécuter plusieurs tache, j'ai donc plusieurs lignes avec une action différente.

Je voudrais pouvoir extraire la liste par personne différente si elles ont une ou des actions en retard afin de leur envoyer un mail automatiquement.

ex : Si Pierre Jourdan qui travaille en piece M13 a trois actions a réaliser et que 2 d'entres elles ont du retard, je dois lui transmettre un mail avec les lignes concernés par ce retard. Et si toujours dans mon tableau, Joël Brunois travaillant en piéce P45 a 5 actions sur 5 en retards, lui transmettre également un mail avec les actions en retard le concernant.

Comment m'y prendre ?

Cordialement

**graphikris** · 12/03/2016, 15h29

J'avance. Je viens de créer une macro qui me permet d'extraire la liste des actions en retard par le biais des filtres elaborés. J'ai donc un nouveau classeur dans lequel j'ai sur l'onglet mail, la liste des adresses mails des personnes concernées et sur l'autre onglet mon extraction.

J'ai ensuite une macro qui s'enchaine en extrayant les listes des destinataires qui me supprime les adresses en doublon pour éviter d'envoyer deux fois le mail a la meme personne, si elle est concernée par plusieurs retard. Puis ça envoie le mail par Outlook avec en piece jointe le fichier Excel de l'extraction.

Par contre je bloque sur ceci : Comment faire pour envoyer un mail séparé à chaque destinataire et qu'il n'ai en PJ ou meme dans le corps du msg juste le tableau le concernant ?

**graphikris** · 12/03/2016, 18h17

Voici mon code du filtre élaboré

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub Macro1()
'
' Macro1 Macro
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A3:G3").Select
    Selection.Copy
    Range("A1").Select
    ActiveSheet.Paste
    Range("F2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ">0"
    Range("A3").Select
    Range("A3:G15").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("A1:G2"), Unique:=False
    Range("A3:G13").Select
    Selection.Copy
 
    Dim Wbk As Workbook
    Set Wbk = Workbooks.Add
 
    ActiveSheet.Paste
    Columns("G:G").EntireColumn.AutoFit
    Columns("G:G").Select
    Application.CutCopyMode = False
    Selection.Cut
    Sheets("Feuil2").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Range("A7").Select
    Sheets("Feuil2").Select
    Sheets("Feuil2").Name = "mail"
    Sheets("Feuil1").Select
    Sheets("Feuil1").Name = "matrice"
    Range("B38").Select
    Sheets("mail").Select
    Range("A1").Select
 
End Sub

et mon xlsm en PJ

**halaster08** · 14/03/2016, 14h13

Bonjour,

J'avais fait qqch de similaire et tu peut retrouver le code dans ce sujet http://www.developpez.net/forums/d14...71-80020005-a/

Je devais découper un tableau plusieurs suivant le nom de l'agence et l'envoyer par mail au responsable de l'agence.

Si j'ai bien compris ton problème en enlevant les lignes où il n'y a pas de retard et en triant ton tableau par nom des gens tu devrait pouvoir adapter mon code sans trop de problème.

edit: attention le code est pas parfait c'est un des premier que j'ai fait, mais l'idée est là et il est fonctionel