Discussion :

[thierry.bayard]

Bonjour,

Je suis tootalement débutant en vbscript et je bloque malgré la lecture de nombreuses discussions.
Je souhaite qu'un vbscript s'exécute automatique chaque jour (via le planificateur windows). ce vbs ouvre un fichier excel et lance une macro.

Je ne parviens pas à faire fonctionner ce vbs dont voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Xl as Excel.Application\par
Dim wk as Excel.workbook\par
\par
set Xl = createobject("Excel.application")\par
Xl.Visible = True\par
Xl.enableevents = false\par
set Wk = Xl.workboooks.open(""C:\\Documents and Settings\\bay2\\Bureau\\Test VBscript.xls")\par
\par
Xl.run "Testvbscript"\par
Xl.enableevents = True\par
\par
wk.close\par
\par
Xl.quit\par

J'ai le message d'erreur suivant :

Script : C:\Documents and settings\....
Ligne : 1
Caract. : 8
Erreur : Fin d'instruction attendue
Code : 800A0401
Source : Erreur de compilation Microsoft VBScript

Merci d'avance pour votre aide.

[ProgElecT]

Salut

Déjà, le code n'est pas du VBScript, on ne type pas les variables.
Le code pourrai ressembler à ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Xl
Dim wk
 
set Xl = createobject("Excel.application")
Xl.Visible = True
Xl.enableevents = false
set Wk = Xl.workboooks.open(""C:\Documents and Settings\bay2\Bureau\Test VBscript.xls"")
 
Xl.run "Testvbscript"
Xl.enableevents = True
 
wk.close
 
Xl.quit

Xl.run "Testvbscript"qu'attends tu de cette commande ?

[thierry.bayard]

Merci beaucoup pour ton aide, ça a fonctionné. Voila finalement le code que j'ai utilisé :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Xl 'as Excel.Application\par
Dim wk 'as Excel.workbook\par
set Xl = createobject("Excel.application")
Xl.Visible = True
Xl.enableevents = false
set Wk = Xl.workbooks.open("C:\Documents and Settings\bay2\Bureau\Test VBscript.xls")
Xl.run "Testvbscript"
Xl.enableevents = True
wk.close
Xl.quit

En ce qui concerne la macro sur le fichier excel, il s'agit simplement d'un test pour vérifier que le script a fonctionné :

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
Range("A3").Select
    While ActiveCell <> ""
        ActiveCell.Offset(1, 0).Select
    Wend
 
    ActiveCell.FormulaR1C1 = "=TODAY()"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=NOW()"
 
    Range("A3:B3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 
    ActiveWorkbook.Save

Et enfin, merci pour la modif sur mon premier message : je n'avais pas fait attention pour l'affichage du code.

Bonne soirée