1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
| Private Sub Workbook_Open()
*
Dim DateExp As Date
Dim ws As Worksheet
Dim Message As String
*
Set ws = ThisWorkbook.Worksheets(1)
*
DateExp = Now + 15
*
i = 2
While Not IsEmpty(ws.Cells(i, 3))
If ws.Cells(i, 6) <> "" And ws.Cells(i, 6) > Now And ws.Cells(i, 6) <= DateExp Then
Message = Message & vbCr & ws.Cells(i, 3) & " : Expire dans " & Format(ws.Cells(i, 6) - Now, 0) & _
" jours (le " & Format(ws.Cells(i, 6), "dd.mm.yyyy") & ")"
ElseIf ws.Cells(i, 7) <> "" And ws.Cells(i, 7) > Now And ws.Cells(i, 7) <= DateExp Then
Message = Message & vbCr & ws.Cells(i, 3) & " : Expire dans " & Format(ws.Cells(i, 7) - Now, 0) & _
" jours (le " & Format(ws.Cells(i, 7), "dd.mm.yyyy") & ")"
End If
i = i + 1
Wend
*
MsgBox Message, vbInformation + vbOKOnly, "Information Dates d'Expiration"
*
End Sub |
