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.