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 ?

[zert84]

C'est justement là mon problème et mon incompréhension. En utilisant

Code :

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

1
2
Selection.Copy
WrdApp.Selection.Paste

ce qui correspond à Ctrl+C - Ctrl+V, je n'obtiens pas le même résultat que manuellement (même différence qu'entre les deux tableaux de la première pièce jointe).

[aalex_38]

Pourrai-tu joindre un fichier excel avec ton tableau, que je puisse tester.

[zert84]

Bonjour,

voici le tableau incriminé dans un fichier .xls

Merci de votre aide.

[fgiambelluco]

Bonjour
Rien à faire, je n'arrive pas reproduire le problème. Le tableau collé dans word est le même que celui d'Excel (j'utilise des versions 2003).
Voila le code que j'ai utilisé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub testW()
    Dim wd As Word.Application
 
 
    Set wd = CreateObject("word.application")
    wd.Visible = True
    wd.Documents.Add
    wd.Selection.TypeParagraph
    Selection.Copy 'copie les cellules sélectionnée
    wd.Selection.Paste
    Set wd = Nothing
 
End Sub

Peut-être cela vient-il des formats utilisés dans le fichiers Word de destination !

--------------
Frédéric
http://www.access-developpement.com

[aalex_38]

Je viens de tester également et pas de problèems particulier.

[zert84]

Merci de votre aide.

En utilisant votre code j'ai le même problème. Si je le fais manuellement il n'y a pas de problème. Comme vous le dites le problème doit bien venir de Word.

Reste à définir quel paramètre de collage dans word, ou de format pose problème.

[zert84]

Que j'essaye d'y voir plus clair, quels sont vos paramètres d'options de couper coller dans word? En comparant je trouverai peut être le problème.

Merci à tous

[aalex_38]

Mes options dans word 2003

[zert84]

Bon j'ai les mêmes paramètres...

[zert84]

J'ai finalement résolu mon problème en ajoutant une macro Word. En fait comme supposé par fgiambelluco, le problème venait de styles par défauts dans Word.
Par contre je dois conserver ces styles dans mes documents. La macro que j'ai ajouté dans Word, modifie donc ponctuellement ces styles pour les tableaux qui y sont collés.

Merci de votre aide