Discussion :

[arcane]

Bonjour,
Dans une macro, je voudrais simplement enregistrer ma feuille au format CSV séparateur point virgule.
Voici le code, qui l'enregistre mais en séparateur virgule :

Code :

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

1
2
3
4
5
6
7
8
Dim NomFichier As String
NomSocieteFic = Range("NomSociete").Value
DateMoisFic = Range("DateMois").Value
NomFichier = "OD_" & DateMoisFic & "_" & NomSocieteFic & ".csv"
    'MsgBox NomFichier
    Sheets("OD").Select
    'ActiveWorkbook.SaveAs Filename:=NomFichier, FileFormat:=xlCSV, CreateBackup:=False
    ActiveSheet.SaveAs Filename:=NomFichier, FileFormat:=xlCSV, CreateBackup:=False

Ce qui me pose problème, c'est ce bout :

Code :

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

FileFormat:=xlCSV

Je voudrais trouver le File Format qui fait le ;
Je me base là dessus :
https://docs.microsoft.com/fr-fr/off...rksheet.saveas
et :
https://docs.microsoft.com/fr-fr/off...l.xlfileformat

Merci