salut
en premier lieux pk utiliser un COM pour avoir accès à excell et en second lieux je crois que ces possible d'utiliser le com avec l'asp car j'ai produit cela pour une compagnie www.dvp-gs.com/wms ActiveX, COM, XML et ASP... sa na pas de rapport avec excel, mais seulement pour dire que com et asp sa fonctionne avec du bidouillage...
petite exemple asp et excel :
<%
Set objExcel = CreateObject("Excel.Sheet")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("COUNTER")
Set RS = Conn.Execute("SELECT * FROM COUNTS order by TOTALS")
td_dt = now()
Do While not rs.eof
if datediff("M",RS("last_dt"), td_dt) <> 0 then
months_hits = 0
else
months_hits = RS("MONTH")
end if
if datediff("d",RS("last_dt"), td_dt) <> 0 then
todays_hits = 0
else
todays_hits = RS("today")
end if
i = myCnt
objExcel.ActiveSheet.Cells(i + 1, 1 ) = rs("url")
objExcel.ActiveSheet.Cells(i + 1, 2 ) = rs("totals")
objExcel.ActiveSheet.Cells(i + 1, 3 ) = months_hits
objExcel.ActiveSheet.Cells(i + 1, 4 ) = todays_hits
myCnt = myCnt + 1
rs.movenext
loop
set rs = nothing
objExcel.ActiveSheet.Range("b1:d1").Value = Array("Total","Monthly","Today")
startstr = "b2:"
endstr = "d" & mycnt
objExcel.ActiveSheet.Range(startstr & endstr).Select
objExcel.Charts.Add
objExcel.activechart.ChartType = 100
objExcel.activechart.BarShape =3
objExcel.activechart.HasTitle = True
objExcel.activechart.ChartTitle.Text = _
"URL hits, by month, day and grand total"
objExcel.activechart.SetSourceData _
objExcel.Sheets("Sheet1").Range("A1:" & endstr),1
filename = server.mappath("/images")
if mid(filename,len(filename),1) <> "\" then
filename = filename & "\"
end if
filename = filename & "temp.gif"
objExcel.activechart.export filename, "GIF"
%>
<HTML>
<HEAD>
<TITLE>Chart</TITLE>
</HEAD>
<BODY>
<img src="/images/chart2.gif"" alt="example">
</BODY>
</HTML>