Discussion :

[wyzer]

Hello tout le monde,

Lorsque j'effectue des extraction depuis l'AS400, le nom des en-têtes est incompréhensible par le commun des mortels

Du coup je souhaiterais créer une Macro qui remplace les en-têtes par la description du champs.

La description du champs se trouve dans un fichier TXT qui est constitué de cette façon :

Code :

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

1
2
3
4
5
6
7
8
9
10
LABEL ON COLUMN DOMFIL.FPHYCC01 
( 	NOCLPY TEXT IS 'N° Client Payeur' , 
	TYMV TEXT IS 'Type de mouvement' , 
	NOMV TEXT IS 'N° de mouvement' , 
	DVMVT TEXT IS 'Devise du mvt' , 
	DJMV TEXT IS 'Jour mouvement' , 
	DMMV TEXT IS 'Mois mouvement' , 
	DSMV TEXT IS 'Siècle mouvement' , 
	DAMV TEXT IS 'Année mouvement' , 
	CMVN TEXT IS 'Montant V.N' ,

C'est ce qui se trouve entre les apostrophes que je veux récupérer.

Mais attention, dans ce fichier il n'y a que les description des champs, y aussi plein d'autres infos sur les champs, donc faudrait faire une recherche de ce type :

Si tu trouve le champs "NOCLPY", alors récupère ce qui est après "TEST IS".

Merci par avance pour votre aide.

Cordialement.

[Daniel.C]

Bonjour,

Est-ce que tu pourrais mettre ton fichier (ou une partie) en PJ ?

[wyzer]

Voilà

[Daniel.C]

Avec la macro suivante, tu obtiens une variable tableau "Tabl". Le premier élément est le nom incompréhensible, le second est l'explication :

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
Sub test()
    Dim Tabl() As String, Fich As String, C As Range, Ctr As Long
    Dim Tabl1 As Variant, Tabl2 As Variant
    Fich = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    Set sh = ActiveWorkbook
    Ctr = -1
    Workbooks.Open Fich
    Set sh = ActiveWorkbook.Sheets(1)
    With sh
    ReDim Tabl(.Cells(.Rows.Count, 2).End(xlUp).Row, 1)
        For Each C In .Range("B1", .Cells(.Rows.Count, 2).End(xlUp))
            If InStr(1, C.Value, "TEXT IS") > 0 Then
                Ctr = Ctr + 1
                Tabl1 = Split(C.Value, " TEXT IS ")
                Tabl(Ctr, 0) = Tabl1(0)
                Tabl2 = Split(Tabl1(1), "'")
                Tabl(Ctr, 1) = Tabl2(1)
            End If
        Next C
    End With
End Sub

[wyzer]

Ça fonctionne parfaitement !!

Merci