Discussion :

[eric8787]

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

[kiki29]

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.

[eric8787]

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 :

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

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

merci de votre aide