Discussion :

[jokenjo]

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

[Invité]

Bonjour

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

Starec

[jokenjo]

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

Code :

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

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

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

Code :

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

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

[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

[Abed_H]

Bonsoir
voici une piste.

Code :

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

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