Discussion :

[lucy22]

Bonjour,
Je suis novice en VBA et je dois faire un fichier kml pour une application dans google earth à partir d'un fichier excel. Pour ce faire, j'ai créé une interface graphique qui me permette d'enregistrer le fichier kml à un endroit choisi. Cependant ma macro ne fonctionne pas, c'est pour cette raison que j'en appelle à votre savoir, peut être pourrez-vous me dépaner, merci d'avance!
Voici ma macro (pas très concise j'imagine):

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
--------------------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim file As String
 
file = TextBox1.Value
ou_copier (file)
 
End Sub
--------------------------------------------------------------------------
Sub ou_copier(fileName As String)
 
Dim i As Integer
 
Open fileName For Output As #1
 
Print #1, "<?xml version=""1.0""encoding=""UTF - 8""?>"
Print #1, "<kml xmlns=""http://earth.google.com/kml/2.1"">"
 
For i = 1 To 100
    Print #1, "<LookAt> <longitude>"; Cells(i, 1); "</longitude>"
    Print #1, "<latitude>"; Cells(i, 2); "</latitude>"
    Print #1, "<altitude>"; Cells(i, 3); "</altitude>"
    Print #1, "<heading>"; Cells(i, 6); "</heading>"
    Print #1, "<tilt>"; Cells(i, 4); "</tilt>"
    Print #1, "<range>"; Cells(i, 5); "</range>"
    Print #1, "<altitudeMode>absolute</altitudeMode>"
    Print #1, "</LookAt>"
Next i
Print #1, "</kml>"
Close #1
 
End Sub
--------------------------------------------------------------------------

[SilkyRoad]

bonjour

peux tu préciser ce qui ne fonctionne pas.


bonne journée
michel

[lucy22]

Le problème c'est que quand je veux executer cette macro, il ne me la propose pas dans la liste des macros.

[peaceandloveman01]

bonjour,
Ou as tu placer ton code ? Est-ce sur la feuille ou dans un module ? Dans un userform ? Si tu pouvais préciser on pourrait te proposer une solution

[lucy22]

Bonjour,
La 1ère partie de mon code est situé dans un userform et la 2e dans un module.

[peaceandloveman01]

Pourrais tu eventuellement nous envoyer ton fichier excel ? Si c'est pas possible, pourrais tu me dire comment tu lance ta macro? (avec un bouton, lancement automatique ...??) Et dans le cas ou tu ne pourrais pas envoyer ton fichier, pourrais tu me montrer ton module stp?

[lucy22]

Mille merci peaceandloveman01 pour ta disponibilité!
c'est bon j'ai réussi à la faire tourner! J'ai tout recommencé! ça ne reste pas très claire la manière d'enregistrer les macros mais je vais me renseigner!
à bientôt!

[vasili86]

salut lucy22 maintenant je travaille sur le meme sujet et je l'ai trouvé difficile à utiliser VBA est ce que te peux me donner une solution pour cette sujet si t'as une ?? et merci bien