Pb de séparateur de fichier .csv après le traitement d'un VB

Question

Salut &#224; tous,

Voici un VB,
'------------------------------------
Sub Macro1()
'
    Application.DisplayAlerts = False
    ChDir "C:\Fermat\recu"
    Workbooks.Open FileName:="C:\Fermat\recu\loandepo_man.xls"
    ChDir "C:\Fermat\dat"
    ActiveWorkbook.SaveAs FileName:="C:\Fermat\dat\loandepo_man.csv", FileFormat _
        :=xlCSV, CreateBackup:=False
    ActiveWorkbook.SaveAs FileName:="C:\Fermat\dat\loandepo_man.csv", FileFormat _
        :=xlCSV, CreateBackup:=False
    ActiveWindow.Close
End Sub

c'est pour changer la format .xls &#224; .csv.
mais dans le fichier "loandepo_man.csv", le s&#233;parateur est "," au lieu de ";".

Pourriez-vous m'aider pour trouver la solution.
(note : quand je le fais manuellement, &#231;a marche bien avec le ";")

Merci d'avance

atalmy · Answer

Salut,

J'ai eu le m&#234;me probl&#232;me que toi et je viens de trouver la solution 
il faut rajouter un param&#232;tre &#224; ta fonction SAVEAS

ActiveWorkbook.SaveAs FileName:="C:\Fermat\dat\loandepo_man.csv",  _
FileFormat:=xlCSV, CreateBackup:=False, Local:=True

Par d&#233;faut ce param&#232;tre a la valeur False.

Le pourquoi du comment est expliqu&#233; ici:
http://www.archive.freeola.com/m.p.e.programming/Pwtffxaaf-separator.shtml

J'ai test&#233; et &#231;a fonctionne ! 
A toi de jouer...

Pb de séparateur de fichier .csv après le traitement d'un VB

1 réponse

Discussions similaires