Le portail francophone de la géomatique

Bonjour,

Je debute en programmation vba et j'eprouve quelques difficultes. Je
souhaite recuperer la valeur d'un champ (INSEE_Commune) pour tous les objets
selecionnes. Ca ne marche pas. Pouvez vous m'aider

nummap = Gxpl.XgoGetMapID
numtype = XtnGetTypeNumber(nummap, Commune )
numsoustype = XtnGetSubTypeNumber(nummap, Commune , Commune )
numchamp = XtnGetFieldNumber(nummap, numtype, numsoustype, INSEE_Commune )

For i = 1 To Gxpl.XgoNumberOfSelectedObjects
num = XtnGetSelectedObject(nummap, i)
succes = XtnGetFieldValue(nummap, num, numchamp, valeur)
...
Next