Le portail francophone de la géomatique

StopOperation

Dim pDoc As IMxDocument
  Set pDoc = ThisDocument
  Dim pMap As IMap
  Set pMap = pDoc.FocusMap

  ' Trouver la couche des Points Repères
  Dim pLayer As ILayer
  Dim intCount As Integer
  For intCount = 0 To pMap.LayerCount - 1
    Set pLayer = pMap.Layer(intCount)
    If TypeOf pLayer Is IFeatureLayer Then
      If pLayer.Name = strClassEnt Then      '''''"PR_RD"
        Set pFeatLayer = pLayer
        Exit For
      End If
    End If
  Next
  If pFeatLayer Is Nothing Then
      MsgBox "La couche PR_RD n'a pas été trouvée", vbExclamation
     ' pMap.AddLayer pLayer
    Exit Sub
  End If

  ' Initialisation du workspace
  Dim pFeatClass As IFeatureClass
  Dim pTable As ITable
  Dim pDataset As IDataset
  Dim pWkSpDS As IDataset
  Dim pWkSpName As IName
  Set pFeatClass = pFeatLayer.FeatureClass
  Set pTable = pFeatClass
  Set pDataset = pTable
  Set pWkSpDS = pDataset.Workspace
  Set pWkSpName = pWkSpDS.FullName

   'ON verifie si la featureclass peut-etre mise a jour en dehors d'une session d'edition
  If Not CanEditWOEditSession(pTlayer) Then   'fonction en bas de la procedure
   ' MsgBox "Cette featureclass peut-etre mise a jour en dehors d'une session d'edition"
          pEditor.StartEditing pDataset.Workspace
  End If
        pEditor.StartOperation   (cette ligne n'est peut-etre pas neccessaire)