probleme de graphique avec excel
bonjour,
voila j'ai le code suivant pour remmetre a jour des graphique excel, mais cela me donne une erreur sur la ligne ActiveSheet.Shapes("Chart 1").Select.
pourriez vous m'aider svp.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Set waexcel = wrexcel.Worksheets("données_causes_EPT")
Set wdexcel = wrexcel.Worksheets("VUE_GLOBALE")
Npremligne3 = waexcel.Range("A1").End(xlDown).Row + 4
Ndernligne3 = waexcel.Range("A65535").End(xlUp).Row
MaPlage3 = wfexcel.Cells(Npremligne3, 6).Address + ":" + wfexcel.Cells(Ndernligne3, 6).Address
waexcel.Cells(Npremligne3 - 1, 1).Value = MaPlage3
wdexcel.Select
ActiveSheet.Shapes("Chart 1").Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("données_production_EPT").Range( _
MaPlage3), PlotBy:=xlColumns |
j'ai essayer le code en l'adaptant sur VBA et ça fonctionne mais ça me met a jour une seule serie dependante de cette plage donnée et me supprime les autre.
j'espere avoir ete assez clair sinon demander des precision.
merci d'avance,cedric.
