Graphique et erreur automation
Bonjour,
j'ai un problème sur une de mes macros.
Je fais un recherche dans une base de données pour récupérer des infos (ça pas de problème )
et ensuite je veux faire des graphiques avec ces données
j'ai fait la macro, il y a 1 ou 2 ans sur Excel 2007, ça fonctionnais très bien
maintenant, nous sommes passer en Excel 2010, est ça ne fonctionne plus (mais je suis pas convaincu que ce soit lier à la version d'excel )
le code :
Sub Affich_Graphique()
Dim admis As Integer
Dim flagAdmis As Boolean
Dim chaineadmis As String
Dim vrai As Integer
Dim flagVrai As Boolean
Dim chainevrai As String
Dim Faux As Integer
Dim flagFaux As Boolean
Dim chainefaux As String
flagAdmis = False
flagVrai = False
flagFaux = False
For i = 2 To Range("a65536").End(xlUp).Row
If Range("c" & i).Value = "admissible" And flagAdmis = False Then
admis = i
flagAdmis = True
ElseIf Range("c" & i).Value = "Vrai" And flagVrai = False Then
vrai = i
flagVrai = True
ElseIf Range("c" & i).Value = "Faux" And flagFaux = False Then
Faux = i
flagFaux = True
End If
Next i
If admis + 9 < Faux Then
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.ApplyLayout Layout:=3
ActiveChart.ChartTitle.Text = "Défauts Admissible"
While ActiveChart.SeriesCollection.Count <> 0
ActiveChart.SeriesCollection(1).Delete
Wend
i = admis
Do While i < admis + 10
With ActiveChart
.SeriesCollection.NewSeries
With .SeriesCollection(.SeriesCollection.Count)
.Name = Range("a" & i).Value 'Nom de la série
.XValues = 1
.Values = Range("d" & i).Value
End With
End With
i = i + 1
Loop
For Each co In ActiveChart.SeriesCollection
co.ApplyDataLabels
co.DataLabels.Orientation = xlUpward
Next
MsgBox ("serie")
End if
end sub
quand je lance ma macro, je me retrouve avec l'erreur
erreur d'éxecution '-2147417848(80010108)
Erreur Automation
l'objet invoqué s'est déconnecté de ses clients
après plusieurs test, je pense que l'erreur viens de la ligne
ActiveChart.ApplyLayout Layout:=3
sans en etre convaincu
mais le plus grand problème c'est que si je le fais tourner en pas à pas, il ne bug pas du tout
auriez vous un idée d'ou peu venir le probleme ?
Merci d'avance
edit : et l'erreur n'apparait que sur mon PC, si je le lance sur un autre, il n'y a pas d'erreur