transformation de csv en xls

Question

je suis novice en VB et je souhaite developper une macro pour modifier un fichier csv en xls.

lorqsque je le fais &#224; la main avec excel ca marche tres bien, la macro cree automatiquemen par contre ne marche pas. le fichier xls cree est identique au fichier csv.

les ;  ne sont pas transform&#233; en tabulation

une autre id&#233;e serait de remplacer les ; par des tab, mais je ne sais pas le faire.

merci d'anvance por votre aide.

sacha1435 · Answer

Bonjour,

Pour ma part j'ai utilis&#233; une macro VBA de excel directement.
Pour ce faire excel poss&#232;de un enregistreur de macro qui est tr&#232;s pratique quand on d&#233;bute en VB.

tu fais ta manip en live bien &#233;videmment avant tu d&#233;marres l'enregistreur, et puis tu regardes le code et tu t'en inspire
pour ce que tu veux exactement.

Sacha

  \!/
    00
     !

sacha1435 · Answer

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 24/06/2005 by Sacha Monnom
'


'
    ChDir "[file://Leskensdc1/Company/02-Dessins/Autographe-New/Ex%E9cution 02-Dessins\Autographe-New\Ex&#233;cution]"
    Workbooks.OpenText Filename:=  _
        "[file://Leskensdc1/Company/02-Dessins/Autographe-New/Ex%E9cution/Version-Autographe-New.txt 02-Dessins\Autographe-New\Ex&#233;cution\Version-Autographe-New.txt]" _
        , Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
        , Comma:=False, Space:=False, Other:=True,  OtherChar:=",",  FieldInfo _
        : =Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2)), _
        TrailingMinusNumbers:=True
End Sub

dans la ligne OtherChar:="," tu remplaces la "," par ";" et cela fonctionne tr&#232;s bien.
Macro faite avec l'enregistreur.

Sacha

  \!/
    00
     !

Transformation de csv en xls

2 réponses