Excel, envoyer par mail un autre onglet

Question

Bonjour, 

J'essai de faire un document excel à 2 onglets.
Quelqu'un saurait il comment je pourrais rédiger une commande qui se trouve sur l' "onglet 1" et qui envoi dans le corp du mail le contenu de l' "onglet 2".

Je bidoulle juste en VBA sans vraiment comprendre ce que je fais. Du coup j'avais pensé à quelque chose du genre mais ça ne fonctionne pas:

 Private Sub CommandButton_validerTOTAL_Click()
   With Sheets("onglet 2").Range("A1:Q36").Select
   ActiveWorkbook.EnvelopeVisible = True
 
   With Sheets("onglet 2").MailEnvelope
       .Introduction = "blablabla d'intro"
    .Item.To = "moi@internetxxx.fr"
    .Item.Subject = "blablabla de l'objet du mail"
    .Item.Send
   End With 
 End sub

le problème vous l'aurez compris, c'est que rien ne se passe!

alors si quelqu'un sait au moins si c'est possible et a une piste...?

Merci

lermite222 · Answer

bonjour,  
Un début ?  
Sub Send_Mail_Outlook()  

'Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro,  
' Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"  
   Dim ObjOutlook As New Outlook.Application  
   Dim ObjOutlookmail As MailItem  
   Dim NomFichier As String  
   Dim oBjMail  
   Dim Nom_Fichier As String  
     
   Set ObjOutlook = New Outlook.Application  
   Set oBjMail = ObjOutlook.CreateItem(olMailItem)  
     

     
   With oBjMail  

        .To = Range("a3").Value  
        .To = "prénom.nom@laboitemail.fr"     ' le destinataire  
        .Subject = "Ici c'est l'objet"          ' l'objet du mail  
        .Body = "Ici le texte Blblblbla "  'le corps du mail ..son contenu  
        .Attachments.Add Nom_Fichier '"C:\Data\essai.txt" ' ou Nomfichier  
        .Display  '   Ici on peut mettre '.Send' pour l'envoyer sans vérification  
        .Send  
   End With  
      
    ObjOutlook.Quit  
    'Libère la mémoire
    Set oBjMail  = Nothing 
    Set ObjOutlook = Nothing 

End Sub
A+  
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)  
NOTE : Je ne répond pas aux MP pour les questions techniques.

geenfood69 · Answer

Bonjour,

merci pour ton aide mais cela n'envoi dans le corps du mail pas l'onglet que je souhaite envoyer.

Je suis en train de m'y remettre pour voir si j'arrive à avancer...

en tout cas merci car ça m'a apris à attacher un document, chose que j'avais laisser tomber depuis un moment et que je vais pouvoir utiliser de suite.
a+

Excel, envoyer par mail un autre onglet

2 réponses

Discussions similaires

Newsletters