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

[gui22]

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.

 

[wDog66]

Bonjour Gui22

Mettez en commentaires les lignes suivantes

'------------------------------------------------------------
'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

.HTMLBody = Corps & RangetoHTML(Selection)

A+

 

[gui22]

Super sa marche bien merci beaucoup à vous.

 

[TooFatBoy]

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 ?