Création d'un fichier .CSVDOS par VBA

Bonjour,

A partir d'une feuille EXCEL existante, on peut l'enregistrer en fichier xxx.csv (DOS). Le fichier .csv obtenu contient chaque cellule séparée par des ; (point-virgule).

Si on crée automatiquement le fichier .csv par une macro EXCEL, le fichier obtenu contient chaque cellule séparée par des , (virgule).

Je voudrais donc les valeurs séparées par des ; (pv) et sans " (quote).

Merci pour votre aide

(je suis nouveau sur ce FORUM)

Cordialement

JCM

Bonjour,

Un exemple.

Cdlt.

Option Explicit
Public Sub Creer_csv()
Dim Chemin As String, nom As String

    Chemin = ThisWorkbook.Path & Application.PathSeparator
    nom = ActiveSheet.Name
    ActiveSheet.SaveAs _
            Filename:=Chemin & nom, _
            FileFormat:=xlCSV, _
            local:=True     ' paramètres panneau de configuration.

            ' **ou FileFormat:=xlCSVMSDOS**
End Sub

Bonjour,

Merci pour la solution proposée, mais c'est à peu près ce que j'avais testé. Le fichier .csvdos obtenu par cette macro contient les valeurs séparées par des virgules et non par des points-virgules, ce que je souhaiterais.

cordialement

Jean Claude

Re,

Avec ma version Excel 2010, cela fonctionne parfaitement.

Quels sont les paramètres que tu as dans le panneau de configuration ()?

Cdlt.

Bonjour,

Merci pour ta réponse mais (malheureusement?) j'utilise EXCEL 2003 et je n'ai donc pas ce paramétrage.

J'ai modifié le séparateur de décimales dans les options, cela ne change rien.

Meilleurs vœux 2015

Cordialement

Jean Claude