Ouverture fichier excel en vbscript

Version imprimable

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:

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.

Salut

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

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 ?

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

Code:

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:

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