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 : Sélectionner tout - Visualiser dans une fenêtre à part
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