Discussion :

[jmde]

Bonsoir,

Je voudrais utiliser le code qu’a communiqué Marot_r sur ce post :

http://www.developpez.net/forums/d74...s/#post4295774

Lorsque le code passe sur
While Not EOF(1)

EOF(1) et à Vrai et va directement à la ligne
Close #1


Champs de la table Access 2003:

ID
HEURE
NOMA
NOMB
COURT
NATURE
DATE

Sur WordPad les enregistrements de la table importée (Fichier Excel Csv) se présentent de cette façon :

DATE ; HEURE ; NOM ; NOM ; COURT ; NATURE
Samedi 05 Décembre 2009;09h 00;DURAND;;N°7;Adhérent

Nota : ce n’est pas une erreur de ma part le fichier à importer contient deux fois le champ NOM.

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
48
49
50
Private Sub Import()
 
Dim Ligne AS string 
Dim HEURE As String
Dim NOM As String
Dim COURT As String
Dim NATURE As String
Dim db As DAO.Database: Set db = CurrentDb
Dim rs As DAO.Recordset: Set rs = db.OpenRecordset("table1")
 
 
Open "C:\Documents and Settings\Propriétaire\Mes documents\Bureau\Import\Excel.csv" For Input As #1
 
Line Input #1, ligne ' pour eviter la premiere ligne
While Not EOF(1)
    Line Input #1, ligne
 
    DATE = Left(ligne, (len_enreg(ligne)))
    ligne = Right(ligne, (Len(ligne) - (Len(DATE) + 1)))
 
    HEURE = Left(ligne, (len_enreg(ligne)))
    ligne = Right(ligne, (Len(ligne) - (Len(HEURE) + 1)))
 
    NOM = Left(ligne, (len_enreg(ligne)))
    ligne = Right(ligne, (Len(ligne) - (Len(NOM) + 1)))
 
    NOM = Left(ligne, (len_enreg(ligne)))
    ligne = Right(ligne, (Len(ligne) - (Len(NOM) + 1)))
 
    COURT = Left(ligne, (len_enreg(ligne)))
    ligne = Right(ligne, (Len(ligne) - (Len(COURT) + 1)))
 
    NATURE = Left(ligne, (len_enreg(ligne)))
    ligne = Right(ligne, (Len(ligne) - (Len(NATURE) + 1)))
 
    With rs
       .AddNew
        ![DATE] = DATE
        ![HEURE] = HEURE
        ![NOMA] = NOM
        ![NOMB] = NOM
        ![COURT] = COURT
        ![NATURE] = NATURE
       .Update
    End With
Wend  
 
Close #1
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Function len_enreg(ByVal a As String) As Integer ' renvoi la taille de l'enregistrement en cours ( jusque ";")
 
Dim cpt As Integer
cpt = 1
While Mid(a, cpt, 1) <> ";"
    cpt = cpt + 1
Wend
 
len_enreg = cpt - 1
 
End Function

Merci pour votre aide.

Salutations.

[Kloun]

Lors de la première lecture, tu as quoi dans "ligne" (qui d'ailleurs n'est pas déclaré) ?

[jmde]

Bonjour Kloun,

Merci pour ta réponse,

Un debug.print sur Line Input #1, ligne donne :

DATE ; HEURE ; NOM ; NOM ; COURT ; NATURE
Lundi 28 Décembre 2009;09h 00;XXXXXX;;N°7;club
Lundi 28 Décembre 2009;18h 00;WWWWWW;ZZZZZZ;N°8;adherent
Lundi 28 Décembre 2009;20h 00;KKKKKK;MMMMMMM;N°8;adherent

Salutations

[Kloun]

Donc, lors de la première lecture, tu as récupéré la totalité des données de ton fichier ?

Edit : avec des dates et des heures pareilles, tu vas t'amuser.

[jmde]

Re Bonjour,

Oui c'est bien la totalité de mon fichier que j'ai récupéré, par contre toutes mes valeurs sont en string.

Mes connaissances ne me permettent pas d'aller plus loin.

Peux-tu m'aider ?

Salutations

[Kloun]

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
Private Sub Import()
 
Dim Ligne AS string 
Dim iStr_Heure As String
dim iStr_Date as string
Dim iStr_Nom1 As String
Dim iStr_Nom2 As String
Dim iStr_Court As String
Dim iStr_Nature As String
Dim db As DAO.Database: Set db = CurrentDb
Dim rs As DAO.Recordset: Set rs = db.OpenRecordset("table1")
dim iInt_NumFic as integer
dim iStr_Champs() as string
 
iInt_NumFic = FreeFile
Open "C:\Documents and Settings\Propriétaire\Mes documents\Bureau\Import\Excel.csv" For Input As #iInt_NumFic
Line Input #iInt_NumFic, ligne ' pour eviter la premiere ligne
While Not EOF(1)
    Line Input #1, ligne
    istr_Champs = split(ligne, ";")
    iStr_Date = istr_Champs(0)
    iStr_Heure = istr_Champs(1)
    iStr_Nom1 = istr_Champs(2)
    iStr_Nom2 = istr_Champs(3)
    iStr_Court = istr_Champs(4)
    iStr_Nature = istr_Champs(5)    
    With rs
       .AddNew
        ![DATE] = iStr_Date
        ![HEURE] = iStr_Heure
        ![NOMA] = iStr_Nom1
        ![NOMB] = iStr_Nom2
        ![COURT] = iStr_Court
        ![NATURE] = iStr_Nature
       .Update
    End With
Wend  
 
Close #iInt_NumFic
 
End Sub

Dans ta table, change le nom du champ date, ça t'évitera bien des problèmes : c'est un mot réservé
Reste à comprendre pourquoi la 1ère lecture du fichier ramène tout le fichier et pas seulement la 1ère ligne.
C'est toi qui a fait l'export du fichier XLS en CSV ?

[jmde]

Bonjour Kloun et bonne année,

Le code fonctionne correctement, j'ai modifié selon tes conseils
le nom des champs.

Merci pour l'aide que tu m'a apportée.

Salutations