VBSCRIPT PERMETTANT DE PASSER UN FICHIER EXCEL EN CSV
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
-
20 avril 2007 à 14:18
esus1985 Messages postés 76 Date d'inscription mercredi 1 juin 2005 Statut Membre Dernière intervention 26 février 2009 - 2 mai 2007 à 11:44
esus1985 Messages postés 76 Date d'inscription mercredi 1 juin 2005 Statut Membre Dernière intervention 26 février 2009 - 2 mai 2007 à 11:44
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/42371-vbscript-permettant-de-passer-un-fichier-excel-en-csv
https://codes-sources.commentcamarche.net/source/42371-vbscript-permettant-de-passer-un-fichier-excel-en-csv
2 mai 2007 à 11:44
du coup, ca sert à rien et ton code est beaucoup plus rapide...
mais euh !
^^
27 avril 2007 à 11:05
Neni, tu utilises déjà Excel donc je maintiens le fait que tu remplaces ton code par ce que j'ai fournit comme autre solution puis en remplacant uniquement les <FICHIER_EXCEL> par ton fichier passé en argument le résultat est le meme.
27 avril 2007 à 10:46
je ne veux pas utiliser directement excel car j'ai plusieurs fichiers differents sur lesquels differentes modifications sont à apporter donc, il me faut un script dans lequel je rentre n'importe quel fichier et qui me le modifie pour ensuite lancer un lot DTS manuellement. De plus, il n'y a pas toujours que ca comme changement à faire donc le vbs me parait indiqué.
26 avril 2007 à 16:34
26 avril 2007 à 14:46
par ce que des fois, un script vb sur un serveur ne referme pas bien l'objet excel et sur un serveur entreprise, on ne prend pas le risque de lancer ca donc on execute un vbs sur un portable avant
shad108 : je n'en avais pas besoin pour faire ce que j'ai eu à faire donc je n'ai pas été chercher jusque la.
20 avril 2007 à 16:38
20 avril 2007 à 14:18
-----------------------------------
dim oExcelApp
dim oExcelWbk
Set oExcelApp = CreateObject("Excel.Application")
oExcelApp.DisplayAlerts = False
Set oExcelWbk = oExcelApp.Workbooks.Open(<FICHIER_EXCEL>)
oExcelWbk.SaveAs left(<FICHIER_EXCEL>,len(<FICHIER_EXCEL>)-4) & ".csv",6,,,,,,,,,,True
oExcelWbk.Close False
oExcelApp.Quit
Set oExcelWbk = nothing
Set oExcelApp = nothing