Discussion :

[Elstak]

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 ??

[Vesta]

Rajoute un CInt(valeur) pour convertire ta chaine texte en nombre...

[Vesta]

Non je dis des conneries lol

CInt c pour les entiers
CDec(valeur)

Et véririfie bien dans tes parametres régionneaux que le symbole décimal c'est la virgule...

[ouskel'n'or]

Tu peux aussi avoir un problème avec la virgule selon l'appli qui a créé le txt.
La virgule peut avoir deux codes ascii, 44 et 130. Or Excel n'accepte que chr(44).
Tu remplaces toutes tes virgules -> chr(130) par des virgules "normales" soit "," soit chr(44) et le tour est joué... si c'est ça

A+

[Elstak]

Coucou le dodo,
ca faisait longtemps que je t'avais pas vu

(merci vesta pour ta réponse mais si je converti deja "manuellement", ca ne fonctionne pas... )

Par contre en supprimant la virgule et en la retapant ca considere bien le nombre comme un nombre (c'est fou !! )

Donc je vais essayer de voir comment je peux faire pour convertir avec l'asci

[ouskel'n'or]

Ok, donc c'est bien le problème de la virgule. Tu testes le code des caractère d'une cellule et une fois que tu sais ce que c'est, tu sélectionnes ta feuille et tu fais remplacer chr(130) (si c'est lui) par "," et là je pense que tu n'as plus besoin de nous

A+

[Elstak]

Hmmm

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim ValeurTemp As String
ValeurTemp = Cells(2, 3)
MsgBox (ValeurTemp)
For i = 1 To Len(Cells(2, 3))
    If (Mid(Cells(2, 3), i, 1) = Chr(130)) Then
        ValeurTemp = Left(Cells(2, 3), i - 1) & Chr(44) & Right(Cells(2, 3), Len(Cells(2, 3)) - i)
        Cells(2, 9) = ValeurTemp
    End If
Next

voilà mon code, je sais que ca correspond pas à ce que tu m'as dit mais si je met dans mon if, =chr(44), il ne fait rien, il ne me copie rien dans la cellule(2,9) alors qu'il le fait avec =chr(130) donc jme suis dit que tu avait peut etre inversé les 2 et quil interepretait les 44 et non les 130 mais en remplacant j'ai toujours la meme ecriture...

j'ai une autre solution mais je voudrais savoir si y'a rien de mieux à faire : regarder la caractere a gauche de ma valeur et tant que c'est un 0 alors on le supprime mais la maniere dont j'imagine faire le code est assez longue. Je pense etre obligé de faire : si le caractere de gauche = 0 alors la valeur vaut la partie droite -1 caractere mais peut etre quil y a plus court ??