macro pour désigner un endroit dans le drawing et créer un texte à l'endroit désigné

bonjour
j'ai un bout de code récupérer sur V5Automation.chm ,mais je ne voit pas pourquoi ca ne fonctionne pas

Code:

Public document        As document
Public DrwDocument     As DrawingDocument
Public selection      As selection
Public DrawingSheets       As DrawingSheets
Public DrawingSheet         As DrawingSheet
Public DrawingViews        As DrawingViews
Public DrawingView          As DrawingView
Public DrawingTexts        As DrawingTexts
Public Mytext          As DrawingText


Sub CATmain()

Set document = CATIA.ActiveDocument
Set selection = document.selection
Set DrawingSheets = document.Sheets
Set DrawingSheet = DrawingSheets.ActiveSheet
Set DrawingViews = DrawingSheet.Views
Set DrawingView = DrawingViews.ActiveView
Set DrawingTexts = DrawingView.Texts

 'We propose to the user that he specify a location in the drawing window
 Dim DrawingWindowLocation(1)
 Status = document.Indicate2D("select a location into the drawing window", DrawingWindowLocation)
 If (Status = "Cancel") Then Exit Sub
 Set DrawingText = DrawingTexts.Add("Hello world", DrawingWindowLocation(0), DrawingWindowLocation(1))
End Sub

ci joint le message d'erreur
blocage sur la ligne  Status = document.Indicate2D
" />

bon j'ai trouvé cela provenait d'une mauvaise déclaration de la variable document...pff
public documents As Objet et non document
ci joint le code

Code:

'**************************************************************************************************************************
'OBJECTIF : demander à l'utilisateur de désigner un endroit dans un drawing puis créer un texte à l'endroit désigné
'**************************************************************************************************************************

Option Explicit

'déclaration des variables
Public document       As Object
Public DrwDocument    As DrawingDocument
Public selection      As selection
Public DrawingSheets  As DrawingSheets
Public DrawingSheet   As DrawingSheet
Public DrawingViews   As DrawingViews
Public DrawingView    As DrawingView
Public DrawingTexts   As DrawingTexts
Public Mytext         As DrawingText
Public status         As Variant


Sub CATmain()

Dim DrawingWindowLocation(1)

'Initialisation et création des objets principaux
Set document = CATIA.ActiveDocument
Set DrawingSheets = document.Sheets
Set DrawingSheet = DrawingSheets.ActiveSheet
Set DrawingViews = DrawingSheet.Views
Set DrawingView = DrawingViews.ActiveView
Set DrawingTexts = DrawingView.Texts


 'on propose a l'utilisateur de désignaer un endroit dans le drawing
MsgBox "Veuillez indiquer l'endroit ou le texte sera créé"
 ' on récupère l'endroit sélectionné
status = document.Indicate2D("select a location into the drawing window", DrawingWindowLocation)
If (status = "Cancel") Then Exit Sub
 ' on créer le texte
Set Mytext = DrawingTexts.Add("création d'un texte à l'endroit désigné par l'utilisateur", DrawingWindowLocation(0), DrawingWindowLocation(1))

End Sub

En fait c'est une histoire de "Early and Late Binding" https://msdn.microsoft.com/en-us/library/0tcf61s1.aspx

Ici c'est bien expliqué pourquoi on à cette erreur alors qu'on veux faire du Early binding en VBA catia
https://v5vb.wordpress.com/2010/07/29/restricted-interfaces/