Discussion :

[Teddy7]

Bonjour,
J'alimente une cellule d'une feuille excel a partir d'un programme ecrit en VB6, la zone est alimentée comme ceci :

Code :

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

FeuilleExcel.Cells(3, 5).String = "1,120.00"

Lorsque je genere le document excel, la cellule affiche : "1 120,00"
(Mon poste est bien regle sur "Français(France)" en option regionale).
Comment expliquer cela ? comment 'forcer' l'ecriture de la zone a "1,120.00" ?
Merci pour vos lumieres.
Tedd

[l_autodidacte]

Je ne sais pas quelle version de MS Office tu utilises mais avec la mienne(2003) le code

Code :

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

FeuilleExcel.Cells(3, 5).String = "1,120.00"

ne passe pas avec le mot String

De toute façon, il faut voir avec les séparateurs utilisés sur ton OS : "," pour le séparateur décimal et " " espace pour le séparateur des milliers.
D'autre part, si le format de la cellule cible est mis sur Texte le code suivant devrait faire l'affaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim XL As New Excel.Application, WSheet As Worksheet, WB As Workbook, txt$
 
Private Sub Form_Load()
   XL.Visible = True
   txt = "1,120.00"
   Workbooks.Open "C:\Test1.xls"
   Set WB = Workbooks(1)
   Set WSheet = Workbooks(1).ActiveSheet
   WSheet.Cells(3, 5) = Replace(txt, " ", ",")
   XL.DisplayAlerts = False
   WB.Save
End Sub