Posez votre question Signaler

Exporter de données Excel vers access en ADO [Résolu]

Messages postés
29
Date d'inscription
jeudi 29 avril 2004
Statut
Membre
Dernière intervention
15 mars 2005
 - - Dernière réponse : cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
 - 15 juil. 2004 à 14:20
Visual Basic Posez votre question Signaler
Bonjour,

alors voila, mon problème est le suivant :

J'aimerais faire interagir un fichier excel avec une base access. je m'explique, j'ai un fichier excel qui est créé et qui contient des données. Les données qui m'intéresse sont stocké dans le classeur qu'a partir de la ligne 10 et je voudrait pouvoir enregistrer ces données dans une table access nomée Test.mdb et tout ceci en ADO bien sur.

Voila.

Merci d'avance.
Afficher la suite 

3 réponses

Meilleure réponse
Signaler
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
 8
3
Merci
Attention Energizer.....dans ma boucle je teste les ligne de 10 à 65000

n'oublie pas de cliquer sur réponse acceptée...comme ca une coche verte se mettra devant ta question..

c une habitude à prendre !!

et c pas TCHAOOO mais CIAO, Thanks

It@li@

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 136 internautes nous ont dit merci ce mois-ci

Signaler
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
 8
0
Merci
En DAO
coches Fichier..Préférences...Microsoft DAO 3.51 Object LIbrary

Public ClasseurXLS As Object ' a mettre en haut de ta form

-----------------------------------------------------------------------------------
Set ClasseurXLS = CreateObject("Excel.application")

ClasseurXLS.Workbooks.Open NomFichier ' Ouverture du Classeur d'Importation

Set Db = OpenDatabase(CheminBase)

Set Rq = Db.OpenRecordset("SELECT * FROM NomTable ")

For i = 10 To 65000
TaValeur = ClasseurXLS.Cells(i, "A")
Rq.AddNew
Rq("TonChamp") = TaValeur
RqUpdate
End If
Set Rq = Nothing
Set Db = Nothing

ClasseurXLS.Workbooks.Close ' Fermeture du Classeur d' Importation
----------------------------------------------------------------------------------
Remplis les variables: NomFichier,CheminBase,NomTable,TonChamp par tes valeurs
It@li@
Signaler
Messages postés
29
Date d'inscription
jeudi 29 avril 2004
Statut
Membre
Dernière intervention
15 mars 2005
 1
0
Merci
Et bien que dire a part merci :)
tu m'as enlevé une sacrée épine du pied

Tchaooo et merci encore
Posez votre question