Discussion :

[jojomif]

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 :

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

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

[Basicnav]

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 :

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 !

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

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

Code :

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

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

[Pierre Fauconnier]

Bonjour

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

Code :

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

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é.

[Godzestla]

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 :

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
 
    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

[jojomif]

Merci à tous et un merci particulier à Pierre

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