F
fics
Guest
Bonjour,
Je realise un export de lotus vers excel et souhaiterais creer des charts dans differents sheets.
S'il me cree tout les sheets, excel me place tout les charts dans le meme sheet (a savoir le premier cree sheet4).
Quelqu un aurait il une idee?
merci d avance
Voici mon code
Set xlSheet = XLApp.Sheets.Add
Nom = XLApp.ActiveSheet.Name
Call xlSheet.Activate ' Activate the Sheet we just set (Second sheet)
i = 0
For i = 0 To 8
XLApp.Charts.Add
XLApp.ActiveChart.ChartType = xlPieExploded
Call XLApp.ActiveChart.SetSourceData ( XLApp.Sheets("Sheet1").Range(Chr(68+i) +Cstr(Lb) + ":" + Chr(68+i) + Cstr(Lb+3)),xlColumns)
Call XLApp.ActiveChart.Location (xlLocationAsObject,Nom).....
Je realise un export de lotus vers excel et souhaiterais creer des charts dans differents sheets.
S'il me cree tout les sheets, excel me place tout les charts dans le meme sheet (a savoir le premier cree sheet4).
Quelqu un aurait il une idee?
merci d avance
Voici mon code
Set xlSheet = XLApp.Sheets.Add
Nom = XLApp.ActiveSheet.Name
Call xlSheet.Activate ' Activate the Sheet we just set (Second sheet)
i = 0
For i = 0 To 8
XLApp.Charts.Add
XLApp.ActiveChart.ChartType = xlPieExploded
Call XLApp.ActiveChart.SetSourceData ( XLApp.Sheets("Sheet1").Range(Chr(68+i) +Cstr(Lb) + ":" + Chr(68+i) + Cstr(Lb+3)),xlColumns)
Call XLApp.ActiveChart.Location (xlLocationAsObject,Nom).....