Envoyer feuille par Mail

[guitarde]

Bonjour,

Je cherche à automatiser l'envoi d'une feuille par mail, je désire que la feuille soit intégrée dans le courriel et non pas en pièce jointe.

Tel que via menu : Fichier / Envoyer vers / Destinataire

Avec vba je désire y spécifier le destinataire, le cc et le sujet + possiblement envoyer le message.


J'ai déjà le code requis pour générer un courriel avec un fichier joint.


Merci pour votre aide.
Eric

 

[guitarde]

Quelqu'un sait s'il existe quelque chose de similaire pour Excel 2000 ?


----------------------------------------------
si tu utilises Excel2002 , tu peux tester

Sub envoiPlageCellules_XP()
'http://support.microsoft.com/default.aspx?scid=kb;en-us;816644
ActiveSheet.Range('B5:E10').Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = 'bonjour , ci joint les données ...'
.Item.To = 'leForum@xld.fr'
.Item.Subject = 'le sujet'
.Item.Send
End With
End Sub


bonne soirée
MichelXld

 

[Staple1600]

Il y a surement de quoi s'inspirer
mais comme c'est le week-end
je vous laisse

Sub Mail_sheets()
'http://www.exceltip.com/st/Mail_sheet(s)_to_one_or_more_people_using_VBA_in_Microsoft_Excel/542.html
Dim MyArr As Variant
Dim last As Long
Dim shname As Long
Dim a As Integer
Dim Arr() As String
Dim N As Integer
Dim strdate As String
For a = 1 To 253 Step 3
If ThisWorkbook.Sheets('mail').Cells(1, a).Value = '' Then Exit Sub
Application.ScreenUpdating = False
last = ThisWorkbook.Sheets('mail').Cells(Rows.Count, a).End(xlUp).Row
N = 0
For shname = 1 To last
N = N + 1
ReDim Preserve Arr(1 To N)
Arr(N) = ThisWorkbook.Sheets('mail').Cells(shname, a).Value
Next shname
ThisWorkbook.Worksheets(Arr).Copy
strdate = Format(Date, 'dd-mm-yy') & ' ' & Format(Time, 'h-mm-ss')
ActiveWorkbook.SaveAs 'Part of ' & ThisWorkbook.Name _
& ' ' & strdate & '.xls'
With ThisWorkbook.Sheets('mail')
MyArr = .Range(.Cells(1, a + 1), .Cells(Rows.Count, a + 1).End(xlUp))
End With
ActiveWorkbook.SendMail MyArr, ThisWorkbook.Sheets('mail').Cells(1, a + 2).Value
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
Application.ScreenUpdating = True
Next a
End Sub

 

[MichelXld]

bonjour Guitarde , bonjour Staple1600

pour avoir l'équivalence de la procedure dans ton message de 16:43 , et si tu n'as pas de cellules vides dans le tableau à envoyer ,tu peux tester ce lien

Lien supprimé



bon week end
MichelXld

 

[guitarde]

Merci Michel, je vais regarder l'option html.


Avec send-key, crois-tu que je pourrais réussir à coller ma plage dans un courriel généré automatiquement par Excel ?

La difficulté est toujours d'activer la fenêtre du nouveau courriel.


Bon week-end
Eric

 

[guitarde]

Ma meilleure option semble être d'utiliser le code suivant:
'http://www.j-walk.com/ss/excel/tips/tip86.htm

+ SendKeys String:='^v', Wait:=True ' Coller le clipboard



Comme ca j'ai vraiment la mise en forme de ma feuille dans le courriel.


Merci
Eric