Discussion :

[papyxy]

Bonjour
une erreur se produit sur une instruction (en rouge) dans la procédure

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub AtteindreSignet 
Dim Doc As Object , oCC As Object , oCursor As Object 
Dim BookMark As Object 
oCC = Doc.getCurrentController() 
  db=Doc.BookMarks
'Définit le signet cible  
BookMark = Doc.BookMarks.GetByName("emis") 

oCursor = Doc.text.createTextCursorByRange(BookMark.Anchor)  
oCC.Select(oCursor)  

End Sub

Le signet existe. Voila le message :