VBA copie d'information de Word à excel

Bonjour,
je travail actuellement sur un système de copie de données d'une feuille vers un document .
J'ai un problème sur l'ouverture de fichier.
Avec le code :
'Ouverture appli word
Dim lecture As Object
Set lecture = CreateObject("Word.Application")
'lecture.ScreenUpdating = False

lecture.ChangeFileOpenDirectory "C:\Documents and Settings\invite2\Mes documents\Articles images"
lecture.Documents.Open Filename:="RP.docx"


Le fichier s'ouvre en lecture seule et bug complètement par la suite

Est ce que quelqu'un a une idée pour que ca marche ou pour le faire autrement.

Merci de votre aide


Julien