Le portail francophone de la géomatique

Merci beaucoup.
J'ajoute ici un exemple de ce que j'ai trouvé via le forum Esri.

Private Function GetShapeFilePath() As String
Dim pFeatureLayer As IFeatureLayer
Dim pDataset As IDataset
Dim pWorkspace As IWorkspace
Dim sPath As String
Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument

Dim i As Integer
For i = 0 To pMxDoc.FocusMap.LayerCount - 1
    Set pFeatureLayer = pMxDoc.FocusMap.Layer(i)
    Set pDataset = pFeatureLayer.FeatureClass
    sPath = pDataset.Workspace.PathName & "\" & pDataset.Name & ".shp"
    MsgBox sPath
Next
End Function

PS : Je pense qu'il y a une erreur que qu'il faut plutôt mettre pLayer as ILayer plutôt que pFeatureLayer

Dernière modification par olivier57 (Wed 11 June 2008 14:27)

Merci de cette réponse mais cette commande ne permet que de rajouter quelques infos dans le mxd lui-même, ce que je cherche à faire est de créer un document décrivant le mxd et expliquant tout ce qu'il faut faire pour le recréer.

Bonjour et merci de vos réponses. J'ai écris un petit programme en m'inspirant de vos réponses et de diverses recherches, c'est du "quick & dirty" mais si cela peut servir, je vous le joins.