[VBA-A] Lancer une procédure d'une application ArcMap

Version imprimable

31/05/2006, 10h44
TiT0f

[VBA-A] Lancer une procédure d'une application ArcMap

J'aimerai savoir s'il est possible de lancer une procédure d'une application (Excel par ex) à partir d'une autre (Access par ex)?
Cette procedure aurai des effets uniquement sur la premiere application (ici Excel)
Si cela est possible pouvait vous me donner des pistes...
31/05/2006, 11h04
Theocourant

Bonjour,

Oui c'est possible.

Pour cela, il faut tout d'abord piloter Excel depuis Access : tu trouveras un tutoriel VB expliquant comment faire.

Ensuite tu peux lancer une macro avec la méthode Run de l'objet Application : ici encore tu trouveras certainement ton bonheur en faisant une recherche sur le forum car c'est un sujet déjà traité.

Bonne journée

Théo
31/05/2006, 11h26
TiT0f

Citation:

Envoyé par Theocourant

Bonjour,

Oui c'est possible.

Pour cela, il faut tout d'abord piloter Excel depuis Access : tu trouveras un tutoriel VB expliquant comment faire.

Ensuite tu peux lancer une macro avec la méthode Run de l'objet Application : ici encore tu trouveras certainement ton bonheur en faisant une recherche sur le forum car c'est un sujet déjà traité.

Bonne journée

Théo

merci je vais essayer de chercher ce tutoriel..
31/05/2006, 11h48
TiT0f

En fait mon programme n'est pas Excel mais ArcMap un logiciel de "ArcGIS 9" qui fonctionne comme les outils offices avec du vba...
Et je n'arrive pas à appliquer lui appliqué ce que je trouve pour office!
31/05/2006, 11h56
Theocourant

Citation:

Envoyé par TiT0f

En fait mon programme n'est pas Excel mais ArcMap un logiciel de "ArcGIS 9" qui fonctionne comme les outils offices avec du vba...
Et je n'arrive pas à appliquer lui appliqué ce que je trouve pour office!

Cela fait toute la différence car à ce niveau, je ne sais pas s'il est possible de le piloter depuis "l'extérieur"...

J'espère que tu y arriveras, malheureusement je ne peux pas t'aider

Théo
31/05/2006, 12h02
AlainTech

Citation:

Envoyé par TiT0f

En fait mon programme n'est pas Excel mais ArcMap un logiciel de "ArcGIS 9" qui fonctionne comme les outils offices avec du vba...
Et je n'arrive pas à appliquer lui appliqué ce que je trouve pour office!

La prochaine fois, donne cette info directement plutôt que de parler d'Access.

Citation:

Envoyé par TiT0f

à partir d'une autre (Access par ex)?

On y gagnera tous du temps
31/05/2006, 12h11
TiT0f

Citation:

Envoyé par AlainTech

La prochaine fois, donne cette info directement plutôt que de parler d'Access.

On y gagnera tous du temps

Desole je pensai que c'etait le meme principe et comme plus de personne connaissent Excel...
En fait je veux piloter ArcMap avec Access...
J'arrive en partie à le faire mais quand je quitte l'environnement Access je perd toutes les données chargées dans ArcMap par Access...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Private Sub Commande15_Click()
 
    Dim nomfic, lienfic As String
    nomfic = retournenomraster(Me.Lien_georef.Value)
    lienfic = retournelienfic(Me.Lien_georef.Value)
 
 
    Dim pApp As IApplication
    Dim pMxApp As IMxApplication
    Dim pAppRot As AppROT
    Dim pMxDoc As IMxDocument
    Dim pOutRasLayer As IRasterLayer
 
    ' Récupération des instanciations d'applications ESRI
    Set pAppRot = New AppROT
 
    If pAppRot.Count > 0 Then
        For i = 0 To pAppRot.Count - 1
            Set pApp = pAppRot.Item(i)
 
            ' Vérifie que l'application est ArcMap
            If TypeOf pApp Is IMxApplication Then
                Set pMxApp = pApp
                Exit For
            End If
        Next i
 
        If pMxApp Is Nothing Then
            MsgBox "ArcMap n'est pas ouvert."
            Exit Sub
        End If
    Else
        MsgBox "Aucune application ESRI n'est ouverte."
        Exit Sub
    End If
 
