Exploiter fichier txt

Version imprimable

22/03/2010, 10h29
symphyle

Exploiter fichier txt

Bonjour,

Je dois rendre exploitable sur excel une extraction au format txt.
Cette extraction ressemble à ça :

cf capture ci joint

Donc au final des colonnes et une ligne qui s'étend sur 3 ligne !
Par exemple la catégorie s'étend comme ceci :
PIECE
DETACHEE-
NEUVE

Je dois donc trouver le moyen :
- Cibler un lot de trois lignes
- Le diviser en cellule
- Concaténer le tout

Ma démarche est elle bonne ?

Une piste pour m'éclairer !
Inutile de préciser qu'il s'agit de mon premier travail sous VBA excel... si vous pouvez détailler vos réponses cela m'aiderai énormément !

Bien cordialement,

Symph
22/03/2010, 13h30
neupont

Bonjour,
tu devrais mettre ton fichier txt (ou au moins un bout) en pièce jointe, en effet il est important de savoir quel est le séparateur entre les champs et comment sont codés les retours ligne ;)
22/03/2010, 13h32
bibi5883

Bonjour,

tu as essayer les macros enregistrées : Outils->Macros->NouvelleMacro ??

Cdt
22/03/2010, 13h52
symphyle

J'ai ajouté une partie du fichier à rendez exploitable sous excel !

J'ai essayé les macros enregistré mais le problème est la configuration du fichier !
Comme je l'ai dit, il me faut concaténer les 3 lignes en une : la catégorie est sur 3 lignes, le nom sur deux... etc.

Tout cela sans parler de l'entete de chaque page les une aà la suite des autres !
23/03/2010, 09h57
scons

Bonjour,

Peux t'on savoir comment tu as généré ce fichier texte?
Le plus simple serait en effet d'avoir les informations sur une ligne et de passer par un import paramétré de tes données auxquels tu feras reference dans ton code vba.

Impossible, ce fichier txt provient d'une extraction d'un ERP Oracle auquel je n'ai pas accès.
Je dois me contenter de traiter ces informations à partir du fichier txt.

J'ai commencé à faire cela :

Code:

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
Open f For Input As 1
y = 1
While Not EOF(1)
 
    Line Input #1, a
    x = 1
    test = Len(a)
    If Mid(a, 1, 1) = "I" Then
               Cells(y, 1) = Trim(Mid(a, 1, 1))
               Cells(y, 2) = Trim(Mid(a, 4, 10))
               Cells(y, 3) = Trim(Mid(a, 14, 10))
               Cells(y, 4) = Trim(Mid(a, 24, 7))
               Cells(y, 5) = Trim(Mid(a, 31, 3))
               Cells(y, 6) = Trim(Mid(a, 35, 8))
               Cells(y, 7) = Trim(Mid(a, 43, 10))
               Cells(y, 8) = Trim(Mid(a, 53, 13))
               Cells(y, 9) = Trim(Mid(a, 77, 3))
               Cells(y, 10) = Trim(Mid(a, 84, 3))
               Cells(y, 11) = Trim(Mid(a, 92, 3))
               Cells(y, 12) = Trim(Mid(a, 99, 3))
               Cells(y, 13) = Trim(Mid(a, 106, 3))
               Cells(y, 14) = Trim(Mid(a, 109, 10))
               Cells(y, 15) = Trim(Mid(a, 119, 15))
 
 
        cpt = 0
    Else 
        cpt = cpt + 1
        x1 = Trim(Mid(a, 4, 10))
        Cells(y - cpt, 2) = Cells(y - cpt, 2) & x1
        x2 = Trim(Mid(a, 14, 10))
        Cells(y - cpt, 3) = Cells(y - cpt, 3) & " " & x2
        x3 = Trim(Mid(a, 35, 8))
        Cells(y - cpt, 6) = Cells(y - cpt, 6) & x3
        x4 = Trim(Mid(a, 43, 10))
        Cells(y - cpt, 7) = Cells(y - cpt, 7) & " " & x4
        x5 = Trim(Mid(a, 53, 13))
        Cells(y - cpt, 8) = Cells(y - cpt, 8) & " " & x5
    End If
 
      y = y + 1
 
 
 Wend

dans la première parti je traite les ligne de données et les inclus dans de nouvelles cellule. dans la seconde parti je concatene le reste de l'information...

Il me faut maintenant traiter les entete de page qui commencent par : "-----------------------"