Discussion :

[120]

j'exporte une requete Access dans un fichier Excel :

Code :

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

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "MTA_TACHE_MAINTENANCE", "C:\Documents and Settings\client\Mes documents\MTA\MTA_TACHE_MAINTENANCE.xls"

j'ai un champ dont la valeur est 0.8 dans Access et j'obtiens 0,800000011920928 dans Excel
Y a t-il un moyen de remédier à celà ?
Merci

[morpheus002]

Essaie un truc comme ca :

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
 
Dim oAppExcel As Excel.Application
Dim oClasseur As Excel.Workbook
Dim oFeuille As Excel.Worksheet
Dim oCell As Excel.Range
Dim i As Integer
Dim j As Integer
Dim txtChemin As String
Dim ValCells As Double
 
'Ouvre le fichier excel
Set oAppExcel = CreateObject("Excel.Application")
Set oClasseur = oAppExcel.Workbooks.Open(txtChemin)
 
'Sélectionne la première feuille
Set oFeuille = oClasseur.Worksheets(1)
 
'Arrondi les cellules de la colonne j
While (oFeuille.Cells(i, j) <> "")
    ValCells = CDbl(oFeuille.Cells(i, j).Value)
    oFeuille.Cells(i, j).Value = Round(ValCells, 2)
    i = i + 1
Wend
 
'Ferme Excel
oClasseur.Save
oClasseur.Close
oAppExcel.Quit

[120]

oui merci ce pourrait être une idée...
mais ce que je voudrais c'est si j'ai 0.8 dans access avoir 0.8 dans Excel
masi si j'ai 0.826458 dans access je veux 0.826458 dans Excel

donc ta solution ne convient pas vraiment....
et puis j'exporte une douzaine de requète comme cela (qui ont chacune pas mal de lignes) alors ta solution risquerait de prendre du temps

Je connaissais le pb avec les versions précédentes d'access et Excel mais je pensais qu'avec les nouvelles versions c'était réglé...

[random]

dans access les nombres double n'ont pas une précision parfaite
il faut changer ton type de données à currency quitte à multiplier
tes valeurs par 100 ou 1000

[120]

Oui la solution va venir de là merci
En fait mon champ était en réèl simple, donc je le passe en double et une requète de mise à jour résoud mon pb

merci