olivier

Bonjour,

J'ai créé des graphiques dans un classeur excel que je souhaite copier coller dans un rapport sous Word (via automation) à des endroits précis que j'ai repéré par des signets. Malheureusement les graphiques arrivent en vrac ds mon document Word.

Voici le code :

Sub Transfert()

Dim WordApp As Word.Application
Dim Rapport As Word.Document
Dim i As Integer

Set WordApp = CreateObject("Word.Application") 'creation session Word
WordApp.Visible = False 'word est masqué pendant l'opération
'ouverture du fichier Word
Set Rapport = WordApp.Documents.Open(ThisWorkbook.Path & "\Rapport.doc")

For i = 1 To 3 'i=Nbre de graphs à copier
Windows("Classeur1".xls").Activate
Sheets("Feuil1").Select
ActiveSheet.ChartObjects("Graphique " & i).Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Rapport.Bookmarks("Signet" & i).Select
Rapport.Range.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdInLine, DisplayAsIcon:=False
Next

WordApp.Visible = True

'fermer le document "Rapport.doc" et l'application Word
Rapport.Application.ActiveDocument.Save
WordApp.Application.Quit

Application.CutCopyMode = False

End Sub

Est ce que l'idée des signets est bonne?
Comment faire pour repositionner les graphiques?

Merci pour votre aide