dim ex as new excel.application
'pour chopper des données ex.workbook.open("c:\truc.xls") with activeworkbook.worksheets(0) tavar=.cells(1,1) tavar2=.cells(1,2) end with set ex=ntohing
'pour creer un new fichier ex.workbook.Add with activeworkbook.worksheets(0) .cells(1,1)=tavar .cells(1,2)=tavar2 end with ex.visible=true set ex=ntohing
voila @+ juva
Retrouvez une équipe de développeurs confirmés sur le tchate: serveur : bastia..net port : 6667 chan : #programmation
|