Discussion :

[laurentdusseau]

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

[Godzestla]

Bonjour,

si je me réfère à ceci

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 :

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

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 :

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

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.