Discussion :

[zzaboulou]

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

[SilkyRoad]

bonsoir


Refait un essai en remplaçant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WordDoc.Bookmarks(Signet).Item(Signet).Range.PasteSpecial link:=False, DataType:=wdPasteBitmap

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WordDoc.Bookmarks(Signet).Range.PasteSpecial link:=False, DataType:=wdPasteBitmap

bonne soirée
michel

[zzaboulou]

Bonjour,

Merci pour l'aide. Malheureusement, cela ne fonctionne pas mieux
Erreur d'exécution 5342 : le type de données est indisponible
L'erreur est sur la ligne de code correspondant au "coller".

Quand j'arrête l'exécution de la macro et que je fais un "paste" dans word, mon graphe est bien coller dans mon document.

Bonne journée
Zaboulou

[SilkyRoad]

bonjour

Réessaye avec cette synthaxe pour le collage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range.PasteSpecial _
Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdInLine, DisplayAsIcon:=False

michel

[zzaboulou]

Merci beaucoup. Ça fonctionne beaucoup mieux comme ça.

Zaboulou