Transfert données word=>excel en vba

Version imprimable

Bonjour à tous,
J'ai écris le programme suivant pour le transfert automatique de données excel vers word, en cliquant sur un bouton renvoyant vers la macro "Excelversword".
La manipulation marche très bien lorsqu'on lance la macro pour la première fois. Si je relance la macro, j'obtiens le msg d'erreur suivant: "erreur d'execution 462, le serveur distant n'est pas dispo ou n'existe pas".
Pouvez vous m'aider à résoudre ce pb?
Merci d'avance!

Voici le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub Excelversword() Dim A As String Dim AppWD As New Word.Application Set AppWD = CreateObject("Word.application") A = ThisWorkbook.Worksheets("Sheet1").Range("B4") AppWD.Visible = True AppWD.Activate AppWD.Documents.Open ("C:\Documents and Settings\Mes documents\Doc2.doc") ActiveDocument.Bookmarks("Titel").Range = A 'AppWD.ActiveDocument.SaveAs NomSource & ".doc" AppWD.ActiveDocument.Close Set AppWD = Nothing End Sub

bonjour niko,

essaie comme ça,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
On Error Resume Next
Dim WordApp As Object
Dim WordDoc As Object
Dim Client As String
Dim A As String
 
A = ThisWorkbook.Worksheets("Sheet1").Range("B4")
 
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open("C:\Documents and Settings\Mes documents\Doc2.doc")
WordApp.Visible = True
With WordDoc
  .Bookmarks("Titel").Range = A
  .Save
End With
WordApp.Close
Set WordApp = Nothing

04/05/2010, 23h06
niko67

Merci Isabelle! Cela marche parfaitement!
Nico.