Export en csv transforme le français en anglais
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 :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
| 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 |
