' affichage des camemberts
req = "select distinct count(libelle) from type"
Set result = dbs.OpenRecordset(req)
l = result.Fields(0)
req = "select * from LigneExcel" 'contient tous les onglets et leur numéro de dernière ligne renseignée
Set result = dbs.OpenRecordset(req)
While Not result.EOF
req2 = result.Fields(1) 'le nom du type (exemple 'fabrication')
k = result.Fields(2) ' le numéro de la dernière ligne de l'onglet
xlApp.Sheets(req2).Select
xlApp.Charts.Add
[COLOR="Red"] ' c'est ici que ca bug, normalement Name permet de spécifier l'onglet mais ca marche pas :([/COLOR]
xlApp.ActiveChart.Location Where:=xlLocationAsObject, Name:=req2
xlApp.ActiveChart.ChartType = xl3DPieExploded
xlApp.ActiveChart.SetSourceData Source:=Sheets(req2).Range("A" & k + 2 & ":B" & k + l + 1), _
PlotBy:=xlColumns
xlApp.ActiveChart.HasLegend = False
xlApp.ActiveChart.ApplyDataLabels type:=xlDataLabelsShowLabelAndPercent, LegendKey _
:=False, HasLeaderLines:=True
xlApp.ActiveChart.Location Where:=xlLocationAsObject, Name:=req2
result.MoveNext
Wend