XL 2016 Besoin d aide pour créer un code VBA

danielco à dit:

Bonjour,

Utilise la macro :

VB:

Sub Rappel()
  Dim C As Range, olApp As Object, M As Object
    Set olApp = CreateObject("Outlook.application")
  For Each C In Range("A2", Cells(Rows.Count, 1).End(xlUp))
    If IsDate(C.Offset(, 1)) And Date - C.Offset(, 1) > 5 Then
      Set M = olApp.CreateItem(olMailItem)
      With M
          .Subject = C.Offset(, 4).Value
          .Recipients.Add C.Offset(, 3).Value
          .Send
      End With
    End If
  Next C
End Sub

Cordialment.

Daniel

Cliquez pour agrandir...

danielco à dit:

Pas compris. Actuellement, je ne m'occupe pas du jaune, je teste simplement la date. Que faut-il faire ?

Daniel

Cliquez pour agrandir...