Problème d'importation MSACCess

Version imprimable

08/06/2008, 08h27
PiliSql

2 pièce(s) jointe(s)

Problème d'importation MSACCess

Bonjour ,

J'ai un fichier Excel (voir piece jointe) que j'importe dans une table Access à l'aide d'une macro.

Mon problème est que le contenu de la deuxième colonne est importé comme une date (voir image) or c'est un nombre.

J'arrive plus à faire mes calculs après.

Quelqu'un sait-il comment corriger ce problème.
08/06/2008, 09h21
SilkyRoad

bonjour

Vérifie le type de donnée indiqué dans le 2eme champ de ta table Access.

bonne journée
michel
08/06/2008, 09h33
PiliSql

Bonjour Michel,

En fait je me suis basé sur ton tuto pour importer mon fichier.
En premier, je transforme mon fichier .xls en .csv puis j'importe à l'aide de ta macro qui contient la requête (Select ... into...).

Je vois pas comment spécifier le type de données
08/06/2008, 09h59
SilkyRoad

bonjour

Citation:

En fait je me suis basé sur ton tuto pour importer mon fichier.
En premier, je transforme mon fichier .xls en .csv puis j'importe à l'aide de ta macro qui contient la requête (Select ... into...).

Quel tuto?
tu crées la table dynamiquement ou elle existe déja ?

Citation:

Je vois pas comment spécifier le type de données

Si la table existe déja, ouvre ta base Access et vérifie le type de donnée spécifié dans le champ

michel

Je crée la table dynamiquement.

voici le code :

Code:

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
45
46
47
Sub tranfertCSV_Vers_NouvelleTableAccess()
 
    '
 
    Dim AccessCn As ADODB.Connection
    Dim AccessRst As ADODB.Recordset
    Dim Csv_CN As New ADODB.Connection
    Dim Csv_Rst As New ADODB.Recordset
    Dim DossierCSV As String, NomTable As String
    Dim FichCSV As String, MaBase As String
    Dim nbEnr As Long
 
    'Répertoire du fichier CSV
    DossierCSV = "C:\Documents and Settings\mimi\dossier"
    'Nom du fichier CSV à transfèrer
    FichCSV = "LeFichierCSV.csv"
    'Chemin et nom de la base Access
    MaBase = "C:\Documents and Settings\mimi\dossier\dataBase.mdb"
    'Nom de la nouvelle Table Access
    NomTable = "MaNouvelleTable"
 
 
    'Connection au fichier CSV
    Csv_CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        DossierCSV & ";Extended Properties='text;FMT=Delimited'"
    'Requète dans le fichier CSV
    Csv_Rst.Open "SELECT * FROM " & FichCSV, Csv_CN, _
        adOpenStatic, adLockOptimistic
 
    'Connection à la base de données Access
    Set AccessCn = New ADODB.Connection
    AccessCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=" & MaBase
 
 
    Csv_CN.Execute "SELECT * INTO [" & NomTable & "] IN '" & _
        MaBase & "' From [" & FichCSV & "]", nbEnr
 
 
    AccessCn.Close
    Csv_Rst.Close
    Csv_CN.Close
    Set AccessRst = Nothing
    Set AccessCn = Nothing
    Set Csv_Rst = Nothing
    Set Csv_CN = Nothing
End Sub

D'avance merci pour votre aide