cs_ITALIA
Messages postés2169Date d'inscriptionvendredi 20 avril 2001StatutMembreDernière intervention30 juin 20099 29 oct. 2004 à 15:29
la c un autre souci , il faudrait voir le code de remplissage du treeView ( il ne doit pas être TOP )!
on est plus dans le même sujet..
coches reponses accptées
cs_ITALIA
Messages postés2169Date d'inscriptionvendredi 20 avril 2001StatutMembreDernière intervention30 juin 20099 29 oct. 2004 à 11:01
il y a plusieurs methodes voici celle que j'utilise :
en DAO
coches Projet...Références...Microsoft DAO 3.51 Object Library
et Microsoft Excel XX Object Library
en haut de ta Form :
Public ClasseurXLS As Object
dans le Code de ton bouton par exemple :
Set ClasseurXLS = CreateObject("Excel.application")
ClasseurXLS.Workbooks.Open "C:\MonFichier.xls"
mousepointer=11
ValTitle = ClasseurXLS.Cells(1, "B")
ValLocation = ClasseurXLS.Cells(2, "B")
ValVille = ClasseurXLS.Cells(3, "B")
ValCodePostal = ClasseurXLS.Cells(4, "B")
ValDate = ClasseurXLS.Cells(5, "B")
Set Db = OpenDatabase("C:\MaBase.mdb")
Set Req= Db.OpenRecordset("SELECT * FROM TaTable")
Req.Addnew
Req(1)=ValTitle
Req(2)=ValLocation
Req(3)=ValVille
Req(4)=ValCodePostal
Req(5)=ValDate
Req.Update
Set Req=Nothing
Set Db=Nothing
ClasseurXLS.Workbooks.Close ' Fermeture du Classeur d' Importation
cs_ITALIA
Messages postés2169Date d'inscriptionvendredi 20 avril 2001StatutMembreDernière intervention30 juin 20099 29 oct. 2004 à 13:46
Ok voici alors le code :
en haut de ta Form :
Public ClasseurXLS As Object
dans le Code de ton bouton par exemple :
Set ClasseurXLS = CreateObject("Excel.application")
ClasseurXLS.Workbooks.Open "C:\MonFichier.xls"
mousepointer=11
For i = 1 to 2000
ValTitle = ClasseurXLS.Cells(1, "B")
ValLocation = ClasseurXLS.Cells(2, "B")
ValVille = ClasseurXLS.Cells(3, "B")
ValCodePostal = ClasseurXLS.Cells(4, "B")
If ValTitle="" and ValLocation ="" and ValVille ="" and ValCodePostal ="" then exit for
Set Db = OpenDatabase("C:\MaBase.mdb")
Set Req= Db.OpenRecordset("SELECT * FROM TaTable")
Req.Addnew
Req(1)=ValTitle
Req(2)=ValLocation
Req(3)=ValVille
Req(4)=ValCodePostal
Req.Update
Next
Set Req=Nothing
Set Db=Nothing
ClasseurXLS.Workbooks.Close ' Fermeture du Classeur d' Importation
foliop
Messages postés191Date d'inscriptionmercredi 21 juillet 2004StatutMembreDernière intervention27 octobre 2008 29 oct. 2004 à 15:20
alors ca marche bien, ca enregistre dans la base mais soucis :
- lorsque jaffiche les infos dans mon listview il veut pas afficher lorsque le champ est vide (ex : nom michel ; prenom rien)