Discussion :

[lal1du68]

Bonjour,

je cherche a enregistrer un tableau Excel en CSV afin de pouvoir l'importer dans une application SAP.
Voici mon code :

Code :

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

1
2
    ActiveWorkbook.SaveAs Filename:="C:\Users\xxxx\Desktop\Classeur1.csv" _
        , FileFormat:=xlCSV, CreateBackup:=False

Mon problème est que là dans le CSV le séparateur de colonne est "," alors que si je le fait en manuelle c'est ";".
Alors comment faire simplement pour modifier le séparateur en ";" ?

j'avais bien penser a modifier mon tableau en ajoutant des colonnes avec des ";" puis d'enregistrer mon fichier en txt et modifier l'extention en "csv".

Code :

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

1
2
    ActiveWorkbook.SaveAs Filename:="C:\Users\MOISSONNIER\Desktop\Classeur1.csv" _
        , FileFormat:=xlText, CreateBackup:=False

mais je ne suis pas sur que ça fonctionne a cause des tabulations et puis je ne voudrais pas rendre mon fichier d'origine plus compliqué a utiliser.


D'avance merci

[Theze]

Bonjour,

Teste en mettant "Local" à True !

[kiki29]

Salut, bis repetita placent ...
Local Argument de type Variant facultatif. La valeur True enregistre les fichiers en fonction de la langue de Microsoft Excel (y compris les paramètres du Panneau de configuration).
La valeur False (valeur par défaut) enregistre les fichiers en fonction de la langue de Visual Basic pour Applications (VBA) (qui est généralement l'anglais des États-Unis, sauf si le projet VBA où Workbooks.Open est exécuté est un ancien projet VBA XL5/95 de niveau international).

A titre informatif : voir ici

[lal1du68]

Ca à l'air de fonctionner, je vais contrôler ça lundi.

De plus ça conserve le format de la date en "01/01/2016" trop cool, moi qui passait les cellules en texte pour conserver ce format et ne pas avoir "1/1/2016", plus besoin avec "local:=True"

Merci a tout les deux.

[ptimichel]

merci pour l'info, çà marche :

Code :

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

1
2
3
4
 
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Profiles\user\Desktop\Fichier.csv", FileFormat:=xlCSV _
        , CreateBackup:=False, Local:=True