Discussion :

[Tomih]

Bonjour à tous,

j'essai d'automatiser le transfert de donnée de Excel vers des signets Word mon souci concerne la mise en place du graphique dans le signet word.

Mon code me permet d'envoyer le graphique dans le document Word, mais le graphique ne prend pas la place du contenu du signet et ce place en dessous de celui-ci et de manière aléatoire.

Je souhaite que le graphique ce place et remplace le texte du signet et si possible soit centré horizontalement.

Pour les tableaux, qu'est ce que je dois ajouter dans le code pour le centrer également.?

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
 
Dim Modèle As String
Dim Résultat As Boolean
Dim rng As String
 
Modèle = "C:\Desktop\Testmodéle.dotm" 'répertoire de stockage du modéle word"
 
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
    Set WordApp = CreateObject("Word.application")
    Set WordDoc = WordApp.documents.Add(template:=Modèle)
 
    With WordApp
        .Visible = True
 
    End With
 
ThisWorkbook.worksheets("Synthése pour word").Range("W_tréso1").Copy 'tab résultat s1
        WordDoc.ActiveWindow.Document.Bookmarks("tab_tréso1").Range.PasteExcelTable False, False, False
        ThisWorkbook.worksheets("Synthése pour word").ChartObjects("Graph_T1").Copy 'graph r1
        WordDoc.ActiveWindow.Document.Bookmarks("graph_tréso1").Range.PasteAndFormat (wdChartPicture)
 
End sub

Merci d'avance pour votre aide

[Menhir]

Personnellement, quand je dois copier un graphique Excel dans du Word (que ce soit à la main ou en VBA), je me facilite la vie en le copiant en tant qu'image.

En VBA, ça peut se faire en utilisant CopyPicture à la place de Copy.
Toutes les infos ici : https://docs.microsoft.com/fr-fr/off...ct.copypicture

Dans Word, un simple Paste devrait suffire mais si tu veux faire ça bien, tu peux faire un PasteSpecial avec wdPasteBitmap en DataType.
https://docs.microsoft.com/fr-fr/off...dpastedatatype

C'est beaucoup plus simple à manipuler dans Word.

[Tomih]

Merci beaucoup ça fonctionne !

est ce que tu sais comment je peux centrer les tableaux que j'importe dans Word?

Merci d'avance

[Menhir]

C'est une question qui concerne plutôt VBA Word.
Pour trouver la solution, tu peux commencer tes recherches ici : https://docs.microsoft.com/fr-fr/off...api/word.table