#1 Fri 17 March 2006 11:58
- Julien Renner
- Juste Inscrit !
- Date d'inscription: 8 Dec 2005
- Messages: 4
Connexion ACCESS 2000 - ARCVIEW9
Bonjour
Je travaille sur un projet dont le but est de visualiser le résultat de requetes effectuées dans un formulaire access 2000 grace au logiciel ARCVIEW9.
Je souhaite que l'utilisateur effectuant les requetes sur access puisse lancer arcmap depuis son formulaire et que celui ci lui affiche la représentation du résultat (dans mon cas la représentation du lieu de découverte de nouvelles espèces animales).
Pour cela je tente de lancer arcmap depuis access en VBA et c'est là que je suis bloqué pour l'instant.
Si quelqun avait une solution ...
merci d'avance
Julien
Hors ligne
#2 Fri 17 March 2006 12:10
- matieu_dumo
- Participant actif
- Lieu: Questembert
- Date d'inscription: 15 Mar 2006
- Messages: 135
- Site web
Re: Connexion ACCESS 2000 - ARCVIEW9
Bonjour,
actuellement en stage, je suis confronté au même problème. Je souhaiterais pouvoir lancer Mapinfo, à partir d'une base 4D, pour visualiser les territoires concernés.
Merci
Hors ligne
#3 Mon 20 March 2006 07:41
- antakini
- Participant occasionnel
- Date d'inscription: 5 Sep 2005
- Messages: 16
Re: Connexion ACCESS 2000 - ARCVIEW9
bonjour,
ci dessous un code qui me permet de lancer arcmap depuis access...
Code:
Private Sub btnlancerarcmap_Click() Dim starApp As String Dim starcmap As String starApp = "C:\arcgis\arcexe82\Bin\ArcMap.exe" starcmap = "C:\monchemin\monmxd.mxd" Call Shell(starApp & " " & starcmap, 1) End Sub A+
Hors ligne
#4 Mon 20 March 2006 11:00
- Julien Renner
- Juste Inscrit !
- Date d'inscription: 8 Dec 2005
- Messages: 4
Re: Connexion ACCESS 2000 - ARCVIEW9
Merci pour ce code c'est déja un premier pas pour moi
en fait ce que je cherche c'est à pouvoir manipuler les objets arcmap depuis mon vba access
pour ça je tente de me creer un objet pour l'application mais c'est la que ça plante ...
le code marche pour piloter word ou excel mais il doit y avoir une astuce avec arcmap ...
Voila mon code
Sub connexion3()
Dim appArcmap As esriArcMap.Application
Set appArcmap = CreateObject("esriArcMap.Application")
appArcmap.Visible = True
End Sub
voila l'erreur :
"Erreur d'exécution '429':
Un composant ActiveX ne peut pas créer d'objet"
merci encore pour la réponse
Julien
Hors ligne
#5 Tue 28 March 2006 14:33
- Kevin Jousseaume
- Participant assidu
- Lieu: Nanterre, région parisienne
- Date d'inscription: 20 Mar 2006
- Messages: 217
Re: Connexion ACCESS 2000 - ARCVIEW9
Bonjour,
Concernant la récupération de l'application ArcMap depuis votre macro Access, je vous conseille de vous inspirer du code suivant :
-----------------------------------------------
Dim pApp As IApplication
Dim pMxApp As IMxApplication
Dim pAppRot As AppROT
'Recupere les differentes instanciations d'applications ESRI (ArcCatalog, ArcMap)
Set pAppRot = New AppROT
If pAppRot.Count > 0 Then
'Boucle sur les differentes instanciations
intApp = 0
Do While intApp < pAppRot.Count
Set pApp = pAppRot.Item(0)
'Vérifie que l'application est ArcMap
If TypeOf pApp Is IMxApplication Then
Set pMxApp = pApp
End If
intApp = intApp + 1
Loop
End If
-----------------------------------------------
Ce code est extrait d'un développement que j'ai réalisé. Si vous le souhaitez, je peux vous envoyer (par mail ?) le code complet de cette fonction LaunchArcMap qui ouvre le document ArcMap specifié en entrée et place l'application en premier plan (après moults vérifications sur le fichier en entrée, ...).
Cordialement,
Kevin Jousseaume
Hors ligne
