Bonjour le forum,

J'ai un soucis avec le script VBS ci-dessous.
J'ai un message "objet requis"
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
Dim madate 

madate = "_" & Year(date) & Right("0" & Month(date),2) & Right("0" & Day(date),2)
Set fso = CreateObject("Scripting.FileSystemObject" ) 

fso.copyfile "G:\M\*_MODEL.xls", "G:\M\To Send\"

fso.movefile "G:\M\To Send\S_MODEL.xls", "G:\M\S.xls"
fso.movefile "G:\M\To Send\ST_MODEL.xls", "G:\M\ST.xls"
fso.movefile "G:\M\To Send\AST_MODEL.xls", "G:\M\AST.xls"
fso.movefile "G:\M\To Send\IE_MODEL.xls", "G:\M\IE.xls"

Dim wk
Dim xlApp

Set XlApp = CreateObject("Excel.Application")
XlAPP.visible =1
Set wk = xlAPP.Workbooks.Open("G:\M\S.xls")
Set wk = xlAPP.sheets("Struct").Activate
Set wk = xlAPP.Workbooks.Open("G:\M\ST.xls")
Set wk = xlAPP.Workbooks.Open("G:\M\AST.xls")
Set wk = xlAPP.Workbooks.Open("G:\M\IE.xls")
Si je ne mets pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set wk = xlAPP.sheets("Struct").Activate
dans mon script, ça fonctionne sans prob.

Si je reajoute la ligne, il se positionne bien sur la sheet voulue mais il arrête le script et me met le message

Qqn peut-il m'aider à solutionner le problème svp ?

Merciiiiiiiiiiiiiiiiiiii