Excel vers Word

Bonjour à tous !

J'essaie de créer un code qui va me permettre de transférer de l'information présente dans Excel vers Word.

J'ai écrit la petit code suivant :

Sub automateword()

    Dim wdapp As Word.Application
    Dim wdDoc As Word.document

    Dim bWeStartedWord As Boolean

    On Error Resume Next
    Set wdapp = GetObject(, "Word.Application")
    On Error GoTo 0
    If wdapp Is Nothing Then
        Set wdapp = CreateObject("Word.Application")
        bWeStartedWord = True
    End If

    wdapp.Visible = True 'Optional
    wdapp.Activate 'Optional

'    On Error GoTo ExitPoint 'Commenté durant le debug

Set wdDoc = wdapp.Documents.Open("c:/ ..... paths") ' J'ai enlever l'adresse ici volontairement pour ne pas l'afficher

Dim bmRange As Range

Set bmRange = wdDoc.Bookmarks("nom").Range

bmRange.Text = "Inserted Text"

wdDoc.Bookmarks.Add _
   Name:="Nom", _
   Range:=bmRange

End Sub

Le problème, c'est que je suis incapable de "set" la valeur de bmRange, car j'ai un erreur d'exécution de type 13. Le nom du bookmarks est le bon et je ne trouves pas où est le problème! Quelqu'un peut m'aider ?

Martin

Bonjour,

Ton post est clôturé (coche verte). Tu as trouvé la solution ?