Kouik Kouik jr
XLDnaute Occasionnel
Bonsoir le forum,
J'ai besoin de votre aide car mon code bloque sur une erreur automation (80010108)(L'objet invoqué s'est déconnecté des ses clients)
J'essaie de créer 4 graphiques mais le code ne me crée que le 1er et bloque sur le deuxième avec ce message
Je vois pas du tout mais alors pas du tout ce qui fonctionne pas
Merci de votre coup de pouce
J'ai besoin de votre aide car mon code bloque sur une erreur automation (80010108)(L'objet invoqué s'est déconnecté des ses clients)
J'essaie de créer 4 graphiques mais le code ne me crée que le 1er et bloque sur le deuxième avec ce message
Je vois pas du tout mais alors pas du tout ce qui fonctionne pas
Merci de votre coup de pouce
HTML:
Sub graph()
'Creation graphique
With ActiveSheet.ChartObjects.Add(Left:=100, Width:=575, Top:=45, Height:=225)
.Chart.SetSourceData Source:=Sheets("Feuil2").Range("A:A,H:H")
.Chart.ChartType = xlXYScatterLines
.Chart.Legend.Select
Selection.Delete
ActiveChart.Location Where:=xlLocationAsObject, Name:="Chart"
End With
With ActiveSheet.ChartObjects.Add(Left:=100, Width:=575, Top:=300, Height:=225)
.Chart.SetSourceData Source:=Sheets("Feuil2").Range("A:A,M:M")
.Chart.ChartType = xlXYScatterLines
.Chart.Legend.Select
Selection.Delete
ActiveChart.Location Where:=xlLocationAsObject, Name:="Chart"
End With
With ActiveSheet.ChartObjects.Add(Left:=100, Width:=575, Top:=650, Height:=225)
.Chart.SetSourceData Source:=Sheets("Feuil2").Range("A:A,N:N")
.Chart.ChartType = xlXYScatterLines
.Chart.Legend.Select
Selection.Delete
ActiveChart.Location Where:=xlLocationAsObject, Name:="Chart"
End With
With ActiveSheet.ChartObjects.Add(Left:=100, Width:=575, Top:=900, Height:=225)
.Chart.SetSourceData Source:=Sheets("Feuil2").Range("A:A,M:M,O:O")
.Chart.ChartType = xlXYScatterLines
.Chart.Legend.Select
Selection.Delete
ActiveChart.Location Where:=xlLocationAsObject, Name:="Chart"
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub