Copier Cellules de Excel vers Word

[thom02]

Bonjour,

J'aimerais copier un signet contentant plusieurs lignes vers word.

Avec le code ci dessous cela fonctionne très bien dans qu'il s'agit d'une cellule ("A1:A1") mais dès que j'essaye avec plusieurs lignes cela ne fonctionne pas.

De plus dans ces lignes il y a du texte et une image. Est ce que cela change quelque chose?

D'avance merci

Set TexteACopier= ThisWorkbook.Sheets("Texte").Range("A1:A9")
With LeDocWord
.Bookmarks("Texte").Range = TexteACopier

 

[kjin]

Re : Copier Cellules de Excel vers Word

Bonsoir,
Quoi fait-on avec si peu ?
A+
kjin

 

[thom02]

Re : Copier Cellules de Excel vers Word

Bonjour,
Merci pour ta reponse
Voici le code complet :

Public Sub Test()

Dim Lettre As String
Dim ObjWord As Word.Application
Dim LeDocWord As Word.Document

On Error Resume Next

Lettre = "C:\Documents and Settings\Test.doc"
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = True

Set LeDocWord = ObjWord.Documents.Open(Lettre)

Set TexteACopier= ThisWorkbook.Sheets("Texte").Range("A1:A9")

With LeDocWord
.Bookmarks("Texte").Range = TexteACopier
End With


Set ObjWord = Nothing

End Sub

 

[thom02]

Re : Copier Cellules de Excel vers Word

c'est bon j'ai résolu mon probleme...
Merci tout de même !!!

ThisWorkbook.Sheets("Texte").Range("A1:A9").Copy
LeDocWord.Bookmarks("Texte").Range.PasteSpecial