Bonjour,
je souhaite modifier, à partir d'une page ASP, le contenu d'un fichier Excel.
Bon, j'arrive à le modifier, mais le problème se trouve à la fermeture et l'enregistrement du fichier.
Voici mon code :
Sub segmentationAgeProgress(strFichier, strSegmentation)
Dim oExcel, oWrk, oSheet, oChart, oSerie
Dim rowStart, plotOrder, cycleStart
Set oExcel = Server.CreateObject("Excel.Application")
Set oWrk = oExcel.Workbooks.Open(strFichier)
Set oSheet = oWrk.Sheets("Age-Progress")
Select Case strSegmentation
Case "-14" :
rowStart = 19
plotOrder = 1
Case "+55" :
rowStart = 12
plotOrder = 7
End Select
Set oChart = oSheet.ChartObjects(2)
oChart.Activate
Set oSerie = oChart.Chart.SeriesCollection(7)
oSerie.Select
oSerie.Values = oSheet.Range(oSheet.Cells(rowStart, 2), oSheet.Cells(rowStart, 9))
oSerie.Name = oSheet.Cells(rowStart, 1)
oChart.Chart.ChartGroups(1).SeriesCollection(7).PlotOrder = plotOrder
Set oSheet = Nothing
Set oChart = Nothing
Set oSerie = Nothing
oWrk.Save
oWrk.Close
oExcel.Quit
Set oWrk = Nothing
Set oExcel = Nothing
End Sub
Ce code modifie les séries d'un des graphiques de la feuille.
Quand je lance la page ASP, il n'y a aucun affichage, même si je met un Response.Write au tout début du fichier.
Et hier, avant 16h45, ça marchait très bien...
Malgré tout, l'application Excel est lancée sur le serveur.
Merci d'avance!
Romain