Sub taches()
Dim strCreateScheduleTask As String
Dim Login As String, PWD As String
Dim iTime As String, iDate As String
Login = "LoginPiou"
PWD = "PWDPiou"
iTime = "23:00"
iDate = "23/04/2012"
strCreateScheduleTask = "SCHTASKS /Create /RU " & Login & " "
strCreateScheduleTask = strCreateScheduleTask & "/RP " & PWD & " "
strCreateScheduleTask = strCreateScheduleTask & "/SC once "
strCreateScheduleTask = strCreateScheduleTask & "/ST " & iTime & " "
strCreateScheduleTask = strCreateScheduleTask & "/SD " & iDate & " "
strCreateScheduleTask = strCreateScheduleTask & "/TR " & """\""" & "E:\Excel\tests\Dates\Planificateur\1.bat"" /TN R" & "_" & "1" & "_" & "23042012" & "_" & "230000"
Shell strCreateScheduleTask
End Sub