Claudy
XLDnaute Accro
Bonjour,
j'essaie d'envoyer une feuille d'un classeur en pièce jointe via la messagerie d'Office 365
la macro qui bugge:
Sub EnvoiPage()
Dim Destinataires As String
Dim Sujet As String
Dim AccuseReception As Boolean
ActiveSheet.Select 'Saisir le nom exact la feuille
ActiveSheet.Copy 'Crée une copie de la feuille active
Destinataires = "claudy.catherine@gmail.com"
Sujet = "Envoi automatique: Consommations"
'AccuseReception = True
ActiveWorkbook.SendMail Destinataires, Sujet
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True
'MsgBox "L'email a bien été transmis aux destinataires suivants: ***@*** & ***@***"
End Sub
Pouvez vous m'aider?
merci d'avance,
Claudy
j'essaie d'envoyer une feuille d'un classeur en pièce jointe via la messagerie d'Office 365
la macro qui bugge:
Sub EnvoiPage()
Dim Destinataires As String
Dim Sujet As String
Dim AccuseReception As Boolean
ActiveSheet.Select 'Saisir le nom exact la feuille
ActiveSheet.Copy 'Crée une copie de la feuille active
Destinataires = "claudy.catherine@gmail.com"
Sujet = "Envoi automatique: Consommations"
'AccuseReception = True
ActiveWorkbook.SendMail Destinataires, Sujet
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True
'MsgBox "L'email a bien été transmis aux destinataires suivants: ***@*** & ***@***"
End Sub
Pouvez vous m'aider?
merci d'avance,
Claudy