Bonjour,

Je récupére les données venant d'un fichier csv et j'ai un problème en ce qui concerne la récupération de chiffres avec décimal séparés par un point. Exemple : 95.55
Les chiffres que je récupére ne contiennent plus les points. Exemple : 9555.

Voici le code :

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
 
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strPathtoTextFile & ";" & _
"Extended Properties=""text;HDR=NO;FMT=Delimited"""
 
objRecordSet.Open "SELECT * FROM " & CommonDialog1.FileTitle & "", _
objConnection, adOpenStatic, adLockOptimistic, adCmdText
 
Set cnx = New ADODB.Connection
 
'Définition du pilote de connexion
cnx.Provider = "Microsoft.Jet.OLEDB.4.0"
'Définition de la chaîne de connexion
cnx.ConnectionString = "C:\DB1.mdb"
'Ouverture de la base de données
cnx.Open
 
Do Until objRecordSet.EOF
      TmpSqlInsertShareData = "INSERT INTO SHARE_DATA (ENTITY_ID,  RELATED_ID, PERCENTAGE) VALUES (" & objRecordSet.Fields.Item(8) & ", " & objRecordSet.Fields.Item(9) & ", " & objRecordSet.Fields.Item(10) & ");"
      cnx.Execute (TmpSqlInsertShareData)
      objRecordSet.MoveNext
Loop
 
cnx.Close
Cette donnée est PERCENTAGE en base de données et la valeur est contenue dans objRecordSet.Fields.Item(10).

Merci d'avance pour votre aide.