Discussion :

[Yvanou]

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

[QuestVba]

Bonjour

Voici un code

Code :

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

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

[Yvanou]

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

[QuestVba]

Tu peux choisir de travailler avec un signet dans word

Code :

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

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 !