Discussion :

[zert84]

bonjour,

je suis confronté à un problème de rendu suite au collage d'un tableau excel dans word (au format html).

Lorsque je copie une plage de cellule dans excel (ctrl+C) et que je le colle (ctrl+V) dans Word tout se passe bien et le rendu est satisfaisant.

Par contre quand je tente d'automatiser cette action en VBA depuis Excel, le rendu n'est plus bon (j'utilise pourtant le code obtenu en enregistrant la macro de mes actions). En effet la hauteur des cellules est trop important.
Vous pouvez visualiser le problème sur l'image en pièce jointe. Le tableau du bas correspond à mon souhait et à ce que j'obtiens manuellement. Celui du haut au résultat automatique.

Voici le code utilisé (plage et fichier étant des variables définies dans un autre sub.

Code :

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

1
2
3
4
5
6
7
 plage.Copy
Set WdApp = GetObject(, "Word.Application")
    Set WdDoc = WdApp.Documents.Open(Fichier)
If WdDoc.Bookmarks.Exists(Nom) Then
With WdApp
.Selection.PasteExcelTable False, False, False
End if

J'ai essayé d'autres options d'export mais elles me posent d'autres problèmes comme le non respect des cellules fusionnées (export en RTF), et l'export en image ne convient pas non plus niveau rendu.

Merci d'avance de votre aide.

[aalex_38]

Une solution pour coller des images que j'espère satisfaisante en utilisant :

Code :

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

.PasteSpecial Link:=False, DataType:=wdPasteBitmap, Placement:=wdFloatOverText, DisplayAsIcon:=False

un exemple perso :

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
35
36
Private Sub Ouvreword()
'
' Ce programme recherche
On Error GoTo Line1
 
Dim Wchemin As Variant
Dim WrdApp As Object
Dim wrdDoc As Object
Dim Mycell As Range
 
On Error GoTo Line1
 
 Wchemin = Application.GetOpenFilename("doc(*.doc), *.doc")
 
Set WrdApp = CreateObject("Word.Application")
Set wrdDoc = WrdApp.Documents.Open(Wchemin)
WrdApp.Visible = True
Dim range1 As Word.Range
Dim range2 As Word.Range
Dim Maligne As Integer
 
Selection.Copy
 
WrdApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteBitmap, Placement:=wdFloatOverText, DisplayAsIcon:=False
 
Line1:
 
Set WrdApp = Nothing
Set wrdDoc = Nothing
 
If Err.Number > 0 Then
    MsgBox Err.Number & Err.Description
End If
 
 
End Sub

[zert84]

merci aalex_38 de ton aide.
malheureusement ta solution ne résout pas mon problème. Avec ton code, j'obtiens des images "vides" si je désactive le rafraichissement de l'écran lors du fonctionnement de la macro.
Une fois réactivé j'obtiens bien des images mais assez floues et surtout une partie des informations contenues dans les cellules n'apparait pas même si elles sont visibles sur le tableau d'origine sous Excel.

Donc j'aimerai éviter de passer par des images. Sans images, la qualité visuelle est bonne, seule la hauteur des lignes diffèrent entre un collage manuel ou automatique.

Encore merci en tous cas.

[aalex_38]

Et comme ça ? :

Code :

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

1
2
Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement _
        :=wdInLine, DisplayAsIcon:=False

[zert84]

Avec ce dernier code, j'obtiens des objets excel qui correspondent à des parties seulement des tableaux. Les tableaux d'origine sont tronqués.

Voici un apperçu de ce que j'obtiens (avec le même tableau que sur la première pièce jointe)

Merci de ton aide

[aalex_38]

Lorsque je copie une plage de cellule dans excel (ctrl+C) et que je le colle (ctrl+V) dans Word tout se passe bien et le rendu est satisfaisant

.

Et si tu reproduit ça dans le code ?

Code :

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

1
2
Selection.Copy
WrdApp.Selection.Paste

Tu devrais avoir la même chose non ?