[VBA-E]Insertion graphique Excel dans Word

Version imprimable

18/04/2006, 15h50
sat478

[VBA-E]Insertion graphique Excel dans Word

Bonjour,

grâce à du VBA je créé automatiquement des graphiques dans excel qui sont placés directement dans des feuilles (ce sont donc des onglets).

Je souhaite désormais insérer ces graphiques dans un document word à des emplacements délimités par des onglets.

Mais comment faire ? En particulier comment choisir les graphiques ?

Les solutions que j'ai trouvé sur le net ne fonctionnent pas :(
19/04/2006, 10h16
sat478

Petite question concernant la solution proposée :

Dans la ligne de code :

Sheets("Feuil1").ChartObjects(1).Copy 'copie le 1er graphique de la Feuil1

Sheets("Feuil1") correspond à mon onglet ? Et dans ce cas chartobjects(1) correspond à quoi ? En particulier l'incrémentation 1 ?

C'est là que c'est flou
19/04/2006, 10h25
SfJ5Rpw8

Citation:

Sheets("Feuil1").ChartObjects(1).Copy 'copie le 1er graphique de la Feuil1

tout est dans le commentaire ;)

Mes graphiques ne sont pas placés sur des feuilles à côté de tableaux mais ce sont directement des feuilles, donc directement des onglets.

Et le code proposé ne fonctionne pas, il ne reconnaît pas le chartobject justement

J'utilise donc ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub OuvrirFichierWord() Set appWord = CreateObject("Word.application") appWord.Visible = True Set docWord = appWord.Documents.Open(Doc) var1 = "Graphe" 'nom de mon onglet var2 = "classeurgraphique" 'nom de mon signet dans word Call CollageGraphique(var1, var2) End Sub Sub CollageGraphique(nomgraphique, nomonglet) Sheets(nomgraphique).Select ActiveSheet.ChartObjects.Select ActiveChart.ChartArea.Copy docWord.Bookmarks.Item(nomonglet).Select docWord.Selection.PasteSpecial link:=False, _ DataType:=wdPasteEnhancedMetafile, _ Placement:=wdInLine, DisplayAsIcon:=False End Sub
Or c'est sur la ligne docWord.selection.pastespecial que j'ai un message d'erreur :propriété ou méthode non géré par cet objet

19/04/2006, 11h39
sat478

Non cela fonctionne pas non plus à priori cela ne provient pas des options link... mais directement de la méthode selection.pastespecial mais je vois pas pourquoi
19/04/2006, 12h22
SfJ5Rpw8

et elle est déclaré ou ta variable docword ?

bonjour

j'espere que cette adaptation pourra t'aider

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Dim DocWord As Object
Sub OuvrirFichierWord()
Dim Var1 As String, Var2 As String
Dim appWord As Object
Set appWord = CreateObject("Word.application")
appWord.Visible = True
Set DocWord = appWord.Documents.Open("C:\leDocument.doc")
Var1 = "Graphe" 'nom de mon onglet
Var2 = "classeurgraphique" 'nom de mon signet dans word
Call CollageGraphique(Var1, Var2)
End Sub
 
Sub CollageGraphique(nomgraphique, nomonglet)
Sheets(nomgraphique).ChartArea.Copy
DocWord.Bookmarks.Item(nomonglet).Range.PasteSpecial _
link:=False, DataType:=wdPasteBitmap
End Sub

bonne journée
michel

19/04/2006, 14h26
sat478

Merci à tous pour vos propositions. Oui Michel, cela fonctionne parfaitement mon graphqiue s'insère bien à l'endroit prévu. Comme mes prochaines pages seront en paysage, je vais chercher pour lui faire faire une rotation au mais c'est nickel merci beaucoup.

@+

Sat478