Discussion :

[elinfo]

Bonjour ,
S'il vous plait , comment je peux faire pour copier une feuille parmi plusieurs dans un autre fichier excel en asp classic .

Cordialement.

[elinfo]

j'ai testé ce code mais ça ne fonctionne pas , j'ai besoin d'aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
 
objWorkbook2.Save
objWorkbook2.Close

Merci d'avance.