Discussion :

[fabibi001]

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

[SfJ5Rpw8]

quand tu dit ouvrir à une sheet précise ... c'est pour faire de l'affichage, visualiser la feuille à l'écran ?

où accéder aux données de cette feuille ?

[fabibi001]

Le but, c'est que ce soit cette feuille qui s'affiche à l'écran, de façon à y faire directement des modifications.

En clair, je veux faire l'économie d'un clic par fichier (ne pas devoir sélectionner la sheet en question).

Je souhaiterais que les 4 fichiers s'ouvrent sur les sheet 'Struct" (qui sont les 2ème sheet pour chaque fichier)

J'espère avoir répondu à ta question.

Merci d'avance pour votre aide

[SfJ5Rpw8]

pourquoi le set ?

Code :

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

xlAPP.sheets("Struct").Activate

[fabibi001]

Aucune idée ...

J'ai pris des bouts de scripts ici et là et je recopie ce que je crois être la logique

C'est effectivement cela le problème.

Merci