Discussion :

[polemos]

Bonjour

Je souhaite faire une boucle sur les lignes de mon tableau Excel afin d'importer les données dans ma table Access.
Le nom des colonnes Excel correspond exactement aux champs de la table Acces.

J'imagine utiliser un code proche de celui-ci pour exporter toutes les lignes des colonnes A à D :

Code :

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

1
2
3
4
5
6
 
For Each oRange In ActiveSheet.Range("A:D")
cSQL = "INSERT INTO Table1 ('Champ1', 'Champ2', 'Champ3', 'Champ4')_
VALUES ('data1', 'data2','data3','data4')"
DoCmd.RunSQL cSQL
Next oRange

Suis-je dans le vrai ?
Comment faire pour ne pas récupérer les valeurs data1, data2, ... facilement (en gros toute la ligne sans s'embêter à prendre colonne par colonne) ?

Merci par avance de vos lumières !

Cordialement,
Polemos

[nico84]

Bonjour,

A défaut, voici petite boucle qui parcourt les lignes :

Code :

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

1
2
3
4
5
6
7
8
9
10
i=1
with activesheet
  while .cells(i,1).value > ""
    cSQL = "INSERT INTO Table1 ('Champ1', 'Champ2', 'Champ3', 'Champ4')_
    VALUES ('" & .cells(i,1).value & "', '" & .cells(i,2).value & "','" _
    & .cells(i,3).value & "','" & .cells(i,4).value & "')"
    DoCmd.RunSQL cSQL
    i=i+1
  wend
end with