Discussion :

[Danieldu54]

Bonjour,

Je viens vous poser un problème sur lequel je butte sans pouvoir trouver de réponse, je m'explique :

mon but est de construire un fichier kml (google) à partir d'information contenue dans une feuille excel. Pour ça je n'ai aucun soucis pour obtenir le code que le fichier kml devrait contenir. Pour le moment ça fonctionne en faisant un copier-coller manuel du code vers un fichier txt, puis enregistrement en *.kml.

Le problème survient lorsque je le fait par une macro, donc enregistrer sous/ fichier texte ou directement en fichier kml. Le bug se produit pour les lignes de mon code qui contiennent déjà des guillements " : excel lors de l'export m'insère en plus un guillement au début et à la fin de chaque ligne qui contient normalement dans le code kml un ".

J'ai déjà épuré les forums sur ce problème d'export.

J'ai trouvé une solution de contournement mais un peu plus difficile à mettre en place :

Dans mon fichier excel je remplace tous les " normaux disons par un autre caractère qui n'apparait nulle part dans mon code exemple : le dollar $. La je lance l'export en fichier txt.

Mon but est d'ensuite aller toujours via vba, ouvrir le fichier texte et supprimer tous les guillements " rajoutés lors de l'export, puis remplacer les $ par des guillements.

Je sais c'est un peu couillon comme solution mais sur le papier ça marche...
Mais je ne connais pas les codes correspondant au traitement des fichiers txt.


J'ai également trouver une autre solution (peut-être plus simple), c'est d'aller inscrire directement les données contenue dans la colonne A dans un fichier texte. J'ai trouver ce code (je ne sais plus trop où) qui inscrit ici plusieurs fois la valeur de A4 dans plusieurs lignes dans le fichier texte.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub EcrireTxt()
 
Dim Fs As Object, A As Object
Dim i As Byte
 
Set Fs = CreateObject("Scripting.FileSystemObject")
Set A = Fs.CreateTextFile("C:\Users\Public\Fichier Vide.txt", True)
For i = 1 To 10
A.WriteLine (Sheets("kml").Range("A4").Value)
Next i
A.Close
 
End Sub

Ca fonctionne, mais ce que je voudrais c'est incrire mes données contenues dans ma colonne A, ligne par ligne

Quelqu'un aurait il ne proposition ?

[Philippe Tulliez]

Bonjour,
Il y a plusieurs méthodes pour écrire dans un fichier texte.
Je te conseille la lecture de ce tuto

[mercatog]

Tu étais trop près

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
Sub EcrireTxt()
Dim Fs As Object, A As Object
Dim i As Long
 
Set Fs = CreateObject("Scripting.FileSystemObject")
Set A = Fs.CreateTextFile("C:\Users\Public\Fichier Vide.txt", True)
With Sheets("kml")
   For i = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row
      A.WriteLine (.Range("A" & i).Value)
   Next i
End With
A.Close
Set A = Nothing
Set Fs = Nothing
End Sub

[Danieldu54]

cool ! Merci pou le code, effectivement il ne manquait pas grad chose mais je débute dans les boucles

Merci à toi corona, j'en aurai peut-être besoin plus tard dans mes travaux !

Longue vie a ce forum !