Bonjour,
 
Je dois créer un graphique Excel via asp.
 
Le graphique est de type "pie".
 
J'aimerais afficher le pourcentage.
 
J'ai essayé le code suivant :
-------------------------------------------------------------
dim app
set app = createobject("Excel.Application" )
 
app.Visible = true
 
dim wb
set wb = app.workbooks.add
 
wb.ActiveSheet.Range(wb.ActiveSheet.Cells(1, 2), wb.ActiveSheet.Cells(1, <%= i %> + 1)).Value = Array(<%= TheTest %> )
wb.ActiveSheet.Range(wb.ActiveSheet.Cells(2, 1), wb.ActiveSheet.Cells(2, 1)).Value = Array("Business" )
wb.ActiveSheet.Range(wb.ActiveSheet.Cells(2, 2), wb.ActiveSheet.Cells(2, <%= i %> + 1)).Value = Array(<%= TheTest1 %> )
 
wb.ActiveSheet.Range(wb.ActiveSheet.Cells(1, 1), wb.ActiveSheet.Cells(2, <%= i %> + 1)).Select
 
wb.Charts.Add
wb.ActiveChart.ChartType = 5  
 
wb.ActiveChart.HasTitle = True
wb.ActiveChart.ChartTitle.Text = "Répartition des demandes..."
 
wb.ActiveChart.ApplyDataLabels ShowPercentage:=True
 
app.UserControl = true
---------------------------------------------------
 
Ca ne fonctionne pas. Mais le reste du code fonctionne.  
 
Merci pour votre aide.
 
Seblemalin