Manipuler fichier .csv

[flint6593]

Bonjour,

J'aimerais pouvoir ouvrir un fichier .csv avec mon classeur excel (par macro), remplacer les , par des ; (mise en forme lors de la création du fichier csv)
J'arrive à faire tous ça, mais bizarrement lorsque je fais l'enregistrement des modifications du fichier .csv avec mon classeur excel, les modifications ne s'enregistres pas!!!!

Lorsque j'ouvre mon .csv avec notepad il y a toujours les ","

C'est bizarre ça fonctionne en manuel, j'enregistre la macro, je la lance et ça ne marche pas...

Je me débrouille en vba, mais là je suis un peu dépassé...

Un peu d'aide????

Je vous mets mon fichier .csv et je vous mets mon code en suivant:


Application.ScreenUpdating = False
Sheets("claa").Select
i=10
nbl = Range("B" & i).End(xlDown).Row

Workbooks.Add
mac = ActiveWorkbook.Name
Windows(mac).Activate
Active_Rep = ThisWorkbook.Path & "\"

ActiveWorkbook.SaveAs Filename:= _
Active_Rep & "testpp.csv", FileFormat _
:=xlCSV, CreateBackup:=False

Cells.Select
Selection.NumberFormat = "@"
Windows("MEGA.xls").Activate
Sheets("claa").Select
Rows(i & ":" & nbl).Select
Selection.Copy

Windows("testpp.csv").Activate
Range("A1").Select
ActiveSheet.Paste


Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=True
Application.DisplayAlerts = True

Windows("MEGA.xls").Activate
Sheets("claa").Select
ActiveSheet.Protect