Exporter un graphique Excel sur le signet d'un fichier word

Bonjour,

Je cherche à exporter mon graphique excel sur mon fichier word à l'emplacement souhaité. Pour le moment ma formule me permet bien de transférer mon graphique sur mon fichier word mais il se met n'importe où et pas au niveau de mon signet (qui se nomme "Signet01").

Sub graph()

Dim EmpDoc

'récupère l'emplacement et le nom de fichier dans la variable EmpDoc

EmpDoc = Sheets("Parametreseditions").Range("B1").Value & "\" & Sheets("Parametreseditions").Range("B2")

MsgBox (EmpDoc)

'ouvre le document word

Set WordApp = CreateObject("word.Application")

WordApp.Visible = True

Set WordDoc = WordApp.Documents.Open(EmpDoc)

Sheets("Graphiques").Activate

ActiveSheet.ChartObjects("Graphique 4").Copy

WordDoc.Range.PasteAndFormat (13)

End Sub

Voici ma formule pour le moment. Merci d'avance pour votre aide:)

Bonjour,

Et à quel moment a-t-on demandé à Excel de mettre le graphique sur le "signet 01" ?

Pour faire appel à lui, ce devrait être ainsi :

WordDoc.Bookmarks("signet01")

pour lui mettre du texte, on fait suivre :

.Range.Text

Pour lui mettre une image, ça doit être quelque chose du genre :

.InlineShapes.AddPicture

Je n'ai pas demandé d'afficher au niveau du signet car je n'y arrive pas. J'aimerai savoir où mettre la ligne de code et savoir qu'elle est la ligne de code qui me permet de replacer mon graphique à l'endroit précis ou je le veux (dans mon cas, au niveau du signet01)

C'est bon, problème résolu en associant tes petites formules, merci de ton aide

ah j'étais justement en train de te répondre.

N'hésite pas à mettre le code modifié, si ça peut servir à d'autres.

Voici le code final :

Sub graph()

Dim EmpDoc

'récupère l'emplacement et le nom de fichier dans la variable EmpDoc

EmpDoc = Sheets("Parametreseditions").Range("B1").Value & "\" & Sheets("Parametreseditions").Range("B2")

MsgBox (EmpDoc)

'ouvre le document word

Set WordApp = CreateObject("word.Application")

WordApp.Visible = True

Set WordDoc = WordApp.Documents.Open(EmpDoc)

Sheets("Graphiques").Activate

ActiveSheet.ChartObjects("Graphique 4").Copy

WordDoc.Bookmarks("Signet01").Range.PasteAndFormat (13)

End Sub

Encore merci pour le coup de pouce;)

Je pensais qu'il faudrait

.InlineShapes.AddPicture

Finalement, il te manquait juste le bookmark, qui correspond pour Word à l'index, tu avais tout le reste.