Discussion :

[thom75]

Bonjour
Je suis débutant avec VBA
Voilà ma problématique. J'ai fait une macro pour transformer un fichier excel en fichier texte.
J'ai dans ce fichier, 4 colonnes au format Nombre, avec 3 décimales.
Lorsque je lance la macro, mon export se fait bien, par contre les nombres entiers de ces colonnes sont exportés sans décimales. Or je dois ensuite réutiliser ce fichier dans une application et j'ai besoin que tous mes nombres conservent bien 3 décimales, même si ce sont en fait des entiers.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        RowIndex = 2
        MaxRows = 30000
        For RowIndex = 2 To MaxRows
            Do While Trim(Worksheets(6).Cells(RowIndex, 1)) <> ""
            Application.StatusBar = "Creating File..." & Str(RowIndex)
               strSql = Chr(34) & Worksheets(6).Cells(RowIndex, 1) & Chr(34) & ";" & Worksheets(6).Cells(RowIndex, 2) & ";" & Worksheets(6).Cells(RowIndex, 3) & ";" & Worksheets(6).Cells(RowIndex, 4) & ";" & Worksheets(6).Cells(RowIndex, 5) & ";" & Chr(34) & Worksheets(6).Cells(RowIndex, 6) & Chr(34) & ";" & Worksheets(6).Cells(RowIndex, 7) & ";" & Worksheets(6).Cells(RowIndex, 8) & ";" & Chr(34) & Chr(34) & ";;" & Chr(34) & Chr(34) & ";" & Chr(34) & Chr(34) & ";" & Worksheets(6).Cells(RowIndex, 9) & ";" & Worksheets(6).Cells(RowIndex, 10) & ";" & Worksheets(6).Cells(RowIndex, 11) & ";" & Worksheets(6).Cells(RowIndex, 12) & ";;;;" & Chr(34) & Chr(34) & ";;" & Chr(34) & Chr(34)
               strSql = strSql & ";"
               Print #i, strSql
               RowIndex = RowIndex + 1
            Loop
 
        Next RowIndex

Je suis preneur de toutes les bonnes idées

Merci

[pgz]

Bonjour.

Tu peux remplacer chaque valeur de cellule comme

Code :

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

Worksheets(6).Cells(RowIndex, 1)

Par

Code :

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

Format(Worksheets(6).Cells(RowIndex, 1),"0.000")

Cordialement,

PGZ

[thom75]

Super ça marche très bien, merci du conseil.

Dernier point tant que j'y suis : le séparateur décimal est une virgule. Est ce que je peux le forcer sur un point sans changer les paramètres régionaux de mon PC (car je suppose que ça vient de là)?

[thom75]

J'ai trouvé comment faire

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
 
        RowIndex = 2
        MaxRows = 30000
        NewVal1 = ""
        NewVal2 = ""
        NewVal3 = ""
        NewVal4 = ""
        For RowIndex = 2 To MaxRows
            Do While Trim(Worksheets(6).Cells(RowIndex, 1)) <> ""
            Application.StatusBar = "Creating File..." & Str(RowIndex)
               NewVal1 = Replace(Format(Worksheets(6).Cells(RowIndex, 9), "0.000"), ",", ".")
               NewVal2 = Replace(Format(Worksheets(6).Cells(RowIndex, 10), "0.000"), ",", ".")
               NewVal3 = Replace(Format(Worksheets(6).Cells(RowIndex, 11), "0.000"), ",", ".")
               NewVal4 = Replace(Format(Worksheets(6).Cells(RowIndex, 12), "0.000"), ",", ".")
               strSql = Chr(34) & Worksheets(6).Cells(RowIndex, 1) & Chr(34) & ";" & Worksheets(6).Cells(RowIndex, 2) & ";" & Worksheets(6).Cells(RowIndex, 3) & ";" & Worksheets(6).Cells(RowIndex, 4) & ";" & Worksheets(6).Cells(RowIndex, 5) & ";" & Chr(34) & Worksheets(6).Cells(RowIndex, 6) & Chr(34) & ";" & Worksheets(6).Cells(RowIndex, 7) & ";" & Worksheets(6).Cells(RowIndex, 8) & ";" & Chr(34) & Chr(34) & ";;" & Chr(34) & Chr(34) & ";" & Chr(34) & Chr(34) & ";" & NewVal1 & ";" & NewVal2 & ";" & NewVal3 & ";" & NewVal4 & ";;;;" & Chr(34) & Chr(34) & ";;" & Chr(34) & Chr(34)
               strSql = strSql & ";"
               Print #i, strSql
               RowIndex = RowIndex + 1
            Loop
 
        Next RowIndex

Merci encore de ton conseil pgz