Copier dans Excel et Coller dans Outlook en VBA
Kill3Hoshigaki
Messages postés
11
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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
Je vous remercie pour toutes les réponses et de votre aide.
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.
A voir également:
- Copier dans Excel et Coller dans Outlook en VBA
- Word et excel gratuit - Guide
- Historique copier coller - Guide
- Liste déroulante excel - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique