Lien Word/Excel

[leaure]

Bonjour,

Je cherche a transferer des données excel dans des signets d'un document word precis en plusieurs etapes.

Tester si le document word est deja ouvert, si oui, transfere les donnees, si non, l'ouvrir puis transferer les donnees.

Malheuresement, avec mon code ci dessous, lorsque je transfert une premiere fois dans mon doc pas de pb, mais la deuxième, il ne trouve plus de document word ouvert alors que celui ci est toujours ouvert ?!??

Merci pour votre aide

Code :
Sub ControleSiDocumentWordOuvert()
Dim Appli As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte


On Error Resume Next
Set Appli = GetObject(, 'Word.Application')
Appli.ShowMe
Set WordDoc = Appli.Documents('C:\\Documents and Settings\\Auré\\Bureau\\test.doc')

If WordDoc Is Nothing Then
Set WordApp = CreateObject('word.application') 'ouvre session word
Set WordDoc = WordApp.Documents.Open('C:\\Documents and Settings\\Auré\\Bureau\\test.doc') 'ouvre document Word
WordApp.Visible = False 'word masqué pendant l'operation
For i = 1 To 3
WordDoc.Bookmarks('Signet' & i).Range.Text = Cells(i, 1)
Next i
WordApp.Visible = True
Else
For i = 1 To 3
WordDoc.Bookmarks('Signet' & i).Range.Text = Cells(i, 1)
Next i
End If

End Sub