XL 2010 vba format csv séparateur donnée et décimale

kan3pz

XLDnaute Occasionnel
Bonjour à tous,
Je vous sollicite une fois de plus pour une fonction vba. je souhaite enregistrer un classeur créé sous le format csv avec ";" comme séparateur de donnée et "," comme séparateur décimale.

J'ai trouvé le code suivant pour ouvrir un fichier sous ce format mais comme c'est une création je souhaite l'affecter au moment de la fermeture et de l'enregistrement du fichier.

Code:
Workbooks.OpenText Filename:="adresse\monfichier.csv", StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Semicolon:=True, DecimalSeparator:=","

Merci d'avance !
 

kan3pz

XLDnaute Occasionnel
Bonsoir Modeste geedee,
Après un petit moment de bidouille ça fonctionne !
Code:
        Application.DisplayAlerts = False
        Workbooks(Monfichier).SaveAs Filename:=Monfichier, FileFormat:=xlCSV, Local:=True
        Workbooks(Monfichier).Close savechanges:=False 
        Application.DisplayAlerts = True

A noter dans le cas où j'ouvre mon fichier (déjà sur un format csv mais pas avec les bons séparateurs) si j'applique l'instruction "Workbooks(Monfichier).Close savechanges:=True" lors de la fermeture le fichier s'enregistre sous le format de départ en écrasant la bonne version...

A+
 

Discussions similaires

  • Question
Microsoft 365 Import CSV
Réponses
9
Affichages
1 K

Membres actuellement en ligne

Statistiques des forums

Discussions
314 628
Messages
2 111 337
Membres
111 104
dernier inscrit
JEMADA