1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
Dim WshShell, jour, jj
jj = day(now)
Set WshShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
jour = WshShell.RegRead("HKCU\Software\masse\saisie_journaliere\")
if Err <> 0 Then
WshShell. RegWrite"HKCU\Software\masse\saisie_journaliere\", 0, "REG_DWORD"
End If
On Error GoTo 0
jour = WshShell.RegRead("HKCU\Software\masse\saisie_journaliere\")
If jour = jj Then
WScript.Quit
else
Set Xl = CreateObject("Excel.application")
Xl.Visible = True
Set Wb = Xl.Workbooks.Open("C:\clas1.xls")
End If
WshShell. RegWrite"HKCU\Software\masse\saisie_journaliere\", jj, "REG_DWORD" |