Convertir un fichier XLS en CSV

Bonjour,

je dispose d'un fichier Excel et j'essaie d'automatiser une solution pour l'obtenir sous format CSV.

J'ai donc pensé aux macros, voilà la mienne :

Code:

---

1 2 3 4 5 6 7 8

ChDir "E:\tmp" Workbooks.Open fileName:=fileNameXLS fileNameCSV = Replace(fileNameXLS, "xls", "csv")   ActiveWorkbook.SaveAs fileName:=fileNameCSV, _ FileFormat:=xlCSV, CreateBackup:=False   ActiveWorkbook.Save

---

Ce bout de code se situe dans un fichier qui execute automatiquement cette action à son ouverture. Le fichier est ouvert par du code VBScript.

Mon problème est qu'il me demande toujours si je veux enregistrer les modifications apportées à mon fichier CSV.
Je voudrais savoir s'il y a un moyen de corriger mon problème ou s'il existe une autre astuce pour effectuer la conversion.
J'espère avoir été clair :? Merci à vous !

Ca ne marche pas :(

J'ai l'erreur suivante :
"Nombre d'arguments incorrect ou affectation de propriété non valide "

Pour info, je travaille sous MS Excel 2003

Il suffisait d'ajouter en fin de code :

Code:

---

ActiveWorkbook.Close

---

Et ça marche ! :D

Ok, j'ai dit une c... rie, je voulais dire, au lieu de mettre

Citation:

---

ActiveWorkbook.Save

---

tu dois mettre

Code:

---

ActiveWorkbook.Close true

---

Le fichier est enregistré avant fermeture. Tu économises une ligne ;)