Le portail francophone de la géomatique

        Dim pEnumlyr As IEnumLayer
        Dim pFeatureLyr_test As IFeatureLayer
        Dim pLyr As ILayer
        Dim str_NameSrcTable As String
        Dim pDSet As IDataset
        Dim tabname As String = "le nom de la couche que je recherche"
        Dim pmap As IMap
        pmap = axmapcontrol1.activeview.focusmap



        If (pMap.LayerCount <> 0) Then
            pEnumlyr = pMap.Layers
            pLyr = pEnumlyr.Next
            'parcoure les layer présentes dans le mxd 
            Do Until pLyr Is Nothing

                If (pLyr.Valid) Then
                    If (TypeOf pLyr Is IFeatureLayer) Then
                        'on remonte du layer au feature layer puis au dataset pour en recuperer le nom
                        pFeatureLyr_test = pLyr
                        pDSet = pFeatureLyr_test.FeatureClass
                        str_NameSrcTable = pDSet.Name

                        If (tabName.ToUpper() = str_NameSrcTable.ToUpper()) Then
                            'ici, on a trouvé la couche qui a le nom recherché
                            'il faut maintenant placer ici le traitement a effectuer dessus, par exemple passer le visible à true
                            pDSet.visible = True
                            Exit Do
                        End If
                    End If
                End If
                pLyr = pEnumlyr.Next
            Loop

        End If