outlook + envoie automatique

[arvin]

bonjour à tous ,


je souhaiterai envoyer une feuille par mail (outlook) seulement si la date du jour est un dimanche : j'aai 2 macros qui fonctionnent super bien séparément , mais ensemble , j'y perd mon latin ..... qui pourrait me dépanner ?

merci à tous


envoie de la feuille 'ta page'

ThisWorkbook.Sheets('taPage').Copy
ActiveWorkbook.SendMail ('toto@free.fr')



envoie si seulement la date est un dimanche

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If IsDate(Target.Value) Then
If Weekday(Target.Value, vbMonday) = 7 Then
Target.Font.ColorIndex = 3

Else
Target.Font.ColorIndex = xlColorIndexAutomatic
End If
End If
End Sub