Envoyer resultat d'un tri par macro par email

Bonjour,

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

Code:

---

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

Salut, voir http://excel.developpez.com/faq/?pag...ailCDOexchange qui fonctionne correctement avec OExpress et Outlook sur un Pc "Perso", dans le cas d'un Pc "Entreprise" je sais qu'il y a qqs lignes à rajouter, je n'ai plus de serveur à dispo pour te renseigner plus.

Bonjour kiki29,

Je viens d'essayer ces dernieres solutions et cela ne fonctionne pas. Il s'agit d'un PC entreprise et en réseau.

avec le code suivant, je parviens à envoyer le classeur actif.

Comment envoyer seulement la feuille active ?

Code:

---

1 2 3 4

ThisWorkbook.SendMail Recipients:="blabla@blabla.fr", _ Subject:="Test envoi classeur", _ ReturnReceipt:=True Msg = "Bonjour ....."

---

merci de votre aide