Annonce
L'appel à participation est ouvert jusqu'au 19 janvier 2025!
#1 Sat 15 November 2008 08:16
- laripaille
- Participant occasionnel
- Date d'inscription: 15 Nov 2008
- Messages: 11
Access / Arcmap 9.1 pb PAGELAYOUT
Bonjour à tous
J'ai une BD ACCESS, je sélectionne une ou plusieurs parcelles (dans ACCESS), j'utilise un bouton ouvrant un projet Arcmap en faisant un zoom sur la sélection.
TOUT FONCTIONNE BIEN SAUF
si le projet est en espace papier, il faut basculer en espace objet et là plantage !!! (si j'effectue un test en créant un module dans Arcmap, cela fonctionne bien !!) par contre c'est bien à partir d'Access qu'il faut que je "pilote" ARCMAP
Quelqu'un a-t-il une idée ou une autre méthode ?
merci d'avance
Code:
Sub Open_Zoom_Carto2()
Dim vMxDoc As IMxDocument, pmap As IMap, vMap As IMap, vMaps As IMaps, vDoc As IDocument, i As Integer, vPageLayout As IPageLayout
On Error GoTo Open_Error
‘Ouverture via un process permettant de garder le control
Set vDoc = New MxDocument
Set vApp = vDoc.Parent
On Error GoTo 0
'vApp.OpenDocument pPath
vApp.OpenDocument "d:\test.mxd"
While vApp.Document <> "test.mxd": DoEvents: Sleep 10: Wend
vApp.Visible = True
ShowWindow vApp.hwnd, 3
Set vMxDoc = vApp.Document
Set vMaps = vMxDoc.Maps
Set pmap = vMxDoc.FocusMap
Set vPageLayout = vMxDoc.PageLayout
vPageLayout.ZoomToWhole
Sleep 500
vMxDoc.ActiveView.Refresh
If TypeOf vMxDoc.ActiveView Is IMap Then
'MsgBox "donnees passage en papier"
'Sleep 500
Set vMxDoc.ActiveView = vPageLayout
Else
'Sleep 500
'MsgBox "papier passage en données"
Set vMxDoc.ActiveView = pmap
End If
'vMxDoc.ActiveView.Refresh
Exit Sub
Open_Error:
MsgBox "Erreur d'ouverture de l'application ArcMap", vbCritical + vbOKOnly, "Erreur ESRI"
Exit Sub
End SubHors ligne
