coucou,

voilà j'importe un fichier texte dans excel grace au code suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
    Dim myFile As String
    myFile = "D:\excel\Fichier.txt"
    ActiveSheet.QueryTables.Add(Connection:="TEXT;" & myFile, Destination:=Range("A1")).Refresh    
    Call Convert
puis je convertis (Sub Convert) car une ligne de mon fichier texte ressemble à ca : Nom;chiffre1;chiffre2;...;chiffre7
et je veux dans la colonne A, "Nom" puis dans la colonne B "chiffre1" etc...

voici le code de Convert :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
    DerniereLigne = Cells(65535, 1).End(xlUp).Row
    Dim ContenuInitial As String
    Dim a() As String
    For i = 1 To DerniereLigne
        ContenuInitial = Cells(i, 1).Value
        a() = Split(ContenuInitial, ";")
        For j = 0 To UBound(a)
            Cells(i, j + 1).Value = a(j)
        Next j
    Next i
Le texte se sépare bien mais j'ai quelque probleme pour le contenu des certaines colonnes. En effet dans mon fichier texte, des nombres sont ecrit 0000415,15 et il sont copiés ainsi dans excel. Je voudrais les changer pour n'avoir que 451,15. Ils sont placé coté gauche des cellules, comme du texte, mais j'ai beau changer de format, ca reste tel quel

Des idées ??