ChartObjects dans un autre fichier excel
Bonjour,
J'ai un premier fichier Excel qui contient une macro qui ouvre un deuxième fichier Excel où je vais créer plusieurs graphiques par feuille. Le code ne peut pas être dans le deuxième fichier Excel où il y a les graphiques, car ça plante (problèmes de mémoire je pense).
Le code suivant fonctionnait pour faire des graphiques dans le fichier Excel qui contient le code, mais si j'essai de faire les graphiques dans un autre fichier Excel qui ne contient pas la macro, ça plante à la ligne en rouge.
Run-time Error 91
Object Variable or With block Variable not set.
Pouvez vous m'aider ? Merci!
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
Function FAIRE_GRAPH(i As Integer)
WB2=nom_workbook2.xls
nombre_charts = workbooks(WB2).Worksheets("M" & i).ChartObjects.Count
With workbooks(WB2).Worksheets("M" & i).ChartObjects.Add( _
Left:=emplacement_gauche * largeur, _
Width:=largeur, _
Top:=emplacement_haut + emplacement_haut3 * hauteur, _
Height:=hauteur).Chart
.ChartType = xlXYScatter
.Parent.Name = nom_variable
End With
workbooks(WB2).Worksheets("M" & i).Activate
workbooks(WB2).Worksheets("M" & i).ChartObjects(nombre_charts + 1).Activate
Do Until ActiveChart.SeriesCollection.Count = 0
ActiveChart.SeriesCollection.Delete 'a tester
Loop
... |
