lire et modifier un fichier CVS via VBScript

annaDela

XLDnaute Nouveau
bonjour,
j’espère que je trouve quelqu'un qui peut m'aider pour trouver une solution ,
je début avec VBS et j'ai besoin de votre aide
j'ai un fichier CSV et j'ai besoin de créer un Script avec VBS qui prend en entrée un fichier CSV ,il récupère l'emplacement de la date et ensuite il change le format date sous forme 'jj nom_mois AA'
en PJ un exemple de mon fichier CSV
 

Fichiers joints

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum

@annaDela
Tu veux parler d'une macro VBA?
(car ici forum dédié à Excel)

Ou d'un véritable script VBS (ce qui n'est pas tout à fait la même chose) ?

En attendant confirmation, voici une macro issu de l'enregistreur de macros ( à peine modifiée)
VB:
Sub Macro1()
Dim sPath As String, N_Fic As String
sPath = ThisWorkbook.Path & Chr(92)
N_Fic = "TEST_forum.txt"

Workbooks.OpenText Filename:=sPath & N_Fic, _
        Origin:=xlMSDOS, StartRow:=7, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
        , Comma:=False, Space:=False, Other:=True, OtherChar:=";", FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 3), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1)), DecimalSeparator:=".", _
        TrailingMinusNumbers:=True
Columns("E:E").NumberFormat = "dd mmmm yy"
End Sub
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum,

@annaDela
Dans ce cas, et pour rester dans l'esprit du partage du forum, tu devrais peut-être poster ton script VBS sur le forum, non ?
(Cela pourrait peut-être servir à d'autres)
 

Discussions similaires


Haut Bas