[XL-2010] Envois graphiques excel vers word vba

Bonjour,

J'aimerais envoyer des graphiques réalisés sous excel vers word (à des endroits précis) en vba.
J'ai trouvé un code qui ne marche pas donc j'aimerais savoir si quelqu'un pouvait m'aider, merci?

(J'ai crée un signet1 sous word)

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

J'ai oublié de mettre le message d'erreur:

Erreur d'execution 91
variable objet ou variable de bloc with non définie

et quand je mets debogage:

Set graphique = Faits_constates.Shapes("Graphique 1")

Merci et bonne soirée