Bonjour tous,

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Dim fso,s
Set fso = CreateObject("Scripting.FileSystemObject")
s = Date
Date1 = Mid(s, 1, 2)
If Date1 = "01" Then
MsgBox "Nous sommes le " & Date1 & ", il faut faire :" & vbCrLf & "- les virements", 0, "Transactions monétaires"
Else
End If
wscript.quit
Là, j'ai une box qui s'ouvre tous les 1 du mois.
J'aimerais ouvrir une autre box mais qur le 15 janvier par exemple, je dois modifier quoi ?