L
leaure
Guest
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
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