Bonjour,

J'aimerai pouvoir publier un graphique avec la collection PublishObjects. Cependant lorsque je renseigne un type xlSourceChart j'ai une erreur 1004. J'ai beau chercher les références à renseigner dans la méthode je n'arrive pas à débuguer. Quelqu'un a-t-il une idée?

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
 
Sub PublicationGraphique()
 
Dim chrt As ChartObject
Dim ws As Worksheet
Set ws = Sheets("Feuil1")
Dim co As ChartObject
Set co = ws.ChartObjects(1)
 
Debug.Print "Nom : " + co.Chart.Name
 
With ActiveWorkbook.PublishObjects.Add(xlSourceChart, "graph.htm", ws.Name, co.Chart.Name, xlHtmlStatic, "div_graph", "MonGraph")
    .Publish (True)
End With
 
End Sub
Export Graphique.xlsx