filtre mois anterieur

**Thierry60440** · 04/09/2020, 10h08

Bonjour,
je reviens vers vous car je n'ai pas trouver ce que je voulais sur le net.
J'ai un tableau de sortie quotidienne de matériel (avec une colonne "date")
Tous les 1er jour ouvrés du mois il faut que j'envoie un mail 'que j'aimerais aussi automatiser à l'ouverture du classeur)avec ce qui est sortie sur le mois précédent, c'est là que ça coince, car je n'arrive pas à faire un filtre, donc le mail envoyé contient tout depuis le 1er jour.
J’espère avoir été assez clair.
Merci de votre collaboration.

**Menhir** · 04/09/2020, 10h59

De quelle façon envoies-tu les données dans ton mail ?
Est-ce une copie des données dans le corps de mail ? Crées-tu un autre fichier que tu joins au mail ?
Il faudrait voir ton code (copie dans le message avec des balises CODE) d'envoi de mail pour comprendre comment tu fais.

**Thierry60440** · 04/09/2020, 11h16

Envoyé par Menhir

De quelle façon envoies-tu les données dans ton mail ?
Est-ce une copie des données dans le corps de mail ? Crées-tu un autre fichier que tu joins au mail ?
Il faudrait voir ton code (copie dans le message avec des balises CODE) d'envoi de mail pour comprendre comment tu fais.

j’envoie un fichier pdf
voici mon code

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
Sub envoi_outillage()
Dim nomFichier As String
    Dim cheminFichier As String
    Dim CorpsMessage As String
 
 
 
 
   nomFichier = ("sortie outillage") & ".pdf"
    cheminFichier = Environ("Temp") & "\" & nomFichier
 
    Sheets("Sortie outillage").Select  ' Partie du code permettant l'enregistrement du fichier
    derlgn = Range("A" & Rows.Count).End(xlUp).Row
Set Source = Range("A1:F" & derlgn).SpecialCells(xlCellTypeVisible)
 
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=cheminFichier, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
 
 
Dim ObjOutlook As Object
Set ObjOutlook = CreateObject("outlook.application")
 
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
        With oBjMail
 
            .To = "xxxxx@xxxxx.xx"
            .Subject = "Rapport outillage magasin"
            .Body = "Bonjour," & vbCrLf & vbCrLf _
                    & "Veuillez trouver ci-joint le rapport mensuel des sorties outillages du magasin" & " " & vbCrLf & vbCrLf _
                    & "Cordialement" & vbCrLf & vbCrLf _
 
 
 
 
            .Attachments.Add cheminFichier '& Fichier '& ".pdf"  'pièces jointes
            .Send
 
     ' Partie fermeture
 
 
 
    End With
End Sub

**Menhir** · 04/09/2020, 12h32

Il faudrait qu'à la ligne 15, la macro génère un filtre avec les critères que tu indiques dans ton premier message.
Ca masquerait les lignes indésirables et ne laisserait visible que les lignes que tu souhaites placer dans ton PDF.

Pour mettre en place un filtre, lire ça : https://docs.microsoft.com/fr-fr/off...cel.autofilter

**Thierry60440** · 04/09/2020, 13h06

Envoyé par Menhir

Il faudrait qu'à la ligne 15, la macro génère un filtre avec les critères que tu indiques dans ton premier message.
Ca masquerait les lignes indésirables et ne laisserait visible que les lignes que tu souhaites placer dans ton PDF.

Pour mettre en place un filtre, lire ça : https://docs.microsoft.com/fr-fr/off...cel.autofilter

Merci pour ce lien, mais n'étant pas très à l'aise avec VBA, je ne vois pas comment je peux l'adapter à mon code.
Désolé.

**Menhir** · 04/09/2020, 15h38

Etant donné le peu d'informations que tu fournis, il n'est pas possible de t'écrire une ligne de code.

A titre personnel, je n'apprécie pas trop ceux qui écrivent qu'il ne savent pas faire 30 min après qu'on leur ait donné l'information sans prendre même la peine d'essayer.

**Thierry60440** · 04/09/2020, 15h47

Envoyé par Menhir

Etant donné le peu d'informations que tu fournis, il n'est pas possible de t'écrire une ligne de code.

A titre personnel, je n'apprécie pas trop ceux qui écrivent qu'il ne savent pas faire 30 min après qu'on leur ait donné l'information sans prendre même la peine d'essayer.

Je comprend, je ne demande pas du tout cuit, aussi j'ai pris la peine de lire et de regarder le code, mais je ne vois pas où je peux mettre les paramètres du mois précédent...

**Thierry60440** · 04/09/2020, 16h40

je viens de faire quelques essais en modifiant mon code de façon à filtrer, envoyer le mail et supprimer le filtre. Ça semble fonctionner mais ce que je n'arrive pas c'est de faire en sorte que ce soit sur le mois antérieur.

voici le nouveau code

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
Sub envoi_outillage()
Dim nomFichier As String
    Dim cheminFichier As String
    Dim CorpsMessage As String
 
 
 
 
   nomFichier = ("sortie outillage") & ".pdf"
    cheminFichier = Environ("Temp") & "\" & nomFichier
 
    Sheets("Sortie outillage").Select  ' Partie du code permettant l'enregistrement du fichier
    derlgn = Range("A" & Rows.Count).End(xlUp).Row
Set Source = Range("A1:F" & derlgn).SpecialCells(xlCellTypeVisible)
 
ActiveSheet.ListObjects("Tableau22").Range.AutoFilter Field:=2, Operator:= _
        xlFilterValues, Criteria2:=Array(1, "7/31/2020")
 
 
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=cheminFichier, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
 
 
Dim ObjOutlook As Object
Set ObjOutlook = CreateObject("outlook.application")
 
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
        With oBjMail
 
            .To = "xxxxx@xxxx.xx"
            .Subject = "Rapport outillage magasin"
            .Body = "Bonjour," & vbCrLf & vbCrLf _
                    & "Veuillez trouver ci-joint le rapport mensuel des sorties outillages du magasin" & " " & vbCrLf & vbCrLf _
                    & "Cordialement" & vbCrLf & vbCrLf _
 
 
 
 
            .Attachments.Add cheminFichier '& Fichier '& ".pdf"  'pièces jointes
            .Send
 
     ActiveSheet.ListObjects("Tableau22").Range.AutoFilter Field:=2
 
 
 
    End With
End Sub

**Menhir** · 04/09/2020, 17h02

10 min avec l'enregistreur automatique de macro :

Code :

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

ActiveSheet.ListObjects("Tableau22").Range.AutoFilter Field:=2, Criteria1:=xlFilterLastMonth, Operator:=xlFilterDynamic

**Thierry60440** · 04/09/2020, 17h48

Envoyé par Menhir

10 min avec l'enregistreur automatique de macro :

Code :

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

ActiveSheet.ListObjects("Tableau22").Range.AutoFilter Field:=2, Criteria1:=xlFilterLastMonth, Operator:=xlFilterDynamic

merci beaucoup, c'est bien ce que je voulais.

filtre mois anterieur [XL-2016]

Macros et VBA Excel

Discussions similaires

Partager

Partager