Bonjour,
J'ai un problème de conversion de graphique excel en image au format GIF.
Ma méthode fonctionne sous Office 2000 mais pas sous office XP sur une page ASP.
J'ai retranscris tel quel mon code ASP en VBA sous Excel XP et celui-ci fonctionne ?!!
En ASP sous Office XP, il plante en me donnant "erreur inconnue" et ce, au niveau de la ligne qui fait l'export.
Voici mon code :
***
Dim LesDonnees
redim LesDonnees(5,3)
LesDonnees (1,1) = "Pierre"
LesDonnees (1,2) = 100
LesDonnees (2,1) = "Paul"
LesDonnees (2,2) = 20
LesDonnees (3,1) = "Jim"
LesDonnees (3,2) = 40.50
LesDonnees (4,1) = "Titi"
LesDonnees (4,2) = 70
LesDonnees (5,1) = "Romeo"
LesDonnees (5,2) = 80
Dim LesDonneesX : redim LesDonneesX(UBound(LesDonnees))
Dim LesDonneesY : redim LesDonneesY(UBound(LesDonnees))
Dim strChartFile
Dim iCpt
for iCpt=1 to UBound(LesDonnees)
LesDonneesX(iCpt)=LesDonnees(iCpt,1)
LesDonneesY(iCpt)=LesDonnees(iCpt,2)
next
Dim Excel : Set Excel = CreateObject("Excel.Application")
Dim Book : Set Book = Excel.Workbooks.Add ()
Dim Sheet : Set Sheet = Excel.Worksheets (1)
Excel.Visible = False
Excel.DisplayAlerts = False
Sheet.Range("A2",Sheet.Range("A2").Offset(0, UBound(LesDonneesX))).value=LesDonneesX
Sheet.Range("A3",Sheet.Range("A3").Offset(0, UBound(LesDonneesY))).value=LesDonneesY
Sheet.Cells(2,1).Value=LeX
Sheet.Cells(3,1).Value=LeY
Sheet.Range("B2",Sheet.Range("B2").Offset(1, UBound(LesDonneesX)-1)).Select
Dim Chart : Set Chart=Sheet.ChartObjects.Add(0, 0, 292, 200).Chart
Chart.ChartType = 51
Chart.SetSourceData Sheet.Range("A2",Sheet.Range("A2").Offset(1, UBound(LesDonneesX))),1
Randomize
strChartFile = Timer & Rnd & ".gif"
Chart.Export Server.MapPath("Export") & "\" & strChartFile
response.write "<IMG SRC=""Export/" & strChartFile & """>"
Set Chart = Nothing
Excel.Quit
Set Excel = Nothing
***
Y a t-il un problème au niveau de mon code ?
Doit-on faire une approche sous XP ?
Et si oui comment déterminer la version des OWC ?
Merci d'avance
Tatayé
