Discussion :

[lerico]

Bonjour à tous,

Je voudrais programmer des tâches planifiées à partir d'access.
J'ai trouvé la commande schtasks qui permet de la faire.
J'arrive à la lancer sous une fenêtre Dos mais je n'arrive pas à trouver le moyen de la lancer sous Access.

J'ai créer une fonction mais elle ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Function test()
 
Dim ret As Long
ret = Shell("schtasks /create /tn "Test" /tr C:\Documents and Settings\Eguillemard\My Documents\test.bat " _
& "/sc ONCE /st 10:15:00 /sd 10/11/2007 /ed 10/11/2007", vbNormalFocus)
 
End Function

Access ne veut pas des " et quand je les enlève, le programme se lance mais ne créé pas la tâche.

Pouvez m'aider à trouver la bonne syntaxe. Merci

LeRico

[loufab]

Bonjour,

A l'interieur des double cote "" on utilise des simple cote ' appelées aussi apostrophe.

cordialement,

[loufab]

Attention si tu as un XP français : les paramètres de SC doivent être en français et non en anglais.

[lerico]

Merci pour ta réponse.

J'ai modifié mon code de cette façon mais cela ne créé toujours pas de tâche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function test()
 
Dim ret As Long
Dim local_user, MdpUtil, nom
 
local_user = "titi"
MdpUtil = "toto"
nom = "test"
 
ret = Shell("cmd /c schtasks /create /tn " & nom & " /tr C:\test.bat " _
& "/sc once /st 10:15:00 /sd 10/11/2007 /ed 10/11/2007 /ru " & local_user & " " _
& "/rp " & MdpUtil & "")
 
End Function

Et pourtant sous dos quand je tape

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
schtasks /create /tn "test /tr C:\test.bat /sc once /st 10:15:00 /sd 10/11/2007 /ed 10/11/2007 /ru "titi"
/rp "toto"

J'ai bien une tâche de créée.

Je n'ai pas besoin de mettre en français alors que j'ai un XP PRO en français

Merci.

[Lou Pitchoun]

Salut,

C'est bien un problème de quote : soit trop, soit pas assez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ret = Shell("cmd /c schtasks /create /tn """ & nom & """ /tr C:\test.bat " _
& "/sc once /st 10:15:00 /sd 10/11/2007 /ed 10/11/2007 /ru """ & local_user & """ " _
& "/rp """ & MdpUtil & """")

Le plus simple pour voir ce qui cloche dans ce cas là : tu fais un Debug.Print et tu vois de suite ce qui cloche.

Compare ces 2 là et tu verras de suite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Debug.Print "cmd /c schtasks /create /tn " & nom & " /tr C:\test.bat " _
& "/sc once /st 10:15:00 /sd 10/11/2007 /ed 10/11/2007 /ru " & local_user & " " _
& "/rp " & MdpUtil & ""

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Debug.Print "cmd /c schtasks /create /tn """ & nom & """ /tr C:\test.bat " _
& "/sc once /st 10:15:00 /sd 10/11/2007 /ed 10/11/2007 /ru """ & local_user & """ " _
& "/rp """ & MdpUtil & """"

[loufab]

Je n'ai pas besoin de mettre en français alors que j'ai un XP PRO en français

Tu sais moi je disais ça pour faire avancer ton problème mais tu n'es pas obligé de suivre mes conseils.

[lerico]

Merci pour ton aide loufab.
Cela fonctionne

Je n'avais pas penser passer par debug.print. Ca aide énormément à comprendre ce qui ne fonctionne pas.

Je met mon programme pour ceux que ça intéresse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Function test()
 
Dim ret As Long
Dim local_user, MdpUtil, nom
 
local_user = "titi"
MdpUtil = "toto"
nom = "test"
 
ret = Shell("cmd /c schtasks /create /tn """ & nom & """ /tr C:\test.bat " _
& "/sc once /st 10:15:00 /sd 10/11/2007 /ru """ & local_user & """ " _
& "/rp """ & MdpUtil & """")
 
End Function

A+

[loufab]

Le SC Once également ?

Je pensais que les termes anglais pour le SC ne fonctionnais pas sur un version française.

http://support.microsoft.com/kb/825050/fr

A moins que le ONCE soit le paramètre par défaut, faudrait que je me renseigne...

Ps : Pour le coup du debug.print c'est Maitre Pitchoun qu'il faut vénérer...