Discussion :

[symphyle]

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

[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

[bibi5883]

Bonjour,

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

Cdt

[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 !

[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.

[symphyle]

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 :

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
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 : "-----------------------"