Discussion :

[Maloma]

Bonjour,

J'utilise actuellement une macro qui permet d'envoyer automatiquement par mail un TCD chaque mois.

Les données du TCD sont filtrées par 2 segments, un segment qui filtre sur le mois et un autre qui filtre sur le nom de l'agent à qui correspond les données.

L'envoie du mail se fait par une boucle sur un segment qui contient les noms des personnes. Cependant d'un mois à l'autre un agent peut ne pas avoir de données à envoyer, cependant lors de l'exécution de la macro, le nom de l'agent avec des éléments sans données, bien que masqués au niveau du segment, est utilisé pour l'envoie du mail, et donc la personne reçoit un mail sans données.

Y-a t'il un critère ou une condition à rajouter dans mon code afin que les éléments sans données du Segment soit écartés lors de la boucle permettant l'envoie des mails.

Merci pour votre aide

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
 
Dim nom
Dim i As Integer
Dim j As Integer
 
With ActiveWorkbook.SlicerCaches("Segment_Agents_de_saisie")
        .ClearManualFilter
        .ClearManualFilter
        For i = 2 To .SlicerItems.Count
                .SlicerItems(i).Selected = False
        Next i
        For i = 1 To .SlicerItems.Count - 1
                .SlicerItems(i).Selected = True
 
    nom = .SlicerItems(i).Name
 
 
'CODE POUR GENERATION DE LA PICE JOINTE ET ENVOIE DU MAIL
 
        .SlicerItems(i + 1).Selected = True
        .SlicerItems(i).Selected = False
        Next i
 
        .ClearManualFilter
    End With

[halaster08]

Bonjour,

Regarde la priopriété HasData de ton sliceritem
https://msdn.microsoft.com/fr-fr/vba...property-excel

[Maloma]

Bonjour Halaster08,

Merci pour ta réponse c'est effectivement la propriété Hasdata qui permet de gérer les éléments sans données de mon Segment.

J'ai donc rajouter la ligne suivante en début de code et l'envoie de mail sans données ne se fait plus.

Code :

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

 If .SlicerItems(i).HasData = True Then

Merci