Bonjour,

Est il possible d'envoyer par email le resultat d'un tri mar macro.
Voici le code du filtre effectué :

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
Sub filtrecpst()
 
Application.ScreenUpdating = False
For r = ActiveSheet.Range("A10:AF190").Rows.Count To 10 Step -1
If Range("AE" & CStr(r)) <> "V" Then Rows(r).Hidden = True
Next r
ActiveSheet.PageSetup.PrintArea = "A1:Q190"
ActiveSheet.PageSetup.PrintTitleRows = "$1:$9"
ActiveSheet.PageSetup.BlackAndWhite = True 'parametrage N&B
ActiveSheet.PrintPreview
ActiveSheet.PageSetup.BlackAndWhite = False 'réinitialisation
With ActiveSheet
If .FilterMode = True Then .ShowAllData
End With
Rows().Hidden = False
Range("J1").Select
    Selection.ClearContents  
End Sub
Pour l'instant le resultat est affiché dans un aperçu, j'aimerai l'envoyer par email.

Cela vous parait il possible ?

merci de votre aide !


eric