Le portail francophone de la géomatique

Bonjour !

j'essaie d'exporter des données dans de nouvelles couches et j'ai les messages d'erreur suivants (y en a pleins .... ):

-Erreur à l'export des données :
La création du curseur de recherche à échoué

-Avertissement : quelques enregistrements ne peuvent pas être exportés correctement

et enfin :
-un abonnement ne peut pas être enregistré tant que sa classe d'évènement n'existe pas

Voici le code concerné, sensé bien marché, peut etre n'ai je pas les références qu'il faut ou quelques choses comme ça .....
Merci de m'aider si jamais vous avez une idée ...

Public Sub ExportGeoToShape()

On Error GoTo EH
'Get geometry definition from input featureclass.
Dim lGeomIndex As Long
Dim sShpName As String
Dim pFields As IFields
Dim pField As IField
Dim pGeometryDef As IGeometryDef
   
Dim pDoc As IMxDocument
Dim pMap As IMap
Dim pFeatLayer As IFeatureLayer
Dim pFeatureClass As IFeatureClass
       Dim k As Integer
       For k = 0 To 7
       
Set pDoc = ThisDocument
Set pMap = pDoc.FocusMap
Set pFeatLayer = pMap.Layer(k)
Set pFeatureClass = pFeatLayer.FeatureClass

Dim pQueryFilter As IQueryFilter
Set pQueryFilter = New QueryFilter

sShpName = pFeatureClass.ShapeFieldName
Set pFields = pFeatureClass.Fields
lGeomIndex = pFields.FindField(sShpName)
Set pField = pFields.Field(lGeomIndex)
Set pGeometryDef = pField.GeometryDef

'QI from the passed in featureclass to get InDatasetName.
Dim pDataSet As IDataset
Set pDataSet = pFeatureClass
Dim pInDatasetName As IDatasetName
Set pInDatasetName = pDataSet.FullName

'Set up outworkspacename for new shape file.
Dim pWorkspaceName As IWorkspaceName
Set pWorkspaceName = New WorkspaceName
pWorkspaceName.WorkspaceFactoryProgID = "esricore.shapefileworkspacefactory.1"
pWorkspaceName.PathName = "S:\Geocodage\DVD" 'path to where I want the shapefile.
Dim pFeatureClassName As IFeatureClassName
Set pFeatureClassName = New FeatureClassName
Dim pOutDatasetName As IDatasetName
Set pOutDatasetName = pFeatureClassName
Set pOutDatasetName.WorkspaceName = pWorkspaceName

Dim pExporter As IExportOperation
Set pExporter = New ExportOperation


Dim i As Integer, sDept As String

For i = 1 To 101
    If i = 100 Then
        sDept = "2A"
    ElseIf i = 101 Then
        sDept = "2B"
    Else
        sDept = Right("0" & CStr(i), 2)
    End If
    pQueryFilter.WhereClause = "COD_COMD like '" & sDept & "%'"
    pOutDatasetName.Name = "TRONCON_ROUTE_" & sDept 'Output shapefile name.
    pExporter.ExportFeatureClass pInDatasetName, pQueryFilter, Nothing, pGeometryDef, pOutDatasetName, 0
Next

Next
Exit Sub
EH:

MsgBox Err.Number & vbCr & vbCr & _
"Details : " & Err.Description, vbExclamation + vbOKOnly, "Error"
End Sub