XL 2016 Définir une partie Excel à envoyé

MOEZ-TUN

XLDnaute Occasionnel
Bonjour
J'ai un macros pour envoyer une partie de feuille Excel par messagerie Outlook
Mon problème est comment définir cette partie conditionnelle.

1584106613810.png








Voici mon macros :
Sub envoi_mail()
Dim Plage As Range
Dim Mafeuille As Worksheet
Dim NbLigne As Integer

ActiveSheet.Range("A3:C5").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True


With Selection.Parent.MailEnvelope.Item

For i = 2 To Worksheets("Feuil1").Range("M" & Rows.Count).End(xlUp).Row
Destinataires = Destinataires & ";" & Worksheets("Feuil1").Range("M" & i).Value
Next i
.To = Destinataires
.Subject = "coo"
.send
End With
Range("A4:J52").Select
Selection.ClearContents
MsgBox "votre mail a été envoyé", vbInformation + vbOKOnly, "confirmation d'envoi"
ActiveWorkbook.EnvelopeVisible = True
End Sub
 

Pièces jointes

  • 1584106299720.png
    1584106299720.png
    6.1 KB · Affichages: 9

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 009
Membres
101 865
dernier inscrit
MLL