Discussion :

[plm222]

Bonjour,
j'ai un fichier txt (tjs formaté pareil , séparé par des fabulations).
A ce jour , ce suis obligé de l'ouvrir dans excel, executer une macro qui transforme mon txt et enregistrer mon fichier txt.

J'ai besoin de transformé mon fichier mais sans passé par Excel.
Ne connaissant pas quel type d'exe ou batch ou ??? et comment le faire (peut-etre en récupérant mon code VBA)

Qqun saurait-il comment faire ?

je joins mon fichier txt et mon code.

Merci à vous
Phil

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
Sub CANCATENER()
Application.ScreenUpdating = False
i = Cells(Rows.Count, 12).End(xlUp).Row
For k = i To 2 Step -1
If Cells(k, 12) <> "LIB" And Cells(k, 86) = "" Then
Cells(k + 1, 14).Copy Cells(k, 86)
Rows(k + 1).Delete
End If
Next
 
i = Cells(Rows.Count, 12).End(xlUp).Row
For k = 2 To i Step 1
If Cells(k, 12) <> "LIB" And Cells(k + 1, 86) = "" Then
Cells(k + 2, 14).Copy Cells(k + 1, 86)
Rows(k + 2).Delete
End If
Next
 
i = Cells(Rows.Count, 12).End(xlUp).Row
For k = 2 To i Step 1
If Cells(k, 12) = "LIB" And Cells(k + 1, 12) = "LIB" And Cells(k, 86) = "" Then
Cells(k + 1, 14).Copy Cells(k, 86)
End If
Next
 
i = Cells(Rows.Count, 12).End(xlUp).Row
For k = 2 To i Step 1
If Cells(k, 86).Value = Cells(k + 1, 14).Value Then
Rows(k + 1).Delete
End If
Next
End Sub