Importer une sélection Word en Excel

Bonjour le Forum,

Je souhaiterais importer en excel du texte contenu dans un fichier word. Pour ce faire j'utilise le code suivant:

Dim wrd As Object
Dim appword As Object

Set wrd = CreateObject("Word.Application")
wrd.Visible = True
Set appword = wrd.Documents.Open(str_FilePath & "INVMES1.doc")

With wrd.Selection
.MoveDown Count:=100, Extend:=wdExtend
End With
wrd.Selection.Copy


Plutot que de sélectionner le texte, le code déplace simplement le curseur 100 lignes plus bas ce qui rend le COPY impossible. Il semble que le paramètre "wdExtend" soit ignoré...

Le même code exécuté à partir de Word fonctionne:

Selection.MoveDown Count:=100, Extend:=wdExtend
selection.copy

D'avance merci pour votre aide.

A bientôt

Jacques