Ouverture d'Excel et d'une sheet précise
Bonjour le forum,
J'ai un soucis avec le script VBS ci-dessous.
J'ai un message "objet requis"
Code:
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:
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 :calim2:
Qqn peut-il m'aider à solutionner le problème svp ?
Merciiiiiiiiiiiiiiiiiiii :aie:
