Bonjour à tous,

Dans un template Word, j'ai un signet. A l'aide d'une macro, je fais des courbes dans Excel. Je voudrai donc coller ce graphe à la place de mon signet dans mon document Word.

Pour copier mon graphe, j'utilise :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 ActiveChart.ChartArea.Copy
Voila le code de ma fonction permettant de coller ce graphe :
------------------------------------------------
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
Function InsertGraphWord(CheminWord As String, Signet As String)
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Open(CheminWord,, True)
 
 WordDoc.Bookmarks(Signet).Item(Signet).Range.PasteSpecial link:=False, DataType:=wdPasteBitmap
 
'Ferme le document word en sauvegardant les données
    WordDoc.Close
    WordApp.Quit
End Function
---------------------------------------

Merci beaucoup pour votre aide.
Zaboulou