mystéres de la copie excel vers word

Bonjour à tous,

Aprés avoir cherché dans les forums pendant 3 jours je me décide à poster ce sujet
Je travaille sous office 2002 et un grand mystére vient de se produire en recopiant mon fichier excel :

je fais un transfert de données de Excel vers des signets dans Word en utilisant une macro dont le code est le suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim docword As Object Dim Appword As Object Set Appword = CreateObject("Word.Application") Appword.Visible = True With Appword Set docword = Appword.Documents.Open("D:\Derniere Version test\rapport\testr.doc", ReadOnly:=False) ThisWorkbook.Worksheets("feuil2").Range("A21").Copy docword.Bookmarks("NEval").Select .Selection.PasteAndFormat Type:=wdFormatPlainText docword.Bookmarks("NEval1").Select .Selection.PasteAndFormat Type:=wdFormatPlainText End With 'etc...

---

Jusqu'à présent le texte copié dans Word prenait la mise en forme de Word (ce que je souhaite).:ccool:
Maintenant, le texte va bien au signet mais il saute une ligne avant, reste au format excel et va à la ligne.:cry:

Les dll utilisées (cochées dans word et excel) sont :

visuel basic for application
microsoft exel 10.0 object library
microsoft word 10.0 object library
microsoft office 10.0 object library
microsoft form2object libray

Je ne comprends pas. quelq'un aurait il une idée

Bonjour
Avec la Référence Microsoft Word XX.X cochée

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim AppWord As New Word.Application Dim DocWord As Word.Document   AppWord.Visible = True Application.ScreenUpdating = False Set DocWord = AppWord.Documents.Open("C:\Users\user\Desktop\testr.doc", ReadOnly:=False) ThisWorkbook.Worksheets("Feuil2").Range("A21").Copy With DocWord .Bookmarks("NEval").Range.PasteAndFormat wdFormatPlainText .Bookmarks("NEval1").Range.PasteAndFormat wdFormatPlainText Application.CutCopyMode = False .Save .Close End With Set DocWord = Nothing AppWord.Quit Set AppWord = Nothing

---

Bonjour.

Tu n'as pas besoin de sélectionner ni copier. En FAQ : Comment exporter des données Excel vers plusieurs signets d'un document Word ? ;)

Cordialement,

PGZ

merci beaucoup pour vos réponses malheureusement sur le code

Code:

---

1 2 3

Dim AppWord As Word.Application Set AppWord = New Word.Application Dim DocWord As Word.Document

---

je reçois le message d'erreur

Citation:

---

"type défini par l'utilisateur non défini"

---

Citation:

---

Avec la Référence Microsoft Word XX.X cochée

Code:

---

1 2	Dim AppWord As New Word.Application Dim DocWord As Word.Document

---

---

Effectivement je croyais l'avoir cochée.

Merci beaucoup

Bonjour,

un dernier point s'il vous plait.

J'essaye de transferer un tableau de dimension variable, avec les lignes et tout et tout, avec cette méthode et n'y arrive pas. la premiére ligne bug avez vous, s'il vous plait, une idée de ce qui peut bloquer ?

Code:

---

1 2 3 4

ThisWorkbook.Worksheets("Feuil2").Range([A1].End(xlDown), [F1]).Copy   With DocWord .Bookmarks("Eval").Range.PasteAndFormat wdFormatPlainText

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim AppWord As New Word.Application Dim DocWord As Word.Document Dim LastLig As Long   AppWord.Visible = True Application.ScreenUpdating = False Set DocWord = AppWord.Documents.Open("C:\Users\user\Desktop\testr.doc", ReadOnly:=False) With ThisWorkbook.Worksheets("Feuil2") LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row .Range("A1:F" & LastLig).Copy End With With DocWord .Bookmarks("Eval").Range.Paste Application.CutCopyMode = False .Save .Close End With Set DocWord = Nothing AppWord.Quit Set AppWord = Nothing

---