Bonjour,

Je bosse sur une macro en vba, qui génère un fichier *.kml à partir des informations contenues dans un tableau excel.
Ma question porte sur une optimisation du code au niveau de la définition des styles des icones personnalisés.

La partie en question du code commence comme ça:


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
CheminEnregistrement = Application.GetSaveAsFilename
Open CheminEnregistrement & ".kml" For Output As #1
 
'[....]
' on commence à y écrire les différents styles qui seront utilisés pour les icones
 
'-------------Définition des styles des icones et des cartes-------------
'Icones et cartes pour Eolienne
'définition des styles d'icone normal et highlighted
'normal
Print #1, "<Style id=""Eolienne_normal"">"
Print #1, "<IconStyle>"
Print #1, "<color> "; CouleurIcone; "</color>"
Print #1, "<scale>"; TailleIcone_normal; "</scale>"
Print #1, "<Icon>"
Print #1, "<href>\\WP-SRV-000679\WPfiles\1-General\1.10 Advisory\06_Tools\KMLGenerator\Icones\Eolienne.png</href>"
Print #1, "</Icon>"
Print #1, "</IconStyle>"
Print #1, "<LabelStyle>"
Print #1, "<scale>"; TailleTexte; "</scale>"
Print #1, "<color>"; CouleurTexte; "</color>"
Print #1, "</LabelStyle>"
Print #1, "<ListStyle>"
Print #1, "</ListStyle>"
Print #1, "</Style>"
 
'[...]
 
'définition de l'affichage des icones sur la carte
Print #1, "<StyleMap id=""Eolienne_carte"">"
Print #1, "<Pair>"
Print #1, "<key>normal</key>"
Print #1, "<styleUrl>#Eolienne_normal</styleUrl>"
Print #1, "</Pair>"
Print #1, "</StyleMap>"

Et ce pour une dizaine de style. Ca fonctionne, mais ça alourdit le code principal.
Y a-t-il moyen d'enregistrer ces styles quelques parts et d'y faire appel (comme on fait appel à une function) dans le corps du programme pour les écrire dans le fichier kml généré ?

Merci d'avance !