Discussion :

[sat478]

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

[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

[SfJ5Rpw8]

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

tout est dans le commentaire

[sat478]

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 :

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

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

[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

[SfJ5Rpw8]

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

[SilkyRoad]

bonjour

j'espere que cette adaptation pourra t'aider

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
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

[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