Discussion :

[xavion]

Bonjour je lutte depuis un moment pour faire marche un copier/coller entre excel et word. Le code marchait sous Office 2011 mais plus sous 2016.
Le copy marche mais j'arrive pas à coller et j'ai tout essayé enfin je pense..
Je vous mets mon code

Code :

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

1
2
3
4
5
 
    Sheets("Base").Range("D" & RowQuestion + 1).Copy
    c.Activate
    c.Bookmarks("Document" & k).Select
    Selection.PasteExcelTable False, False, False

c est la ligne suivante :

Code :

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

Set c = wObj.Documents.Open(LResult & "Vierge_Ecrit_LQ.doc")

Merci à tous par avance,

Xav

[Invité]

Bonjour,

Dans votre ligne

Code :

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

 Selection.PasteExcelTable False, False, False

Selection doit être un objet Word.Selection et il vous faut instancier une variable de ce type.

[xavion]

Bonjour et merci Eric,

je vous avoue que je ne comprends pas la variable. Vous pouvez développer?

Merci d'avance,

Bonjour,

Dans votre ligne

Code :

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

 Selection.PasteExcelTable False, False, False

Selection doit être un objet Word.Selection et il vous faut instancier une variable de ce type.

[Invité]

Code :

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

1
2
3
4
5
6
7
 
Dim MaSelection As Object  ' ou  Word.Selection
 
    Set C = wObj.Documents.Open(LResult & "Vierge_Ecrit_LQ.doc")
    Set MaSelection = wObj.Selection
    C.Bookmarks("Document" & k).Select
    MaSelection.PasteExcelTable False, False, False

[xavion]

Bonjour et merci pour votre réponse mais ça bloque à la commande "paste" (ligne 7). Le programme boucle. L'information est bel et bien copiée depuis excel et quand je fais un coller manuel je retrouve bien ce que je veux coller mais cela ne marche pas dans word.

[Invité]

Bonjour,

Mettez en ligne votre document pour voir.