insertion excel-access (2000)

Version imprimable

25/03/2008, 14h22
jokenjo

insertion excel-access (2000)

Bonjour
mon probleme est de ne pas pouvoir exporter des données excel sous access.
Voila, pour une table bien donnée avec des entiers , jarrive a enregistrer mes données dans la table access , avec des valeurs dans des cellules discontinue ..
Mais pour ce qui est des textes(et date) il ne n´enregsitrent ques les premieres ligne completes, quand je mets des valeurs discontinues , il nenregistre pas ceux la .
Je suis sous access et excel :2000.
En fait il n´y a pas derreur dans les codes , car il ne m´en donne pas .
Ma demarche est :
-je cherche la dernier vraie ligne occupée et je met cela dans une boucle, et tout marche !!
Quelle peut etre la cause de cela,le fait que je dois remplir toute mes cellules pour qu´il l´enregistre dans la table access!
Merci
25/03/2008, 14h23
Invité

Bonjour

On pourrait t'en dire plus si tu nous disait comment tu fais, avec quel code.

Starec

merci Startrec
les voici:
Pour la recherche de la derniere ligne occupée

Code:

1
2
 
RealLastRow = Cells.Find("*", Range("A1"), xlValues, , xlByRows, xlPrevious).Row

ce qui me donne la derniere ligne remplie.
Pour l´enregistrement:

Code:

1
2
3
4
5
6
7
8
9
10
 
nb= 0
Do While ((nb + 20) <= RealLastRow)' je commence a la vingtieme ligne
 
sql= "(temps,personne,coupe,date,terminaison)values ('" & feuil1.Range("A" + CStr(20 + nb)) & "','" & Feuil1.Range("c" + CStr(20 + nb)) & "','" & feuil1.Range("D" + CStr(20 + nb)) & "','" & feuil1.Range("G" + CStr(20 + nb)) & "','" & feuil1.Range("M" + CStr(20 + nb)) & "') "
db.Execute "insert into tbl_gestion" & sql, DAO.dbOpenSnapshot
 
nb = nb + 1
Loop
db.Close

28/03/2008, 14h34
jokenjo

Bonsoir
je chercher toujours a faire mon insertion des valeurs isolée, pourquoi si tout les champs ne sont pas renseignés il ne fait pas linsertion dans la table access.
Par exemple: les cellules personnes et terminaisons sont pas renseigner , alors il le fait rien(pas d´insertion)..
je cherche toujours
merci

Bonsoir
voici une piste.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
i = 2
With Feuil1
Do Until IsEmpty(.Cells(i, 1))
   If Not IsEmpty(.Cells(i, 1)) And Not IsEmpty(.Cells(i, 2)) And Not IsEmpty(.Cells(i, 3)) _
      And Not IsEmpty(.Cells(i, 4)) And Not IsEmpty(.Cells(i, 5)) Then
      Sql = .Cells(i, 1) & "," & .Cells(i, 2) & "," & _
      .Cells(i, 3) & "," & .Cells(i, 4) & "," & .Cells(i, 5)
Db.Execute "Insert Into tbl_gestion" & Sql, DAO.dbOpenSnapshot
End If
i = i + 1
Loop
End With

Bonne soirée

Abed_H :king: