Le portail francophone de la géomatique

Public Sub MaProcedure(strDBPath As String, strTableName As String)
Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument
Dim pMap As IMap
Set pMap = pMxDoc.FocusMap

Dim pWorkspaceFactory As IWorkspaceFactory
Set pWorkspaceFactory = New AccessWorkspaceFactory

' --ouverture de l'espace de travail
Dim pFWorkspace As IFeatureWorkspace
Set pFWorkspace = pWorkspaceFactory.OpenFromFile(strDBPath, 0)

Dim pWorkspace As IWorkspace
Set pWorkspace = pFWorkspace 'QI

Dim pEnumDatasetName As IEnumDatasetName
Set pEnumDatasetName = pWorkspace.DatasetNames(esriDTTable)
Dim pDatasetname As IDatasetName
Set pDatasetname = pEnumDatasetName.Next
Dim BooTableExist As Boolean
BooTableExist = False

Dim pRow As IRow
Dim pTable As ITable

'Definition d'une collection de champs :
Dim pField1 As IFieldEdit
Set pField1 = New Field
Dim pField2 As IFieldEdit
Set pField2 = New Field
Dim pField3 As IFieldEdit
Set pField3 = New Field

With pField1
  .Name = Code_sit
  .Type = esriFieldTypeString
  .Length = 50
End With
With pField2
  .Name = groupe
  .Type = esriFieldTypeString
  .Length = 50
End With
With pField3
  .Name = Detail
  .Type = esriFieldTypeString
  .Length = 50
End With
Dim pFieldsEdit As IFieldsEdit
Set pFieldsEdit = New Fields
pFieldsEdit.AddField pField1
pFieldsEdit.AddField pField2
pFieldsEdit.AddField pField3

'Creation d'une nouvelle table
Set pTable = pFWorkspace.CreateTable( essai , pFieldsEdit, Nothing, Nothing,  )

' C'est ici que ca coince :
' Message d'erreur : element non trouve dans cette collection

Set pRow = pTable.CreateRow                                                                                                '
pRow.Value(0) = "essai2"
pRow.Store

End Sub