Nous utilisons des cookies pour vous garantir la meilleure expérience sur notre site. Si vous continuez à utiliser ce dernier, nous considèrerons que vous acceptez l'utilisation des cookies. J'ai compris ! ou En savoir plus !.
banniere

Le portail francophone de la géomatique


Toujours pas inscrit ? Mot de passe oublié ?
Nom d'utilisateur    Mot de passe              Toujours pas inscrit ?   Mot de passe oublié ?

#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 Sub

Hors ligne

 

Pied de page des forums

Powered by FluxBB