Discussion :

[niko67]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sabzzz]

bonjour niko,

essaie comme ça,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[niko67]

Merci Isabelle! Cela marche parfaitement!
Nico.