Discussion :

[PiliSql]

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.

[SilkyRoad]

bonjour

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


bonne journée
michel

[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

[SilkyRoad]

bonjour

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 ?

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

[PiliSql]

Je crée la table dynamiquement.

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
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