Discussion :

[Maloma]

Bonjour,

J'ai un TCD avec un segment sur le nom d'agent et je souhaiterais automatiser à partir d'un bouton l'envoie d'un mail contenant le résultat à l'agent concerné.
Je ne suis pas une experte dans le domaine donc en gros avec mon segment lorsque que je sélectionne mon agent "DUPONT" j'ai mon tableau récapitulatif le concernant, et celui-ci doit lui être envoyé par mail. Pour ne pas avoir à répéter la tâche pour chaque agents je souhaiterais automatiser tout cela.

Merci de votre aide

[78chris]

Bonjour

Si le nombre de client n'est pas pléthorique, il serait plus simple de placer le nom du client en zone de filtre, d'utiliser la fonctionnalité TCD qui permet de générer autant d'onglet que de clients avec leur TCD puis de faire une boucle sur les onglets pour transmettre par mail.

Sinon il faut une boucle par élément du segment dans la boucle d'envoi par mail.

Cependant il faut intégrer quelque part le lien entre le nom et l'adresse mail et il serait plus prudent d'envoyer non pas le fichier ou l'onglet Excel avec un TCD mais un pdf...

[Maloma]

Bonjour,

Merci pour la réponse.

Le nombre d'agent est assez important donc je pense qu'il vaut mieux privilégier de faire une boucle par élément du segment, et c'est sur ce point que je ne sais pas procéder.
Pour le lien entre le nom est l'adresse mail ce n'est pas un problème car on a déjà un fichier Excel qui le gère.

[78chris]

Bonjour

Quelques exemples dans le forum de boucles sur des segments
http://www.developpez.net/forums/d15...-entre-heures/
http://www.developpez.net/forums/d13...t-meme-source/
http://www.developpez.net/forums/d14...bleau-valeurs/

[Maloma]

Bonjour,

J'ai commencé à regardé les différentes conversations liées aux TCD et Segment mais j'avoue que tout cela étant nouveau pour moi je suis un peu perdue.

J'ai une feuille Excel avec toutes mes données à traiter cette feuille me sert de sources de données pour mes TCD.

Dans une première feuille Excel je veux avoir la synthèse pour mes agents niveau 1.
J'ai un premier TCD qui fait la synthèse des anomalies pour l'agent de niveau 1
Un 2ème TCD qui me donne les enregistrements pour l'anomalie 1
un 3ème TCD qui mes donne les enregistrements pour l'anomalie2
et enfin un 4ème TCD qui me donnes les enregistrements pour l'anomalie 3.

Sur cette feuille j'ai un segment permettant de sélectionner le nom de mon agent de niveau 1 qui me met à jour mes 4 TCD.

Ce que j'aimerais pouvoir réaliser de façon automatique à l'aide d'une macro c'est un peu ce que propose Excel avec les pages de Filtres de rapport de générer pour chaque agent de niveau 1 une feuille qui regroupe ces 4 TCD et qu'elle soit envoyé automatiquement par mail à l'agent concerné.

Je ne trouve pas de cas identique au mien et je ne suis pas experte dans le domaine, ce que je souhaite faire n'est peut être pas faisable.

En tout cas merci pour les informations.

[Maloma]

Bonjour,

Je reviens sur mon problème de macros sur mes segments. J'ai un peu avancé mais j'ai un soucis lors de la génération de ma feuille Excel à joindre à mon mail.
Ma macro me génère bien une feuille par agent avec les données qui lui sont affectées cependant il garde à chaque fois les données des agents précédents.

J'avais rajouter la ligne .ClearmanualFilter mais la macro plante à ce niveau.

Merci pour vos réponses

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
Sub Test2()
 
Dim nom
 
With ActiveWorkbook.SlicerCaches("Segment_Conseiller_LAIT1")
 
    For Each Iitem In ActiveWorkbook.SlicerCaches("Segment_Conseiller_LAIT1").SlicerItems
 
    nom = Iitem.Name
 
 
    .SlicerItems(nom).Selected = True
 
 
 
' VERIFIER SI DOSSIER TEMP EXISTANT SINON LE CREER
    If Dir("C:\Temp", vbDirectory) = "" Then MkDir ("C:\Temp")
    If Dir("C:\Temp\Recap_" & nom & ".xlsx") <> "" Then Kill ("C:\Temp\Recap_" & nom & ".xlsx")
 
    'COPIE ET SAUVEGARDE DE LA FEUILLE A ENVOYER
    Sheets(Array("TDC Bilan Conseillers")).Copy
    Sheets("TDC Bilan Conseillers").Select
    ActiveWorkbook.SaveAs Filename:="C:\Temp\Recap_" & nom & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close
 
    'ENVOIE DU MAIL AVEC LA PIECE JOINTE
 
    Dim ol As New Outlook.Application
    Dim olmail As MailItem
    Dim currfile As String
    Set ol = New Outlook.Application
    Set olmail = ol.CreateItem(olMailItem)
    With olmail
        .To = "@"
        .Subject = "Prison Constat Alim"
        .Attachments.Add "C:\Temp\Recap_" & nom & ".xlsx"
        .Display
        .Send
    End With
 
    'SUPPRESSION DU FICHIER CREE POUR LE MAIL
    Kill ("C:\Temp\Recap_" & nom & ".xlsx")
 
     '.ClearManualFilter 
 
    Next
 
 End With
 
    'MSGBOX POUR INDIQUER QUE LE MAIL EST BIEN ENVOYER
    Sheets("TDC Bilan Conseillers").Select
 
    MsgBox ("Opération terminée")
    ThisWorkbook.Save
End Sub