Bonjour,
J'ai une macro développée sur Excel 2010 et qui plante sur Excel 2013.
1 2 3 4 5 6 7 8 9 10 11 12
| For Each co In Feuille.ChartObjects
j = 1
For Each se In co.Chart.SeriesCollection
sourceDonnees = se.FormulaLocal
feuilO = Mid(sourceDonnees, 9, 10)
Set chOrig = ActiveWorkbook.Worksheets(feuilO).ChartObjects(1).Chart
Set chDest = co.Chart
chDest.SeriesCollection(1).FormulaLocal = chOrig.SeriesCollection(1).FormulaLocal
j = j + 1
Next
i = i + 1
Next |
Le but est de faire en sorte que le graphique de destination pointe sur les mêmes données que celui d'origine mais quand je fais
chDest.SeriesCollection(1).FormulaLocal = chOrig.SeriesCollection(1).FormulaLocal
ça plante sur 2013 alors que ça fontionne parfaitement sur 2010.
Qu'est ce j'ai fait d'incorrect?
Merci,
Jean
Partager