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 : Sélectionner tout - Visualiser dans une fenêtre à part
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