Copier dans Excel et Coller dans Outlook en VBA

Fermé
Kill3Hoshigaki Messages postés 11 Date d'inscription vendredi 29 janvier 2016 Statut Membre Dernière intervention 11 mars 2016 - 11 mars 2016 à 08:47
f894009 Messages postés 16711 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 septembre 2022 - 11 mars 2016 à 11:43
Bonjour à tous,
J’aurai besoin de vos compétences en VBA via Excel. Etant amateur et moins expérimenté, j'éprouve des difficultés à copier une plage de cellule dans le corps du mail. La macro fonctionne, le mail est en envoyé mais aucune une plage de cellule n'est copiée. Voici le code

Sub UseOutlook()
Dim MonOutlook As Object
Dim MonMessage As Object
'Une instance d'outlook
Set MonOutlook = CreateObject("Outlook.Application")
'Un element Outlook qui sera un message e-mail
Set MonMessage = MonOutlook.CreateItem(0)
'Definir les destinataires et options du mail
MonMessage.To = Sheets("EVU").Range("A1").Value
MonMessage.Cc = "Hoshigaki@ccm.com"
MonMessage.Subject = "Teste d'envoi de mail via outlook"
'Le corps du message est divise en 2 lignes
Corps = "Voici les resultats, enjoy!"
' Chr (13) & Chr (10) = Touche ENTRER
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & Sheets("EVU").Range("C1:D3").Value
MonMessage.Body = Corps
MonMessage.send
Set MonOutlook = Nothing 'On ferme!
End Sub


Je vous remercie pour toutes les réponses et de votre aide.

1 réponse

f894009 Messages postés 16711 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 septembre 2022 1 655
11 mars 2016 à 11:43
0