Proposition de nouvelle organisation des donnÃ©es SIG et crÃ©ation d ...

More documents

Recommendations

Info

Proposition de nouvelle organisation des données SIG et création d’un outil de catalogage et de consultationdes métadonnées SIG pour le Parc Naturel régional Scarpe EscautAnnexe 10 : Commande de visualisation des données‘Déclaration de la procédurePrivate Sub Commande240_Click()On Error GoTo Err_Commande240_Click‘si le format de fichier indiqué dans le formulaire de consultation est un shapefile alors la function Filewrite estéxécutée et le projet .aep ouvert dans Arc Explorer.les 3 vatiables sont déclarées juste après l’appel de lafonction.If Forms![métadonnée].Form![format_donnée].Form![liste_code_format] = "SHP" ThenFileWrite "O:\stage\sig\arborescence\visualisation.AEP",Forms![métadonnée].Form![chemin_donnée].Value,Forms![métadonnée].Form![nom_informatique].ValueDim stAppName As StringstAppName = "C:\ESRI\ArcExplorer\ArcExplorer.exeO:\stage\sig\arborescence\visualisation.AEP"Call Shell(stAppName, 1)End If‘si le format de fichier indiqué dans le formulaire de consultation est un DBF, le logicielExcel s’ouvre en chargeant la donnée affichée dans le formulaire de consultationIf Forms![métadonnée].Form![format_donnée].Form![liste_code_format] = "DB" ThenDim stAppName2 As StringDim chemin As StringDim nomdbf As Stringchemin = Forms![métadonnée].Form![chemin_donnée].Valuenomdbf = Forms![métadonnée].Form![nom_informatique].ValuestAppName2 = "C:\Program Files\Microsoft Office\Office\EXCEL.EXE" + " " + chemin +"\" + nomdbf + ".dbf"Call Shell(stAppName2, 1)End If‘si le format de fichier indiqué dans le formulaire de consultation est un .xls, le logiciel Excel s’ouvre enchargeant la donnée affichée dans le formulaire de consultationIf Forms![métadonnée].Form![format_donnée].Form![liste_code_format] = "XLS" ThenDim stAppName3 As StringDim chemin2 As StringDim nom2 As Stringchemin2 = Forms![métadonnée].Form![chemin_donnée].Valuenom2 = Forms![métadonnée].Form![nom_informatique].ValuestAppName3 = "C:\Program Files\Microsoft Office\Office\EXCEL.EXE" + " " + chemin2 +"\" + nom2 + ".xls"Call Shell(stAppName3, 1)‘Fin des boucles de conditionsEnd If164
Proposition de nouvelle organisation des données SIG et création d’un outil de catalogage et de consultationdes métadonnées SIG pour le Parc Naturel régional Scarpe EscautExit_Commande240_Click:Exit SubErr_Commande240_Click:MsgBox Err.DescriptionResume Exit_Commande240_ClickEnd Sub165
Page 2 and 3:
Proposition de nouvelle organisatio
Page 4 and 5:
Page 6 and 7:
Page 9 and 10:
Page 11 and 12:
Page 13 and 14:
Page 16 and 17:
Page 18 and 19:
Page 20 and 21:
Page 22 and 23:
Page 24 and 25:
Page 26 and 27:
Page 28 and 29:
Page 30 and 31:
Page 32 and 33:
Page 34 and 35:
Page 36 and 37:
Page 38 and 39:
Page 40 and 41:
Page 42 and 43:
Page 44 and 45:
Page 46 and 47:
Page 48 and 49:
Page 50 and 51:
Page 52 and 53:
Page 54 and 55:
Page 56 and 57:
Page 58 and 59:
Page 60 and 61:
Page 62 and 63:
Page 64 and 65:
Page 66 and 67:
Page 68 and 69:
Page 70 and 71:
Page 72 and 73:
Page 74 and 75:
Page 76 and 77:
Page 78 and 79:
Page 80 and 81:
Page 82 and 83:
Page 84 and 85:
Page 86 and 87:
Page 88 and 89:
Page 90 and 91:
Page 92 and 93:
Page 94 and 95:
Page 96 and 97:
Page 98 and 99:
Page 100 and 101:
Page 102 and 103:
Page 104 and 105:
Initialisationde la « tablerequêt
Page 106 and 107:
Page 108 and 109:
Page 110 and 111:
Page 112 and 113:
Page 114 and 115: Proposition de nouvelle organisatio
show all

Proposition de nouvelle organisation des donnÃ©es SIG et crÃ©ation d ...

Create successful ePaper yourself

Delete template?

Save as template?