[VBA-E] Macro pour convertir un fichier texte en excel

**Nicolas67** · 15/05/2006, 14h44

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.

**SfJ5Rpw8** · 15/05/2006, 14h52

dans ton code si tu selectionne OpenText et appelle l'aide en ligne VBA excel .. par F1 ..tu trouveras la liste des options relative à la fonction ... à priori tes données étant des colonnes limitées par des tabulation modifie les 2 options suivante :

Code :

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

Tab:=True, Semicolon:=False

ensuite il faut voir comment tu ve lancer ta macro ... ? si elle charge toujours le même fichier ou si tu doit en sélectionner un ...

**Nicolas67** · 15/05/2006, 15h16

Merci bbil.

En effet, ma stat lance toujours le même fichier. C'est une macro que je rappelle toutes les semaines.
Juste une dernière question. Comment modifier une colonne en la multipliant avec une autre et en lui foutant le résultat ?

Je suppose que je vais parcourir tout le fichier avec un while et incrémenter une valeur mais comment me balader dans mon fichier excel ?

**SfJ5Rpw8** · 15/05/2006, 15h32

tiens pour la multipication voilà un peu de code qui agit sur la feuille active :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Multiplie()
  Dim r As Range 'Colonne à parcourir
  Dim iX As Integer ' index ligne parcouru
  'Par exemple colonne 8...
  Set r = Range(Cells(1, 8), Cells(1, 8).End(xlDown))
  For iX = 2 To r.Rows.Count '¨parcours les lignes en oubliant la 1°
    Debug.Print "IX : " & iX & ".."; r.Cells(iX)
    r.Cells(iX) = r.Cells(iX) * r.Parent.Cells(iX, 5)
    ' r.Parent = feuille contenant la colonne initiale
    '.Cells(ix,5) .. 5 = Colonne E
  Next
 
End Sub