Bonjour,

Je suis sous Excel 2010.

Je dois enregistrer une feuille d'un classeur au format CSV.

Lorsque je le fait manuellement, cela fonctionne, mais si je le fais dans la macro, mon fichier se retrouve pollué de ","...

Voici les ligne que j'utilise :

Sheets("importtrace").Select
Sheets("importtrace").Move
ActiveWorkbook.SaveAs Filename:=NomFichier & ".csv", FileFormat:=xlCSV, CreateBackup:=False, Local:=True
ActiveWorkbook.Save
ActiveWindow.Close Savechanges:=True

J'ai vérifié, dans mes paramètres régionaux, il y a bien le ";" en séparateur.

Je me casse la tête sur cette macro, merci de votre aide

bonjour,

avec ceci peut-être

Sub Test()
Dim Plage As Object, oL As Object, oC As Object, Tmp$, Sep$
Sep = ";"
Set Plage = ActiveSheet.Range("A1:f" & ActiveSheet.Range("A"& Rows.Count).End(xlUp).Row)
Open "NomFichier.csv" For Output As #1
For Each oL In Plage.Rows
Tmp = ""
For Each oC In oL.Cells
Tmp = Tmp & CStr(oC.Text) & Sep
Next
Print #1, Tmp
Next
Close
End Sub