Exporter en CSV avec pour séparateurs des

Bonjour à tous.

J'ai créé une macro que vous trouverez ci-dessous, mais je n'arrive pas à exporter en CSV avec pour séparateurs des ;

Voir le fichier ci-joint.

Sub Enregistrer_en_csv()
'
' Enregistrer_en_csv
'
    Sheets(Array("Activités")).Select

    ChDir "C:\Users\Eric\Documents"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Eric\Documents\Activités.csv", FileFormat:= _
        xlCSV, CreateBackup:=False

    ChDir "C:\Users\Eric\Documents"
    ActiveWorkbook.SaveAs Filename:= _
        "\\PC-BLEU\Google Drive\Hors cours\Fichiers de données\Activités.csv", FileFormat:= _
        xlCSV, CreateBackup:=False

    Sheets(Array("Séances")).Select

    ChDir "C:\Users\Eric\Documents"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Eric\Documents\Séances.csv", FileFormat:= _
        xlCSV, CreateBackup:=False

        ChDir "C:\Users\Eric\Documents"
    ActiveWorkbook.SaveAs Filename:= _
        "\\PC-BLEU\Google Drive\Hors cours\Fichiers de données\Séances.csv", FileFormat:= _
        xlCSV, CreateBackup:=False

     ActiveWorkbook.SaveAs Filename:= _
        "\\PC-BLEU\Google Drive\Hors cours\Fichiers de données\Séances-Activités-Evaluations.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

Bonjour,

Le "," pour les fichiers CSV est le séparateur par défaut pour les anglo-saxons . Pour obtenir le ";", il faut utiliser le langage par défaut de ta version d'Office, c'est à dire le "Français" et donc l'indiquer dans ton instruction, comme ceci :

C:\Users\Eric\Documents\Activités.csv", FileFormat:= _
        xlCSV, CreateBackup:=False, [b]Local=True[/b]

Bonsoir, et merci pour ta réponse.

Je fais les essais....

Cela fonctionne ! Merci beaucoup.

Il y aurait encore une petite chose qui me simplifierait beaucoup la vie, car je vais enregistrer bien d'autres feuilles en CSV : ce serait d'enregistrer automatiquement, sans me demander mon accord :