graphique par macro, erreur : l'objet va etre deconnecté

[valou]

bonjour,

Une nouvelle fois je m'en remet à vous concernant la création d'un graphique par macro.

Voici la procedure que j'ai cree pour pouvoir inserer dans une feuille un graphique.
Le problème est qu'elle declenche une erreur : 'erreur sur l'object, deconnection de l'object automation...' ou quelque chose comme ca.

L'un d'entre vous sait-il d'ou vient le problème, je ne dois manisfestement pas creer ce graphique comme il faut...

'permet de creer un graphique
Sub Creer_Graphique(feuille As String, prem_ligne As Integer, der_ligne As Integer, titre As String)

'variable
Dim Graph As ChartObject
Set Graph = Worksheets(feuille).ChartObjects.Add(600, 50, 650, 240)

'Worksheets(feuille).ChartObjects(1).Select
'Selection.Name = titre
With Graph.Chart
.ChartType = xlColumnClustered 'type de graphique : histogramme
.SetSourceData source:=Sheets(feuille).Range("D" & prem_ligne & ":E" & der_ligne), PlotBy:=xlColumns 'source
.Location Where:=xlLocationAsObject, Name:=feuille 'c'est un graphique mis dans une feuille
.HasLegend = False 'legende
.ApplyDataLabels Type:=xlDataLabelsShowNone, LegendKey:=False 'pas d'étiquettes
.HasDataTable = False 'pas de tableau des données
.HasTitle = True 'titre
.ChartTitle.Characters.Text = titre
End With


...
set graph = nothing

end sub
l'erreur se déclenche sur la ligne "Location"


Merci d'avance,

 

[valou]

Rebonjour,

Voici exactement l'erreur quise declenche :

Erreur d'execution '-2147417848(80010108)'
Erreur automation

L'objet invoqué s"est deconnecté de ses clients


Merci d'avance