Enregistrer un fichier XLS en CSV

Bonjour,

J'ai fait quelques recherches, et j'en ai écrit le résultat suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub SaveAsCSV()   Dim wkbClasseur As Workbook Dim strNomFichier As String Dim strChemin As String   Set wkbClasseur = ActiveWorkbook strNomFichier = "rien" strChemin = ThisWorkbook.Path & "\" & strNomFichier & ".csv" Debug.Print (strChemin)   wkbClasseur.SaveAs Filename:=strChemin, FileFormat:=x1CSV, CreateBackup:=False   End Sub

---

Mais ça me renvoie une erreur.

Citation:

---

Erreur d'exécution '1004'

La méthode 'SaveAs' de l'objet '_Workbook' a échoué

---

Tout les exemples que j'ai trouvé ont pourtant un code similaire.

merci de préciser quelle application tu utilise ( Word, Powerpoint...)
pour le format cela n'est pas
x1CSV ... mais xlCsv (avec un L )

J'utilise Excel. C'était bien le 1 l'erreur. Le pire, c'est que je l'avais changé mais j'avais pas sauvegardé mon fichier avant de quitter :aie:

Merci.

Encore un détail, comment je peux faire pour qu'il me sépare mes informations par un ";" ?

Et comment faire pour qu'il ne m'ouvre pas le CSV ?

J'ai trouvé, la réponse était dans la FAQ