'Version 1
    Set pMxDoc = pApp.Document
 
 
    Set pOutRasLayer = New RasterLayer
    pOutRasLayer.CreateFromFilePath (lienfic)
 
    pMxDoc.FocusMap.AddLayer pOutRasLayer
 
    MsgBox "Opération effectuée!"
 
 
'JUSQUE ICI TOUT VA BIEN MON RASTER EST CREE ET SI JE NE FERME PAS L'APPLI CA M'ARCHE TRES BIEN
 
    Set pOutRasLayer = Nothing
    Set pMxDoc = Nothing
    Set pMxApp = Nothing
    Set pApp = Nothing
    Set pAppRot = Nothing
End Sub
 
'_______________________________________________________
 
'PROGRAMME 2
'ICI J'ESSAYE DE  LANCER UNE MACRO QUI EST CONTENUE DANS ARCMAP MAIS JE NI ARRIVE PAS
 
'    essais
Dim monprojetvb As VBProject
Set monprojetvb = pApp.Document.VBProject
 
MsgBox monprojetvb.Collection.Item(2).Name
 
Dim monprojetvb2 As VBProject
Set monprojetvb2 = monprojetvb.Collection.Item(2)
 
MsgBox monprojetvb2.VBComponents.Item(2).Name
 
Dim MonModule As VBComponent
Set MonModule = monprojetvb2.VBComponents.Item(2)
 
'ligne ci dessous ne marche pas et je ne trouve pas d'outil qui s'applique sur monmodule pour lancer une procedure contenue dans monmodule
 
DoCmd.OpenModule MonModule.Name, "lancement" '< lancement = macro sous ArMap

01/06/2006, 13h53
TiT0f

Si je n'arrive pas à l'encer une macro a distance, ce que j'aimerai savoir c'est si c'est possible que quand je quitte l'application Access l'espace memoire aloué ne soit pas detruit...
02/06/2006, 02h16
seb98

salut,

tu trouveras peut-etre quelques infos sur :
http://www.forumsig.org/
il y a une rubrique "Programmation" pour les logiciels Esri.

si j'ai bien compris : ta premiere procedure charge dans un document arcmap un raster que l'on choisi dans ton prog access.
ensuite, la macro que tu veux executé, elle fait quoi ?

y a peut etre moyen de coder ta macro (qui est dans Arcmap) dans l'application Access ?
ou inversement, intégrer ton appli Access, dans le document Arcmap.

a+
02/06/2006, 09h17
TiT0f

Citation:

Envoyé par seb98

salut,

tu trouveras peut-etre quelques infos sur :
http://www.forumsig.org/
il y a une rubrique "Programmation" pour les logiciels Esri.

si j'ai bien compris : ta premiere procedure charge dans un document arcmap un raster que l'on choisi dans ton prog access.
ensuite, la macro que tu veux executé, elle fait quoi ?

y a peut etre moyen de coder ta macro (qui est dans Arcmap) dans l'application Access ?
ou inversement, intégrer ton appli Access, dans le document Arcmap.

a+

J'ai Access et ArcMap ouvert!
Sous access j'ai créé un bouton qui charge dans un document arcmap un raster.
Ca marche tant que j'ai access d'ouvert or je doit fermer l'application, quand je la ferme je perd mes données raster dans ArcMap...
Vu que je ne trouvai pas la solution je pensais lancer une macro dans ArcMap à partir d'Access qui charge un raster comme précédament...
Mais ca aussi ca s'averre compliqué pour moi...

Donc je cherche soit une mani pour que l'environement memoire soit conservé ou que ArcMap le face lui meme ou bien une thechnique qui me permetrai de lancer une macro arcmap de cetrte facon l'environement memoire Access n'entrerai plus en compte...

Merci en tous cas
05/06/2006, 23h44
seb98

Si tu veux executé ta macro sous Arcmap, il faut la rajouter à ta barre d'outil.

Clique doit sur les barres d'outil -> Personnaliser...

Onglet Commandes -> Catégorie Macros.

Tu selectionnes ta macro, et tu fais un glisser/déposer sur une barre d'outil.
(faire attention à la liste déroulante "Enregistrer dans" soit dans normal.mxt soit dans le document en cours)