Envoi données d'Excel vers Word

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:

---

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

---

Bonjour,

si je me réfère à ceci

Citation:

---

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

---

, ton code n'effectue pas ce genre d'opération. Ton code va alimenter des signets, signets qui seront remis à vide par fermeture du modèle ou par la méthode .delete

Exemple de remplissage d'un signet puis de remise à vide.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Workbooks(Detailled_workbook).Sheets(Details_Sheet).Range(Bonus_Range_Detail).Copy Bonus_Word.Bookmarks("Target").Range.PasteSpecial _ Link:=True, DataType:=wdPasteOLEObject, Placement:=wdInLine   ' Clear at "Target" bookmark position 'Bonus_Word.Characters(Bonus_Word.Bookmarks("Target").Start + 1).Delete 'Remove Inserted Contents at "Target" bookmark With Bonus_Word.Bookmarks("Target") Bookstart = .Start Bookend = .End End With   Set Myrange = Bonus_Word.Range(Start:=Bookstart, End:=Bookend) Myrange.Delete End If

---

Pour ce qui es des champs, beaucoup plus souple à manier, la syntaxe est différente:

Code:

---

1 2 3 4

With Workbooks(Personal_workbook).Sheets(Pers_Information_Sheet) 'Populate Word Fields 'Name (1) Bonus_Word.Fields(1).Result.Text = .Range("D" & Idx)

---

J'espère que cela peut-t'éclairer.;)