Discussion :

[jfontaine]

Hello,

Dans un programme, j'ai besoin d'ouvrir un fichier texte pour l'enregistrer soit en xls soit en dif.
Le fichier est ouvert en dépcifiant bien comme separateur decimal le "."
Si je choisi le format excel, pas de problème.
Si je choisi le format dif le séparateur devient la virgule.

Comment faire pour obliger excel a utiler le symbole "." pour l'enregistrement

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
 
            appExcel = New Excel.Application
            appExcel.Visible = False
 
 
            appExcel.Workbooks.OpenText(CheminSortie & Id & ".txt", StartRow:=1, Datatype:=Excel.XlTextParsingType.xlDelimited, _
                    TextQualifier:=Excel.XlTextQualifier.xlTextQualifierNone, ConsecutiveDelimiter:=False, Semicolon:=True, _
                    DecimalSeparator:=".")
 
            WrkExcel = appExcel.ActiveWorkbook
 
 
            '################################
            '### gere le format de sortie ###
            '################################
 
            Select Case Extension
                Case "xls"
                    xlFormat = Excel.XlFileFormat.xlExcel7
                Case "dif"
                    xlFormat = Excel.XlFileFormat.xlDIF
            End Select
 
 
            '#############################################
            '### Supprime le fichier Excel si existant ###
            '#############################################
 
            If fi.Exists(CheminSortie & Id & "." & Extension) Then
                fi.Delete(CheminSortie & Id & "." & Extension)
            End If
 
 
            '#############################
            '### Sauvegarde le fichier ###
            '#############################
 
            WrkExcel.SaveAs(CheminSortie & Id & "." & Extension, xlFormat)
            WrkExcel.Close(False)

NB : le langage est vb.NET mais le problème ne se situe pas au niveau syntaxe.

[jfontaine]

Laisser tomber, j'ai trouvé.

il suffit de renseigner un des paramètre de saveas
le dernier, pour etre précis, (Local) doit être à true pour utilisation des paramètres régionnaux d'Excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
WrkExcel.SaveAs(CheminSortie & Id & "." & Extension, xlFormat, , , , , , , , , , True