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)
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas