Copier feuille Excel vers un autre classeur _Classic ASP

omaimainfo Messages postés 38 Date d'inscription lundi 20 novembre 2017 Statut Membre Dernière intervention 1 septembre 2022 - 1 sept. 2022 à 17:22

Bonjour à tous,

Voilà le code que j'ai testé pour copier l'une des feuilles vers un autre classeur  en ASP Classic, et ça ne fonctionne pas: 

Set objExcel = CreateObject("Excel.Application")
objExcel.ActiveWorkbook = True
 
Set objWorkbook1= objExcel.Workbooks.Open(sOrigineXLS)
Set objWorkbook2= objExcel.Workbooks.Open(sDestinationXLS)
 
Set objRange = objWorkbook1.Worksheets("Sheet2").UsedRange.Copy
objWorkbook2.Worksheets("Sheet1").Range("A1").PasteSpecial objRange
 
objWorkbook1.Save
objWorkbook1.Close

Merci d'avance.

Rejoignez-nous