Macro lancement word dans Excel, Pb d'éxécution

Bonjour à tous,

J'ai la macro suivante pour lancer word depuis Excel :

Sub LancerWord()
Dim AppWord As Word.Application
Dim wordDoc As Word.Document
Set wordApp = CreateObject('Word.Application')
Set wordDoc = Wordapp.Documents.Open(C:\\Documents and Settings\\Administrateur\\Mes documents\\AR_Cde.doc')
End Sub

Qd je l'éxécute dans VBE, cela fonctionne mais quand je retourne ouvrir mon classeur rien ne se produit...

Pouvez-vous m'aider... merci