Copier un tableau Excel dans Word

Bonjour,

Je copie une plage de cellule Excel dans Word.

Quand j'utilise la commande "PasteExcelTable" et que je met le RTF à false, il ne copie rien mais si je le mets à oui, je n'ai pas ce problème mais je perds la couleur qu'il y a dans les cellules.

J'ai essayé de vider le CutCopy avec la commande "Application.CutCopyMode = False
" mais cela n'a rien changé. J'ai essayé d'autres types de copie mais j'ai tourjous le problème.

Voici une portion du code :

Code:

---

1 2 3 4 5 6 7 8 9

Set wdDoc = wdApp.Documents.Add(sPath & "\Nom_Document.dotm") Set wdDoc = wdApp.ActiveDocument   sStart = "A7" sEnd = "B" & iRwLast_D   Worksheets(cShtDetails).Range(sStart & ":" & sEnd).Copy   wdDoc.Range.PasteExcelTable False, False, False 'Commande qui cause problème.

---

Est-ce que quelqu'un a déjà eu ce problème?

Merci de votre aide

Jojomif

Bonjour,

il est impératif à mon sens que tu contôle que ton presse papier contienne bien le tableau excel dans un premier temps.

1)Le linktoexcel doit être à TRUE, qui imposera au document word les même modifications qu'au tableau excel

2) Dans msdn il est dit ça :

Citation:

---

WordFormatting
Type : System.Boolean
true pour mettre en forme le tableau en utilisant la mise en forme du document Word.false pour mettre en forme le tableau en fonction du fichier Excel d'origine.

---

3)Ensuite, mettre à TRUE ton RTF, si si ! :ccool:

et là pas de raison que cela ne fonctionne pas.

Toujours dan msdn, le code suivant est donné en exemple :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub BookmarkPasteExcelTable()   Me.Paragraphs(1).Range.InsertParagraphBefore() Dim Bookmark1 As Microsoft.Office.Tools.Word.Bookmark = _ Me.Controls.AddBookmark(Me.Paragraphs(1).Range, "Bookmark1")   Bookmark1.PasteExcelTable(True, False, True)   End Sub

---

Bonjour

Je pense que tu dois passer par la méthode PasteSpecial de l'objet Word

Code:

---

1 2 3

Set wDoc = wApp.Documents.Add("d:\données\excel.dotx") Range("a1:f6").Copy wApp.Selection.PasteSpecial link:=False, Placement:=wdInLine, DataType:=wdPasteOLEObject

---

Tu n'as pas besoin de la deuxième ligne "Set wdDoc = wdApp.ActiveDocument" puisque ton objet est déjà instancié.

Bonjour,

attention si tu veux utiliser ton document word plusieurs fois pour simuler un publipostage, il faudra utiliser la méthode delete à la position du bookmark avant de refaire un pastespecial sinon le résultat sera le cumul des différents pastespecial sur ce bookmark.

Voici un exemple, à adapter à tes besoins :

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

Dim Myrange As Variant Dim Bookstart As Long Dim Bookend As Long     'Objectif (4)   'remplir le signet Target Workbooks(Detailled_workbook).Sheets(Details_Sheet).Range(Bonus_Detail_SheetName_Location) = Workbooks(Detailled_workbook).Sheets(Details_Sheet).name Workbooks(Detailled_workbook).Sheets(Details_Sheet).Range(Bonus_Range_Detail).Copy Bonus_Word.Bookmarks("Target").Range.PasteSpecial _ Link:=True, DataType:=wdPasteOLEObject, Placement:=wdInLine   '....... 'effacer le signet Target ' Clear at "Target" bookmark position 'Bonus_Word.Characters(Bonus_Word.Bookmarks("Target").Start + 1).Delete 'Remove Inserted Contents at "Target" bookmark With Bonus_Word.Bookmarks("Target") Bookstart = .Start Bookend = .End End With   Set Myrange = Bonus_Word.Range(Start:=Bookstart, End:=Bookend) Myrange.Delete

---

Merci à tous et un merci particulier à Pierre :ccool:

Ce qui causait mon problème aussi bizarre que cela est, c'était ma commande en trop.

Set wdDoc = wdApp.ActiveDocument

Dès que je l'ai enlevé, tout c'est mis à bien fonctionner.

Jojomif