Creer des charts dans different sheets

[fics]

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).....

 

[Zon]

Salut,

La définition de tes variables où est elle ?

Je mettrais la boucle avant

For i = 0 To 8
Set xlSheet = XLApp.Sheets.Add
Nom = XLApp.ActiveSheet.Name
Call xlSheet.Activate ' Activate the Sheet we just set (Second sheet)
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)

next i


A+++

 

[fics]

Merci Zon pour la reponse.
J ai trouve la solution de ce probleme.
En fait lorsqu on cree un chart et que l on souhaite le mettre dans un sheet, la fonction
Call XLApp.ActiveChart.Location (xlLocationAsObject,Nom du sheet) est necessaire cependant le chart est automatiquement place dans le premier sheet de la liste (le sheet qui a son Tab le plus a gauche). La fonction "location" ne permet pas de placer un chart dans n importe quel sheet.

Etrange non?

La solution est donc d'utiliser le parametre "before" de la fonction sheets.add pour placer le sheet destinataire a la bonne place.