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
 

Pièces jointes

  • TEST_forum.txt
    737 bytes · Affichages: 49

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:

Discussions similaires

Statistiques des forums

Discussions
315 102
Messages
2 116 219
Membres
112 690
dernier inscrit
noureddinee