gilles37
XLDnaute Occasionnel
Bonsoir
Je souhaiterai envoyer la feuille active excel en tant que pièce jointe à l'aide d'un bouton sur celle-ci à plusieurs destinataires par outlook.
Je sais faire pour 1 destinataire:
Private Sub CommandButton2_Click()
Sub envoiMailEtFeuilleActive()
ActiveSheet.Copy ' créée une copie de la feuille active
ActiveWorkbook.SendMail Recipients:="lulu@lulu.net", Subject:="nouvelle fiche " 'envoi Mail
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
End Sub
mais plusieurs je bloque
merci pour votre aide
Je souhaiterai envoyer la feuille active excel en tant que pièce jointe à l'aide d'un bouton sur celle-ci à plusieurs destinataires par outlook.
Je sais faire pour 1 destinataire:
Private Sub CommandButton2_Click()
Sub envoiMailEtFeuilleActive()
ActiveSheet.Copy ' créée une copie de la feuille active
ActiveWorkbook.SendMail Recipients:="lulu@lulu.net", Subject:="nouvelle fiche " 'envoi Mail
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
End Sub
mais plusieurs je bloque
merci pour votre aide