Discussion :

[Hello27682]

Bonjour tout le monde,


J'ai un probleme lorsque je fait un import de mon csv, en fait les nombres de type 1810400000000 sont convertis en 1,8104E+12 du cout mes calcules sont fausse.

voici le code VB que j'utilise:

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
40
41
42
43
44
Dim dw, ds, dr, qt As Object
 
Try
 
dw = GetWorkbook(Handle, Workbook)
ds = GetWorksheet(Handle, Workbook, Worksheet)
dr = ds.Range(Range)
qt = ds.QueryTables.Add(Connection:="TEXT;" & Path, Destination:=dr)
 
With qt
	.FieldNames = True
	.RowNumbers = False
	.FillAdjacentFormulas = False
	.PreserveFormatting = True
	.RefreshOnFileOpen = False
	.RefreshStyle = 1 'xlInsertDeleteCells
	.SavePassword = False
	.SaveData = True
	.AdjustColumnWidth = True
	.RefreshPeriod = 0
	.TextFilePromptOnRefresh = False
	.TextFilePlatform = 437
	.TextFileStartRow = 1
	.TextFileParseType = 1 'xlDelimited
	.TextFileTextQualifier = Qualifier
	.TextFileConsecutiveDelimiter = False
	.TextFileTabDelimiter = True
	.TextFileSemicolonDelimiter = True
	.TextFileCommaDelimiter = False
	.TextFileSpaceDelimiter = False
	.TextFileTrailingMinusNumbers = True
End With
qt.Refresh(False)
Success = True
 
Catch e As Exception
	Success = False
	Message = e.Message
Finally
	dw = Nothing
	ds = Nothing
	dr = Nothing 
	qt = Nothing
End Try

Je sais pas quel attribut a utiliser pour que je garde un format "Nombre" de type 1810400000000

[unparia]

Bonjour
Le code que tu montres ... n'est pas du code VBA

[Algoplus]

Bonjour,

Peut-être passer le format des colonnes en défaut en format nombre avec décimalesà 0.

Si les cellules en défaut ne sont disséminées, à part une moulinette VBA ....

[Hello27682]

En fait meme je peut pas changer le format dans le CSV, ce code est dans l'Import file de "Blue Prisme", certainement il y'aurais un attribut a definir pour que ca donne des nombres san E+12

Ca deviens Urgent

[clementmarcotte]

Bonjour,

Va voir là:

https://support.office.com/fr-fr/art...rs=fr-FR&ad=FR

Et c'est quoi le rapport avec Excel ?

Dans ton CSV tu as quoi ? 1810400000000 ou 1,8104E+12. Parce que si c'est 1,8104E+12 dans ton CSV, Excel ne peut pas revenir à 1810400000000. De toutes façons oublie Excel. Excel est limité à 15 chiffres significatifs et tu en as déjà 13. TU ne pourras probablement pas obtenir une précision à coucher dehors.

[Hello27682]

Dans mon CSV C'est 1810400000000 et je veux garder ce format

[Algoplus]

au final, cet import est il réalisé dans Excel ?

si oui voir post #3

si non .....?

[Patrice740]

Bonjour,

Dans mon CSV C'est 1810400000000 et je veux garder ce format

Dans Excel :
S'il s'agit d'un nombre, le format n'a aucune importance, la valeur reste la même (Edit : dans la limite de 15 chiffres significatifs).
S'il s'agit d'un numéro, comme pour tout numéro (par opposition à un nombre), il faut utiliser le format Texte, tous les formats numériques ne fournissent qu'une apparence du numéro avec un risque de perte de caractères.

[patricktoulon]

re
bonjour
j'ai deja montrer comment enregistrer une plage ou le sheets complet en csv en gardant les numero comme tel qu'il sont visible fait une revcherche dans le forum "csv avec patricktoulon pour le membre

c'est pas compliqué tu aura ta solution

j'en avais meme fait une petite contrib
https://www.developpez.net/forums/d1...tite-fonction/

DVP a un moteur de recherche servez vous en non de dieu!!

[Patrice740]

j'ai deja montrer comment enregistrer ...

Bonjour Patrick

Si j'ai bien compris, il ne s'agit pas de les enregistrer mais de les lire avec une requête.

[Patrice740]

Patrick, il faut pas lire en travers (sic), Import c'est Export !

[patricktoulon]

re
ben dans ce cas la si les calculs se font en vba
il gere ca dans les calculs

Code :

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

1
2
3
4
Sub test2()
MsgBox "A5 = " & CDec([A5].Value)
MsgBox "A6 = " & CDec([A6].Value)
End Sub

[Hello27682]

Hello,

alors au finale est ce qu'il y'a un attribut a ajouter dans ma fonction pour que je lit le CSV correctement?