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