Discussion :

[Bloodscalp]

Bonjour,

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

Code :

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

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.

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.

[SfJ5Rpw8]

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

[Bloodscalp]

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

Merci.

[Bloodscalp]

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 ?

[Bloodscalp]

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