Pb de séparateur après la transmission de fichier .xls à fichier .csv pas un VBRésolu

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

ScSami · Accepted Answer

Une question similaire a &#233;t&#233; pos&#233;e ici il y a quelque
jours... Si tu recherches tu trouveras sans doute une meilleur solution
que celle que je vais te proposer car je crois savoir qu'il existe une
m&#233;thode (fonction) permettant de choisir le caract&#232;re des CSV...



Sinon, la meilleur solution est d'enregistrer ton fichier en CSV avec Excel puis de faire un truc du genre :

varFichier =  
"C:\Fermat\dat\loandepo_man.csv"

 ActiveWorkbook.SaveAs varFichier, xlCSV 
Dim varTemp As String  'Tr&#232;s important pour que Get fonctionne
Open varFichier For Binary As #1  'Ouvrir le fichier en mode Binary
 'D&#233;limite la variable &#224; la taille du nombre d'octets (caract&#232;res ASCII) du fichier)
 varTemp  = Space(LOF(1))
 'R&#233;cup&#232;re l'int&#233;gralit&#233; des octets du fichier dans la variable pr&#233;c&#233;demment dimensionn&#233;e pour.
 Get #1, 1, varTemp
Close #1  'Fermer le fichier
varTemp = Replace(varTemp, ",", ";")  'Remplace les "," par des ";"

Restera plus qu'a enregistrer varTemp dans un fichier &#224; l'extension CSV et le tour sera jou&#233;!

Cel&#224; r&#233;pond-t-il &#224; ta question ? As-tu besoin de plus d'explications ???


Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

Pb de séparateur après la transmission de fichier .xls à fichier .csv pas un VB

1 réponse

Discussions similaires