Générer fichier texte en VBA sous Access
Bonjour,
J’aimerai créer un fichier texte de points pour Google Earth à partir d’une table access en y incorporant une fonction si.
Je dois à priori utiliser la fonction printf mais je ne connais pas le VBA. Je suppose qu'après il faut lancer une macro sur le module en VBA.
J'ai 4 variables
Le point : 1,2,3....
Longitude pour chaque point
Latitude pour chaque point
Valeurs : Valeur associé au point
Si ma valeur est inférieure à 70 alors point en rouge
Si ma valeur est entre 80 et 71 alors point en bleu...
Exemple de table
Point Longitude Latitude Valeurs
1 -0.84172 44.79634 74,15
2 -0.84166 44.79634 86,25
3 -0.84159 44.79634 91,2
4 -0.84159 44.79638 96,05
5 -0.84153 44.79633 76,3
.................................
Exemple de code pour Google Earth pour un point. En rouge les valeurs de la table. Pour chaque point il faut tout prendre entre les balises <Document> et </Document>.
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
|
<?xml version="1.0" encoding="UTF-8"?>
<kml xmlns="http://earth.google.com/kml/2.2">
<Document>
<name>Test.kml</name>
<Style id="1">
<IconStyle>
<scale>0.1</scale>
<Icon>
<href>adresse réseau pour point couleur rouge</href>
</Icon>
</IconStyle>
<LabelStyle>
<scale>0</scale>
</LabelStyle>
</Style>
<Placemark>
<name>1</name>
<Snippet maxLines="0"></Snippet>
<description>
<![CDATA[date<br /><br />
<big><b>Informations :</b></big>]]>
</description>
<styleUrl>#1</styleUrl>
<Point>
<extrude>1</extrude>
<altitudeMode>relativeToGround</altitudeMode>
<coordinates>-0.84172,44.79634</coordinates>
</Point>
</Placemark>
</Document>
</kml> |
Si quelqu'un peut m'aider.
Merci d’avance pour votre aide.
Pal.
