JE dispose d'un code parfait pour envoyer une PJ via outlook et par Macro, je souhaite non pas envoyer une PJ mais une copie d'une zone selectionnée dans une feuille et la je coince.
Voila le code initial
Sub envoi_Feuille()
**répertoireAppli = ActiveWorkbook.Path
**Sheets("résultats").Copy
**Application.DisplayAlerts = False
**ActiveWorkbook.SaveAs répertoireAppli & "\Resultats.xls"
**ActiveWindow.Close
**'--- Envoi par mail
**Dim olapp As Outlook.Application
**Sheets("destinataires").Select
**Range("A11").Select
**Do While Not IsEmpty(ActiveCell)
*****Dim msg As MailItem
*****Set olapp = New Outlook.Application
*****Set msg = olapp.CreateItem(olMailItem)
*****msg.To = ActiveCell.Value
*****msg.Subject = Range("A2").Value
*****msg.Body = Range("A5").Value & Chr(13) & Chr(13) & Range("A8").Value & Chr(13) & Chr(13)
*****msg.Attachments.Add Source:=répertoireAppli & "\Resultats.xls"
*****msg.Send
*****ActiveCell.Offset(1, 0).Select
**Loop
End Sub
C'est juste en Lecture, en fait j'ai une feuille avec des tableaux et des graphiques et je veux l'envoyer direct dans le corps du mail sans passer par une PJ. Le destinataire voit ainsi en Direct ses resultats du jour. En manuel je selectionne la feuille enitiere puis Copier je passe dans outlook coller et c'est fini ....