VB afficher des coordonnées XY

[nitram]

Bonjour,
Je souhaite afficher des points dont les coordonnées sont présentes dans un .dbf, et ceci au lancement du .mxd.

Je pensais à un ptit code VB comme ceci =>

Private Function MxDocument_OpenDocument() As Boolean

' Create the Geoprocessor object
Dim gp As Object
Set gp = CreateObject("esriGeoprocessing.GPDispatch.1")

' Load required toolboxes...
gp.AddToolbox "C:/Program Files (x86)/ArcGIS/ArcToolbox/Toolboxes/Data Management Tools.tbx"

' Local variables...
Dim Table_Operation_dbf As String
Dim XY_Table_Operation As String
Table_Operation_dbf = "D:\08_BDD\TEST_BDD_LGM_ArcGIS\Table_Operation.dbf"

' Process: Générer une couche d'événements XY...
gp.MakeXYEventLayer_management Table_Operation_dbf, "X", "y", XY_Table_Operation, "GEOGCS['GCS_WGS_1984',DATUM['D_WGS_1984',SPHEROID['WGS_1984',6378137.0,298.257223563]],PRIMEM['Greenwich',0.0],UNIT['Degree',0.0174532925199433]];IsHighPrecision"

' Process: Add XY Coordinates...
gp.AddXY_management XY_Table_Operation

End Function

Mais ArcMap me revois un

Run-time error '-2147467259 (80004005)':
Automation error

Pour la ligne :
gp.AddXY_management XY_Table_Operation

Étant une "quiche" en VB, je m'en remet à vos bons conseils.
D'avance merci,
Nitram

[Spacejo]

Salut,

Essaye d'ajouter ceci:

Function MxDocument_OpenDocument() As Boolean

' Create the Geoprocessor object
Dim gp As Object
Set gp = CreateObject("esriGeoprocessing.GPDispatch.1")
GP.AddOutputsToMap = True
GP.OverwriteOutput = True 


' Load required toolboxes...
gp.AddToolbox "C:/Program Files (x86)/ArcGIS/ArcToolbox/Toolboxes/Data Management Tools.tbx"

' Local variables...
Dim Table_Operation_dbf As String
Dim XY_Table_Operation As String
Table_Operation_dbf = "D:\08_BDD\TEST_BDD_LGM_ArcGIS\Table_Operation.dbf"

' Process: Générer une couche d'événements XY...
gp.MakeXYEventLayer_management Table_Operation_dbf, "X", "y", XY_Table_Operation, "GEOGCS['GCS_WGS_1984',DATUM['D_WGS_1984',SPHEROID['WGS_1984',6378137.0,298.257223563]],PRIMEM['Greenwich',0.0],UNIT['Degree',0.0174532925199433]];IsHighPrecision"

' Process: Add XY Coordinates...
gp.AddXY_management XY_Table_Operation

End Function

A+
Joël

[nitram]

Merci pour la réponse,
mais j'ai la même erreur que précedemment, par contre ça pointe sur :
gp.AddOutputsToMap = True

Du coup je suis tombé sur un code qui, un peu adapté, marche parfaitement dans mon cas.
=> http://edndoc.esri.com/arcobjects/9.0/default.asp?URL=/arcobjects/9.0/samples/tables/create_a_layer_based_on_xy_data.htm