Bonjour à tous,

Je souhaite envoyer des données d'Excel vers Word. Le code suivant fonctionne très bien sous XL2003 mais sous XL2000, il plante sur la ligne en rouge.

J'envoie les données dans Word dans des champs texte d'un formulaire.

Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Send_datas_word()
  Dim WordApp As New Word.Application
  Dim WordDoc As New Word.Document
  Dim Sexe As String
  Set WordApp = CreateObject("Word.Application")
  WordApp.Visible = True
  
  Set WordDoc = WordApp.Documents.Open("bon.doc", ReadOnly:=True)
  
  WordDoc.Bookmarks("nom").Range.Text = ActiveWorkbook.ActiveSheet.Cells(2, 1).Value
End Sub