Discussion :

[pifor]

J'utilise Excel 2003 sur XP Pro et je voudrais un VB script pour sauvegarder automatiquement une feuille d'un fichier Excel dans un fichier au format .csv en ayant le ';' comme séparateur et non la ',' et les dates au format français.

J'ai trouvé le code suivant que fait ce que je veux mais c'est au format américain (séparateur =',' et les dates au format MM/DD/YYYY):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Const xlCSV = 6
 
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("test.xls")
objExcel.DisplayAlerts = FALSE
 
Set objWorksheet = objWorkbook.Worksheets("6B")
objWorksheet.SaveAs "test_6B.csv", xlCSV,,,,,,,,,True
 
objExcel.Quit

Comment faire ?

merci.

[Fredledingue]

Il m'a toujours semblé qu'excell montrait les dates dans le format définis par défaut sur l'ordinateur 9et peut être dans excell).

[pifor]

Je précise que:

• j'ai bien un PC avec Windows en français
• dans le document Excel .xls les dates sont bien au format français
• l'option de menu Enregistrer Sous ... avec le format CSV fonctionne bien (séparateur=';' et dates en français): mais c'est une action manuelle.
• mon script VBS génère un fichier .csv avec ',' et les dates au format US.

[Fredledingue]

Je vois pleins de virgules dans cette ligne de commande.
Ca veut dire qu'on peut y mettre quantités de paramètres.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objWorksheet.SaveAs "test_6B.csv", xlCSV,,,,,,,,,True

Désolé d'avoir l'air idiot mais je n'ai pas la réponse...