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