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

[kan3pz]

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.

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

Merci d'avance !

 

[Modeste geedee]

Bonsour®

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.

🙄 Open c'est pour ouvrir...
Save c'est pour enregistrer ...😉
voir l'aide F1 :
instruction : Workbook.SaveAs
notamment l'argument xlFileformat

 

[kan3pz]

Bonsoir Modeste geedee,
Après un petit moment de bidouille ça fonctionne !

        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+