EXCEL VBA et bookmarks sous WORD
Bonjour,
Je sèche depuis plusieurs jours sur un programme, et j'aurais besoin de conseils éclairés...
J'utilise Excel et Word 2007, et j'ai validé la référence "microsoft 12.0 object library".
J'ai créé une feuille Word nommée "cram2.docx" sur laquelle j'ai mis des signets :"nom", "adresse",...au moyen du menu "insérer", "signets"..
Je souhaite transférer les variables "nom", "adresse"... d'une feuille Excel vers les signets de Word.
Le programme ne marche pas, il n'y a pas d'alarmes, mais rien n'est transféré !. Help...merci de votre aide,
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Dim appliword As Object
Dim mondoc As Object
Dim path As String
Dim datesaisie As Date
Dim vbDate As Date
path = ThisWorkbook.path
Set appliword = CreateObject("Word.Application")
appliword.Visible = True
appliword.Documents.Open (path & "\cram2.docx")
On Error Resume Next
mondoc.ActiveWindow.Selection ("cram2.docx")
With ActiveDocument
.Bookmarks("adresse").Range.Value = nom
.Bookmark("nom").Range.Value = adresse
End With
Set mondoc = Nothing |
