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
MarshPosté 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é...
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
Voilà mom code :
'La Variable PartList désigne le 1er classeur, PartListSort l'autre.
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é...
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
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
Message édité par FatCat le 31-03-2006 à 10:57:02
---------------
Moi, je construis, des marionnettes.