Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
Bonjour forum, je cherche si possible d'envoyer un mail à plusieurs destinateur à la fois si je coche les optionbuttoms correspondants. merci beaucoup s'il ya des solutions
Private Sub CommandButton1_Click()
'Sub envoiPlageCellules_Excel()
ActiveSheet.Range("A1:d50").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.Subject = "Inventaire atelier du " & Sheets("accueil").Range("e1").Value
.Introduction = "bonjour , ci joint: Inventaire F2"
D = ""
For Each ctrl In Me.Controls
Select Case True
Case Not TypeName(ctrl) = "OptionButton"
Case Not ctrl ' non coché
Case D = "": D = ctrl.Caption
Case Else: D = D & ";" & ctrl.Caption
End Select
Next
.Item.To = D
'.Item.Send
End With...
Private Sub CommandButton1_Click()
'Sub envoiPlageCellules_Excel()
ActiveSheet.Range("A1:d50").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.Subject = "Inventaire atelier du " & Sheets("accueil").Range("e1").Value
.Introduction = "bonjour , ci joint: Inventaire F2"
D = ""
For Each ctrl In Me.Controls
Select Case True
Case Not TypeName(ctrl) = "OptionButton"
Case Not ctrl ' non coché
Case D = "": D = ctrl.Caption
Case Else: D = D & ";" & ctrl.Caption
End Select
Next
.Item.To = D
'.Item.Send
End With
Unload Me
End Sub
Private Sub CommandButton1_Click()
'Sub envoiPlageCellules_Excel()
ActiveSheet.Range("A1:d50").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.Subject = "Inventaire atelier du " & Sheets("accueil").Range("e1").Value
.Introduction = "bonjour , ci joint: Inventaire F2"
D = ""
For Each ctrl In Me.Controls
Select Case True
Case Not TypeName(ctrl) = "OptionButton"
Case Not ctrl ' non coché
Case D = "": D = ctrl.Caption
Case Else: D = D & ";" & ctrl.Caption
End Select
Next
.Item.To = D
'.Item.Send
End With
Unload Me
End Sub
- 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