Exporter fichier Excel en CSV

Bonjour à toutes et à tous,

Je cherche à exporter mon fichier excel sous le format CSV, auriez-vous un programme simple qui fonctionnerait ?

J'ai tenté ceci :

Sub SaveAsCSV()
ActiveWorkbook.SaveAs FileFormat:=clCSV, CreateBackup:=False
End Sub

mais cela ne fonctionne pas..

Merci d'avance ! :)

Bonjour

Merci d'utiliser les balises de code disponible dans la barre de menu (icone </>) en le collant dans la fenêtre

Vous avez un erreur dans votre ligne (C au lieu de X)
Essayez ceci :

Sub SaveAsCSV()
ActiveWorkbook.SaveAs FileFormat:=xlCSV, CreateBackup:=False
End Sub

Si le code est placé dans le fichier que vous sauvegarder vous pouvez remplace le mot ACTIVEWORKBOOK par THISWORKBOOK

si ok -->

Cordialement

Je n'ai pas compris la notion des balises

le code fonctionne !

J'aimerai qu'un explorateur de fichier s'ouvre et que l'on puisse choisir l'emplacement de sauvegarde , comment pourrais-t-on matérialiser cela?

via une dialogBox?

Essayez ceci peut être

Sub test()
Dim Fichier As String
On Error Resume Next
Fichier = Application.GetSaveAsFilename(fileFilter:="Excel Files (*.csv), *.csv")
If Fichier <> False Then ActiveWorkbook.SaveAs FileFormat:=xlCSV, CreateBackup:=False
End Sub

Crdlt

Merci beaucoup cela fonctionne!