Bonjour,
J'utilise une macro pour sauvegarder et exporter une feuille de mon classeur xls en csv.
Ceci fonctionne bien... sauf que le français est transformé en anglais.
Ex : janv-13 devient january-13 ou encore 15/2/2013 devient 2/15/2013
Pouvez vous m'aider à resoudre ce problème ?
Merci d'avance.
Ma macro :
Sub Final()
'
' Final Macro
' Macro enregistrée le 05/02/2013 par Administrateur
'
'
Range("A1:CX1").Select
Selection.Copy
Sheets("capvimphp").Select
ActiveWindow.ScrollColumn = 95
ActiveWindow.ScrollColumn = 93
ActiveWindow.ScrollColumn = 91
ActiveWindow.ScrollColumn = 86
ActiveWindow.ScrollColumn = 83
ActiveWindow.ScrollColumn = 77
ActiveWindow.ScrollColumn = 71
ActiveWindow.ScrollColumn = 65
ActiveWindow.ScrollColumn = 57
ActiveWindow.ScrollColumn = 52
ActiveWindow.ScrollColumn = 44
ActiveWindow.ScrollColumn = 38
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ChDir "O:\Stéphane"
ActiveWorkbook.SaveAs Filename:="O:\Stéphane\capvimphp.csv", FileFormat:= _
xlCSV, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:="O:\Stéphane\capvimphp.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub