Copier une feuille Excel d'un classeur à un autre en VBS !

Copier une feuille Excel d'un classeur à un autre en VBS ! - VB/VBA/VBS - Programmation

Marsh Posté le 31-03-2006 à 10:55:16    

Salut tous !
 
C'est mon premier post section Programmation, je vais voir si ma maigre expérience en VBA / VBS peut aider la communauté... :jap:  
 
Voilà ma question...
Je fais une série d'opérations en VBS sur des fichiers.
 
A un moment dans ce même script, j'ouvre 2 classeurs Excel
 
Je souhaite récupérer une feuille d'un de ces classeur et la copier dans l'autre.
En VBA, aucun soucis, mais vu que je le fais dans mon script VBS ça ne marche pas  :heink:  
 
Voilà mom code :  
 
'La Variable PartList désigne le 1er classeur, PartListSort l'autre.
 
PartsList = PartsListPath & "\" & PartsListName
PartsListSort = PartsListPath & "\Tri\" & "PartsListSort.xls"
 
Set ExcelApp = CreateObject("Excel.Application" )
 
ExcelApp.Application.Visible = False
Set ExcelBook = ExcelApp.WorkBooks.Open(PartsListSort)
Set ExcelBook = ExcelApp.WorkBooks.Open(PartsList)
 
ExcelApp.Sheets("ELCADExport" ).Select
ExcelApp.WorkSheets("ELCADExport" ).Copy Before:=ExcelApp.Workbooks("PartsListSort.xls" ).Sheets(1)
 
 
Le script se plante entre le : et le = et annonce le message d'erreur : Expected End oF Statement
 
J'ai essayé d'enlever le "ExcelApp." après le = mais c'est pareil.
 
Une idée ?!
 
Merci beaucoup  :jap:


Message édité par FatCat le 31-03-2006 à 10:57:02

---------------
Moi, je construis, des marionnettes.
Reply

Marsh Posté le 31-03-2006 à 10:55:16   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed