Bonjour,
J'ai crée une macro afin d'envoyer une série de cellule par mail à une personne via un bouton. Cependant, je souhaiterais automatiser ce système, c'est à dire que je voudrais qu'a l'ouverture d'excel ma macro s'éxecute automatiquement sans toucher à quoique ce soit. Plus précisément à l'ouverture de Excel, si la date d'une cellule précise est égale à la date du jour (qui est indiqué sur une autre cellule) alors le mail doit s'envoyer automatiquement. Voici mon code actuel :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Envoitest1()
ActiveSheet.Range("A5:B5:C5:D5:E5:G5:A6:B6:C6:D6:E6:G6").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
 
 
With ActiveSheet.MailEnvelope
    .Introduction = "Bonjour, merci de relancer le client pour le dossier suivant :  "
    .Item.To = ActiveSheet.Range("j6").Value
    .Item.Subject = " RELANCE DOCUMENT-- "
    .Item.Send
End With
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
End Sub
Auriez vous une solution à mon problème ?

Merci d'avance,
Cdlt