Discussion :

[REFLEX42]

bonjour,
j'ai un fichier texte avec 4 colonnes séparées par des tabulations
j'aurai besoin d'importer en VBA la totalité de ce fichier, faire un tri croissant sur les colonnes 1, 3 et 2 et réécrire le fichier en format .txt avec tabulations
pourriez-vous m'aider parce que je m'y perds un peu
je ne peux que le faire en VBA puisque cette procédure rentrera dans une application multi-utilisateurs
merci d'avance pour votre aide

exemple du fichier (enfiron 16.000 lignes)

14042 01010 1101 4979,12
14045 01010 1101 1749,94
14046 01010 1101 998,24
14048 01010 1101 1712,79
14049 01010 1101 4256,48
14050 01010 1101 3659,82
14051 01010 1101 485,84
14052 01010 1101 3885,87
14053 01010 1101 3247,73
14054 01010 1101 4060,43
17028 01010 1101 57,00

[kiki29]

Salut, utilise l'enregistreur de macros, cela dégrossira pour le code même si ce dernier sera à optimiser à la main.

[REFLEX42]

tu as raison, j'ai déjà essayé mais l'enregistreur rentre "en dur" les adresses des cellules. hors mon fichier n'aura jamais le même nombre de lignes

[Theze]

Bonsoir,

Une piste :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Sub FichierTexte()
 
    Dim Fe As Worksheet
    Dim Fichier As String
 
    Fichier = "D:\Test.txt"
 
    Set Fe = Worksheets(1)
 
    With Fe.QueryTables.Add("TEXT;" & Fichier, [A1])
 
        .Refresh 'exécute la requête
        .Delete 'supprime la connexion au fichier texte
 
    End With
 
    'le tri ascendant est fait sur A puis C et enfin B
    With Fe.Sort.SortFields
 
        .Clear
        .Add Range("A:A"), , 1
        .Add Range("C:C"), , 1
        .Add Range("B:B"), , 1
 
    End With
 
    With Fe.Sort
 
        .Header = xlNo
        .SetRange Fe.UsedRange
        .Apply
 
    End With
 
    'le fichier est ensuite enregistrer sur le disque
    'en écrasant l'existant
    With Application
 
        .DisplayAlerts = False
        ThisWorkbook.SaveAs Fichier, xlText
        .DisplayAlerts = True
 
    End With
 
End Sub

Hervé.

[REFLEX42]

pourquoi ça semble toujours aussi simple quand on a la réponse ?
j'ai juste modifié le format des colonnes (pour éviter que 0112 se transforme en 112 par exemple), mais ça fonctionne parfaitement
je crois que ça va beaucoup m'aider à avancer
merci beaucoup pour ton aide