XL 2016 Définir une partie Excel à envoyé

  • Initiateur de la discussion Initiateur de la discussion MOEZ-TUN
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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: 11
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
817
Réponses
2
Affichages
281
Réponses
2
Affichages
809
Réponses
2
Affichages
511
Réponses
3
Affichages
665
Retour