Bonjour,

Je débute dans le VB et j'aimerai connaitre le code permettant de créer un fichier excel à partir d'un fichier texte.

4000 LUP69 LUP69 FIL -1 SAF 5 56
99 ITA00 ITA00 FIL 1 SAF 5 89

Le fichier texte se présente de cette forme (les colonnes sont séparées par une tabulation). J'aimerai obtenir l'excel correpondant avec une petite modicication.
En effet, j'aimerai aussi multiplé la colonne 8 par la colonne 5 et stocker le résultat dans la colonne 8 (écrasé) pour obtenir ceci.

4000 LUP69 LUP69 FIL -1 SAF 5 -56
99 ITA00 ITA00 FIL 1 SAF 5 89


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
' Transforme le fichier texte en version Excel
Workbooks.OpenText _
        Filename:="V:\FINANCE\INFORMATIQUE\ZNHERN\test\EXPORT_DATA_MIK.txt", _
        Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
        Tab:=False, Semicolon:=True, Comma:=False, Space:=False, Other:=False, _
        FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), _
        Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), Array(9, 2), _
        Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2), Array(14, 1), _
        Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), _
        Array(20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), _
        Array(25, 1), Array(26, 1), Array(27, 1)), DecimalSeparator:=".", _
        TrailingMinusNumbers:=True
ActiveWindow.SmallScroll Down:=-1
J'ai déjà récupérer ce bout de code que je n'arrive pas à faire marcher.

Je vous remercie d'avance.