Discussion :

[marcuscircus]

bonjour, je voudrais mettre a jour ma table access en important des données excel, j'ai donc repris le code de totofe, mais voila, le souci c'est que sa ne marche pas, sa ne me fait rien du tout, voici le code, si quelqu'un voit pourquoi se ne marche pas, merci !

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
Private Sub bt_MaJCli_Click()
 
Dim oApp As Excel.Application
Dim oWkb As Excel.Workbook
Dim oWSht As Excel.Worksheet
 
Set oApp = CreateObject("excel.application")
Set oWkb = oApp.Workbooks.Open("F:\stage p\fichier client.xls") 'chemin vers fichier Excel
Set oWSht = oWkb.Worksheets("fichier client") ' nom de la feuille qui contient les données à importer
 
'première ligne ou commence l'import
i = 2
 
'pour éviter les messages lors de l'ajout des enregistrements
DoCmd.SetWarnings False
 
'tant qu'on ne rencontre pas une case vide
While oWSht.Range("I" & i).Value <> ""
    'condition de remplissage de la table => eviter les doublons
    'si l'enregistrement existe déjà dans la table destination,
    'on le supprime puis on place le nouveau
    If DCount("*", "[client]", "[codecli] LIKE '" & oWSht.Cells(i, 1) & "*'") = 1 Then
    'le numéro 1 correspond au numéro de la colonne source, tel que : A=1, B=2, C=3 ...
        cSQL = "delete * from [client] where [codecli] LIKE '" & oWSht.Cells(i, 1) & "*'"
        DoCmd.RunSQL cSQL
    End If
    cSQL = ""
    'requète SQL (avec en paramètre la ligne i et le numéro de la colonne comme précisé au-dessus)
    cSQL = "insert into [client] ( [codecli], [nomcli] ) values (" & Chr(34) & oWSht.Cells(i, 1) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 2) & Chr(34) & ")"
    'ici, on ne prend que les colonnes A (=1) et B (=2).
    DoCmd.RunSQL cSQL 'exécute la requète
    'on incrémente la variable i pour passer à la ligne suivante
    i = i + 1
Wend
DoCmd.SetWarnings True
End Sub

[Jean-Philippe André]

salut,
regarde le contenu de ton cSQL avant de l'exécuter :

Code :

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

1
2
3
cSQL = "insert into [client] ( [codecli], [nomcli] ) values (" & Chr(34) & oWSht.Cells(i, 1) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 2) & Chr(34) & ")"
 
Debug.Print cSQL

il y a fort à parier que c'est de là que vient ton problème.

[marcuscircus]

En fait, c'est bon l'erreur venait du "I" que j'ai pas changer pour mettre "A", alala, vraiment bete comme erreur, merci quand même