Exporter un graphique Excel vers un document Word

Bonjour,

Je souhaiterais savoir comment exporter un graphique contenu dans un classeur Excel vers un document Word.

J'ai trouvé dans les FAQ le moyen de copier/coller des données de cellules grâce à une macro VBA mais je ne sais pas comment faire pour les graphiques.

Quelqu'une aurait des pistes ?

Merci d'avance

Bonjour

Voici un code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Export_Graph()   Dim Wrd As Object, WordDoc As Object Set Wrd = CreateObject("Word.Application") Set WordDoc = Wrd.Documents.Add Wrd.Visible = True ActiveSheet.ChartObjects("Graphique 1").Copy WordDoc.Range.PasteAndFormat (13)     End Sub

---

Bonjour,

Merci pour votre réponse. Le code fonctionne en partie: "PasteAndFormat" ne fonctionne pas. Seul "Paste" fonctionne mais du coup, le graphe se place n'importe où.

Autre chose, je dispose d'un modèle de document Word dans lequel je souhaiterais placer le graphe à des endroits précis dans le corps du texte.

Comment faire pour que mes graphes s'affichent aux bons endroits que j'aurais choisis ?

Merci d'avance

Tu peux choisir de travailler avec un signet dans word

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim Wrd As Word.Application 'Créer une instance de word Set Wrd = CreateObject("Word.Application")   'Ouvrir ton document Wrd.Documents.Open "C:\Temp\Doc1.doc"   'rendre le document word visible Wrd.Visible = True   'cherche le signet dans la feuille word Wrd.Selection.GoTo What:=wdGoToBookmark, Name:="Signet1"

---

et puis tu colles !