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