XL 2010 copier/coller feuille pour envoi par mail

[Nicolas33gin33!]

Bonjour à tous,

J'essaye de créer une macro pour faire des envois en 1 clic.
Sur cette macro figure le destinataire, l'objet, un corps de texte et la page active d'Excel copier coller.

J'arrive à tout sauf à ce copier coller.
J'ai déjà vu des solutions mais sans résultats (je dois mal les insérer à ma macro).

j'ai un tableau C4:H30 que je souhaiterai envoyer via un clic par un copier coller.

Pourriez-vous m'éclairer svp ?

Sub SendaMail()

    Dim oAPP                       As Object
    Dim oItem                      As Object
    ' need to declare this constant as it has no meaning without
  ' the reference set to the Outlook library
  Const olMailItem               As Long = 0

    ' instantiate the Application - cannot use New without a reference
  ' so we must use CreateObject
  Set oAPP = CreateObject("Outlook.Application")

    ' #######################################
  ' NOTE: THE REST OF THE CODE IS IDENTICAL
  ' #######################################

    ' create a new email
  Set oItem = oAPP.CreateItem(olMailItem)
  
    ' set basic properties and display the email
  With oItem
       'Destinataire :
       .To = "nicolas.mechoulan@intradef.gouv.fr"
       'Sujet :
       .Subject = "Notre commande d'objets promotionnels "
       'Copies
       .CC = "nicolas.mechoulan@armeedelair.com"

       'Corps du mail :
       .Body = "Bonjour," & vbCrLf _
       & vbCrLf _
       & "Veuillez trouver ci-joint notre commande d'objets promotionnels" & vbCrLf _
       & vbCrLf _
       & "Respectueusement, " & vbCrLf _
     
       .Display
       'Envoi :
       .Send
    End With
End Sub

 

[thebenoit59]

Bonjour Nicolas.

Je ne comprends pas ta demande.
Que souhaites-tu copier/coller ?

 

[Nicolas33gin33!]

Bonjour Nicolas.

Je ne comprends pas ta demande.
Que souhaites-tu copier/coller ?

oui effectivement je ne l'ai pas précisé.
Désolé.

en fait, j'ai un tableau C4:H30 que je souhaiterai envoyer via un clic par un copier coller.

 

[thebenoit59]

Tu peux jeter un oeil à cette page :
https://support.microsoft.com/fr-fr...-using-visual-basic-for-applications-in-excel

Le message s'enverra depuis Excel via Outlook.

 

[Nicolas33gin33!]

Oui j'ai déjà testé cette version mais, j'ai un corps de message plutôt long.
Du coup, je ne vois pas quoi mettre en dessous de introduction pour écrire d'autres phrases.

 

[thebenoit59]

Un exemple :
http://maitrise-excel.com/excel-outlook-envoi-mail-macro-excel-envoi-email-tableau-corps-du-message/

 

[Nicolas33gin33!]

Je l'avais également vu mais non sélectionné car il y a ces histoires de "Cocher les options Adobe Acrobat et Outlook 14.0 object librairy"

Je n'ai pas envie de demander à chaque personne de cocher ces options ...