Discussion :

[n@n¤u]

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 :

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

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 !

[n@n¤u]

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

[n@n¤u]

Il suffisait d'ajouter en fin de code :

Code :

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

ActiveWorkbook.Close

Et ça marche !

[ouskel'n'or]

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

ActiveWorkbook.Save

tu dois mettre

Code :

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

ActiveWorkbook.Close true

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