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)
J'ai oublié de mettre le message d'erreur:
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
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
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
Partager