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

[EricDgn]

Bonjour,

Essayer en ajoutant Local:=True (False étant la valeur par défaut):

Code :

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

ActiveSheet.SaveAs Filename:=NomFichier, FileFormat:=xlCSV, CreateBackup:=False, Local:=True

Cordialement.

[jurassic pork]

hello,
Pour vérifier que le paramètre Local à True va bien utiliser le ; comme séparateur, il faut que le séparateur de listes dans les paramètres de format de Windows soit bien à ; (ce qui devrait être le cas pour un Windows en français)

Sous Windows 10, cliquer sur Panneau de configuration/Horloge et Régions/Modifier les formats de date, d'heure ou de nombre.
Dans la fenêtre Région qui s'ouvre , dans l'onglet Format, cliquer sur le bouton Paramètres supplémentaires
Dans la fenêtre Personnaliser le format qui s'ouvre, dans l'onglet Nombres, vérifier que le champ Séparateur de Listes est bien à ;



Ami calmant, J.P

[arcane]

C'est tout bon merci