Export DIF et séparateur décimal

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:

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.