Discussion :

[stagiaireLDE]

Bonjour,
Tout d'abord je tiens à m'excuser si,malgrès les quelques heures passées à chercher l'information,ma question a déja été posée.


Je souhaite recopier les données d'un fichier texte dans une feuille de mon classeur excel.

Le code dont je me sert est le suivant

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
Private Const chemin As String = "D:\Documents and Settings\ccruz\Bureau\stephane_stagiaire\"
 
Public Sub LireFichierTexte()
 
Dim NumFichier As Integer, TabLigne() As String, tabCol() As String, recup As String
Dim cmpt1 As Long, cmpt2 As Long
NumFichier = FreeFile
Open chemin & "La Colle_Dcentrale_02_05_12.txt" For Binary Access Read As #NumFichier
recup = String(LOF(NumFichier), "   ")
Get #NumFichier, , recup
Close #NumFichier
With Worksheets("feuil1").Range("A1")
TabLigne = Split(recup, vbCrLf)
For cmpt1 = 0 To UBound(TabLigne)
tabCol = Split(TabLigne(cmpt1), "    ")
For cmpt2 = 0 To UBound(tabCol)
    .Offset(cmpt1, cmpt2).Value = tabCol(cmpt2)
    Next cmpt2
    Next cmpt1
    End With
 
 
End Sub

et le fichier "La Colle_Dcentrale_02_05_12.txt" est au format suivant
La colle
La Colle_Dcentrale
29/04/2012 00:22:00 39.74975204
29/04/2012 00:24:00 46.54001678
29/04/2012 00:26:00 39.74975204
...(chaque colonne est séparée par une tabulation)

Le problème rencontré est un non changement de colonne (dans excel lors d'une tabulation)
Un caractère inconnu s'affiche à la place des tabulations.
et lorsque je copie la valeur d'une des cellules dans un fichier txt je retrouve:
29/04/2012 00:22:00 39.74975204

Si ce problème est déja arrivé à quelqu'un merci de me faire part de vos idées .

Merci

[brownthefou]

Bonjour !

Juste un petit test avant de regarder plus en profondeur : remplace tes " " par des chr(9) pour voir ?

Cordialement

[stagiaireLDE]

Je ne connaissait pas cette methode elle fonctionne pour une partie de mon programme merci

si je continue dans cette logique un espace correspondrait à un chr(2)?

En vous remerciant pour la réponse apportée
cordialement.

[brownthefou]

Rebonjour,

Chr(2) pour espace, je ne sais pas, peut être si tu as trouvé que oui.

Mais en fait pour t'expliquer grossièrement pourquoi ça ne marchait pas, le compilateur analysait tes " " comme une suite d'espace et pas comme des tabulations (j'ai eu le même soucis en traitant des fichiers textes).

Donc autant utiliser Chr(9) pour tabulation

Bonne continuation

[kiki29]

Salut, à lire ici et là