(Re)Bonjour !

C'est encore moi! Décidement ce début d'année est difficile...

Alors voilà : j'essais de créer un graphique en tant qu'objet sur une feuille excel.

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub GenererGraphes()
 
        Dim xlRange As Excel.Range
        xlRange = GetSheet(5).Range("$A$4:$B$14")
 
        xlBook.Charts.Add()
        With xlBook.ActiveChart
            .ChartType = XlChartType.xlColumnClustered
            .SetSourceData(xlRange)
            .Location(XlChartLocation.xlLocationAsObject, "Synthèse")
            .HasTitle = True
            .ChartTitle.Characters.Text = "UN GRAPHIQUE"
            .HasLegend = False
            .ApplyDataLabels(XlDataLabelsType.xlDataLabelsShowValue, False)
        End With
 
    End Sub
A la ligne ".HasTitle..." l'appli lève l'exception suivante : "Exception de HRESULT : 0x800401A8."

Si je commente cette ligne, c'est la ligne d'après qui lève l'exception.
Si je commente ces 2 lignes , c'est la ligne d'après qui lève l'exception.
Si je commente ces 3 lignes , c'est la ligne encore après qui lève l'exception.
et enfin, si je commente les 4 dernières lignes du bloc "With", ça marche!

Je ne comprends d'où vient cette erreur. Pour le code, je me suis inspiré d'une macro Excel (comme indiqué dans un des posts )

Merci pour votre aide