1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Sub Bouton3_Cliquer()
'Récupération du graphique qui, dans mon exemple, se trouve sur la feuille 1
'et se nomme "Graphique 1"
Dim graphique As Shape
Set graphique = Faits_constates.Shapes("graphique1")
On Error GoTo fin
'Nouvelle instance de Word
Dim wordApp As New Word.Application
'Ouverture du document Word
Dim wordDoc As Word.Document
Set wordDoc = wordApp.Documents.Open("C:\Documents and Settings\pierre\Bureau\A faire\Automatiser graphiques\Test_Grand_Toul12.doc")
'Copie le graphique
graphique.Copy
'Colle le graphique dans le document Word
wordDoc.Bookmarks("signet1").Range.PasteAndFormat wdPasteDefault
'Ferme le document word avec sauvegarde
wordDoc.Close True
fin:
'Quite l'application Word
wordApp.Quit
Set wordApp = Nothing
End Sub |
Partager