Couriel avec object

Bonjour a tous!

j'aimerai savoir si c'est possible dans excel d'envoyer un courriel avec un bouton (la c'est facile) mais que soit dans l'Object du message ou directement dans le message sa inscrive un ou des cellules du document a envoyer.

pour l'instant la formule est

On Error Resume Next

ThisWorkbook.SendMail Array("couriel@mail.com", "couriel@mail.com"), "voici un bon de commande " & ThisWorkbook.Name

End Sub

j'aurai aimé que la cellule E4 et F4 s'inscrive a quelque par dans le courriel

merci de vôtre aide

rebonjour,

pour l'instant j'ai trouvé ce code, tout fonctionne a perfection mais le courriel qui envoie affiche juste -1 mon erreur est dans activesheet.range???

Sub envoyerParMail()
Dim oOutlook As Object
Set oOutlook = CreateObject("Outlook.Application")

Dim oMail As Object
Set oMail = oOutlook.createItem(0)

With oMail
.to = "email@email.com"
.Subject = "object du message" & ThisWorkbook.Name
.body = ActiveSheet.Range("A2:G37").Select
.send
End With
End Sub

jai trouvé lui qui fonctionne. j'aurai aime que sa ressemble plus au fichier excel mais bon c'est toujours mieux que rien..

Sub EnvoiMail()

Dim Outlook As Object
Dim Message As Object
Dim Destinataire As String
Dim Tbl()
Dim I As Long
Dim J As Long
Dim Valeurs As String
Dim Corps As String

Set Outlook = CreateObject("Outlook.Application")
Set Message = Outlook.CreateItem(0)

'zone à joindre
Tbl = Range("A1:F36")

For I = 1 To UBound(Tbl, 1)

For J = 1 To UBound(Tbl, 2)

'les valeurs sont séparées par des "<>", à adapter selon envie
Valeurs = Valeurs & Tbl(I, J) & " "

Next J

'supprime les "<>" de fin de ligne
Valeurs = Left(Valeurs, Len(Valeurs) - 2)

'passe à la ligne suivante
Valeurs = Valeurs & vbCrLf

Next I

'destinataire
Destinataire = "email@email.com"

'construction du message avec les valeurs
Corps = "Bonjour," & vbCrLf & vbCrLf
Corps = Corps & "Veuillez trouver ci-dessous les valeurs comme convenu :" & vbCrLf & vbCrLf
Corps = Corps & Valeurs & vbCrLf & vbCrLf
Corps = Corps & "Cordialement." & vbCrLf & vbCrLf
Corps = Corps & "balibou."

With Message

.To = Destinataire
.Subject = "Envoi de valeurs"
.Body = Corps
.Send

End With

End Sub

Bonjour Slabbe

je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum et notamment :

• Pour plus de lisibilité, utilisez la fonctionnalité </> pour insérer vos codes VBA (et si possible aussi pour vos formules Excel).

La prochaine fois, merci de mettre votre code entre balises, avec le bouton </>

Merci de votre compréhension

A+