Excel, envoyer par mail un autre onglet
geenfood69
Messages postés
11
Statut
Membre
-
geenfood69 Messages postés 11 Statut Membre -
geenfood69 Messages postés 11 Statut Membre -
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
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
A voir également:
- Excel, envoyer par mail un autre onglet
- Liste déroulante excel - Guide
- Excel trier par ordre croissant chiffre - Guide
- Gmail envoyer un mail - Guide
- Word et excel gratuit - Guide
- Rouvrir onglet fermé chrome - Guide
2 réponses
bonjour,
Un début ?
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.
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.
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+
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+
