cs_yassineee
Messages postés90Date d'inscriptionlundi 26 juillet 2004StatutMembreDernière intervention14 juin 2010
-
14 oct. 2004 à 23:49
cboulas
Messages postés2641Date d'inscriptionmercredi 2 juin 2004StatutMembreDernière intervention 8 janvier 2014
-
19 oct. 2004 à 19:33
bonjour,
je suis amené a recopier environ 1000 lignes de donnée d'exel vers access , et je n'ai pas beaucoup de temps pour faire cela ,
j'aimerai créer un script mais je ne sais pas le
langage qui permet d'interoger un tableur d'exel et d'insérer les donnée de ces colonnes dans access
merci de me répondre
jmlucienvb
Messages postés129Date d'inscriptionmercredi 24 septembre 2003StatutMembreDernière intervention12 février 2009 15 oct. 2004 à 08:53
A partir d'excel dans le VBA :
Tu ouvresune connexion vers ta base de données :
maBase = monCheminFichier & "laBase.mdb"
'Ouvrir la base de données
Set db = OPENDATABASE(maBase)
Tu ouvres un jeu d'enregistrement sur la table où tu veux saisir tes données
'on rouvre le jeu à jour et vide
Set rs = db.OpenRecordset("taTable")
Tu te mets sur la feuille qui contient tes données
Sheets("tesdonnées").select
Puis sur la cellule de départ et tu prépare ta boucle
'On sélectionne la première ligne à enregistrer
Range("B6").Activate (par exemple si les données sont sur la colonne B et commence en ligne 6
Do While ActiveCell.Row < 128 'si il faut s'arrêter à la ligne 128)
rs.AddNew
rs.FIELDS(0).Value = ActiveCell.Value 'si tu as plusieurs champs :
rs.FIELDS(1).Value = ActiveCell.Offset(0, 1).Value
rs.FIELDS(2).Value = ActiveCell.Offset(0, 3).Value
puis tu termines par
rs.update
ActiveCell.Offset(1, 0).Activate
Loop 'pour passer à la ligne suivante jusqu'à la fin de ton critère
cs_yassineee
Messages postés90Date d'inscriptionlundi 26 juillet 2004StatutMembreDernière intervention14 juin 20101 16 oct. 2004 à 01:40
salut j'ai essayer le code suivant :
db1 = E:\Yassine\Table des Matieres\Asp & "db1.mdb"
Set db = OPENDATABASE(db1)
aprés execution de ce code je exel me demande de donner un nom de macro ensuite je fais un couper du code et je le met dans la macro
le code devient
sub f1()
db1 = E:\Yassine\Table des Matieres\Asp & "db1.mdb"
Set db = OPENDATABASE(db1)
end sub
l'erreur suivante surgit OPENDATABASE n'est pas reconnu
en fait je n'ai jamais programmer de macro , si tu pouvais donner plus de détails sur la création d'un script pareil
merci d'avance :)
jmlucienvb
Messages postés129Date d'inscriptionmercredi 24 septembre 2003StatutMembreDernière intervention12 février 2009 18 oct. 2004 à 08:01
dans l'éditeur de code excel il faut que tu rajoute :
Dans les menus :
outils/références/
Dans la liste tu coches :
Microsoft DAO3.6 object librairy
(Si tu es avec W2000
Sinon avec xp ça doit être DAO 3.7
cboulas
Messages postés2641Date d'inscriptionmercredi 2 juin 2004StatutMembreDernière intervention 8 janvier 201416 19 oct. 2004 à 19:33
Hmm,
à vrai dire lorsque je fait cela j'ajoute une ligne tout tout en haut où j'y met les entêtes, ensuite j'ouvre Access, et je vais dans "Fichier" -> "Données externe - Importer" et je sélectionne mon fichier Excel, et lui précise que la 1ère ligne correspond aux entêtes et c'est tout.
Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]