XL 2021 Envoie d'informations sélectionnés par mail

gui22

XLDnaute Nouveau
Bonjour à toutes et à tous,

J'ai réussi à trouver une macro qui pourrait me permettre d'obtenir ce que je souhaite seulement cette macro envoi par mail les données que je sélectionne voici le code :

Sub EnvoiMail()
Dim MailCL As Object
Dim Corps As String
Dim dLig As Long, Lig As Long
Dim Sht As Worksheet
Dim rng As Range, adr
' Définir la feuille our se trouve les noms
Set Sht = ThisWorkbook.Sheets("Feuil1")
' Créer une instance OUTLOOK
Set MailCL = CreateObject("Outlook.Application")
With MailCL.CreateItem(olMailItem)
.display ' Afficher tout de suite le mail poru avoir la signature
' Inscrire les différentes infos
.Subject = "Produit indisponible"
.To = "xxxxxxxxxx.com"
.CC = "xxxxxxxxxx.com"
' Début du message
Corps = "Bonjour,<br><br>" & _
"Veuillez trouver ci-joint les produits indisponible au magasin :"
'------------------------------------------------------------
'Code pour allez récuperer les données dans le tableau
adr = Sht.ListObjects("Tableau1").Range.Address 'adresse tableau
Set rng = Range(adr)
'------------------------------------------------------------
.HTMLBody = Corps & RangetoHTML(rng)
.display 'ouvre outlook
'.send 'envoi sans ouvir Outlook
End With
End Sub

J'espère avoir été clair car je n'arrive pas à trouver la solution.
Merci.

Bien cordialement.
 
Solution
Bonjour Gui22

Mettez en commentaires les lignes suivantes
VB:
'------------------------------------------------------------
'Code pour allez récuperer les données dans le tableau
' adr = Sht.ListObjects("Tableau1").Range.Address 'adresse tableau
'Set rng = Range(adr)
'------------------------------------------------------------
Et modifier la ligne suivante
Code:
.HTMLBody = Corps & RangetoHTML(Selection)

A+

wDog66

XLDnaute Occasionnel
Bonjour Gui22

Mettez en commentaires les lignes suivantes
VB:
'------------------------------------------------------------
'Code pour allez récuperer les données dans le tableau
' adr = Sht.ListObjects("Tableau1").Range.Address 'adresse tableau
'Set rng = Range(adr)
'------------------------------------------------------------
Et modifier la ligne suivante
Code:
.HTMLBody = Corps & RangetoHTML(Selection)

A+
 

TooFatBoy

XLDnaute Barbatruc
Bonjoyr,

J'ai réussi à trouver une macro qui pourrait me permettre d'obtenir ce que je souhaite
C'est déjà bien d'avoir effectué des recherches avant de venir demander de l'aide. 👍
Sincères félicitations car cela est trop rare de nos jours.


seulement cette macro envoi par mail les données que je sélectionne
Et tu ne veux pas qu'elle envoie les données que tu as sélectionnées ?
Que voudrais-tu qu'elle envoie ?
 

Statistiques des forums

Discussions
314 120
Messages
2 106 097
Membres
109 488
dernier inscrit
Abdel44