Discussion :

[aragdur]

Bonjour,

je pensais avoir réussi mon objectif de lancer en automatique des macros via un fichier .bat, mais erreur ^^'

dans l'idéal, j'aurai souhaité un code du genre :

Code :

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

start Outlook.exe  & timeout /t 60 & /autorun "Abonnements" & /autorun "Allocation" & /autorun "Approbation"

Sauf qu'après avoir rajouter une pause à la fin, je me rends compte que ça ne fonctionne pas.
Je précise que tout ce que vous voyez entre guillemets, ce sont des macros qui fonctionnent bien.

d'avance, merci pour vos efforts

cdlt

[Oliv-]

Salut,
Je t'ai déjà donné les solutions qui marchent !!

Tu pourrais aussi utiliser un VBSCRIPT avec ton code et le lancer avec le planificateur de tâches.

[aragdur]

salut,

alors j'ai dû louper un truc car autant les macros fonctionnent nickel, autant la planification c'est pas encore ça.

J'avais déjà dans l'idée d'utiliser le planificateur de tâches.

Vbscript, c'est de la macro, c'est ça ?

cdlt

[aragdur]

je devrais donc recopier chacune de mes macro dans un vbs puis l'insérer dans la planificateur, ou faut-il faire autrement ?

[Oliv-]

Salut,

Tout peut être dans le même vbs, tu peux appeler à partir du code principal des sous codes (=sub).
Dans le planificateur de tâche tu indiques le nom du fichier vbs.

http://tahe.developpez.com/web/vbscript/


dans un fichier.vbs à tester

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
 
 
dim n
'By Oliv' février 2007 
  Dim OL 
    If UCase(Application) = "OUTLOOK" Then
        Set OL = Application
    Else
        Set OL = CreateObject("outlook.application")
    End If
 
Dim myNameSpace 
Dim myInbox 
Dim myDestFolder 
Dim myItems 
Dim myItem 
Set myNameSpace = OL.GetNamespace("MAPI")
'ici le dossier d'origine
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myInbox =myInbox.folders("Divers")
Set myItems = myInbox.Items
'ici le dossier destination
 
Set myDestFolder = myNameSpace.Folders("Dossiers personnels").Folders("Boîte de réception").Folders("Divers")
 
For n = myItems.Count To 1 Step -1
                Set myItem = myItems.Items(n)
Myitem.Move myDestFolder
Next n