exporter des données vers une base de donnée

[Dany]

J'aimerais exporter des donner d'une feuille excel par connection odbc sur une base de donné mdb (access 2000) SVP aidez moi !!! Je suis capable de la sonsulter mais pas d'insérer des donner (le but de l'application) Merci

 

[Samantha]

Bonjour les Gens, le Forum, Dany

En fait il ne s'agit pas d'exportation de Xl vers Accès mais d'une import dans accès de données XL.

En conséquence c'est dans Accès que tu vas trouver ton bonheur à savoir le petit menu qui te propose d'importer des informations depuis XL (je sais qu'il existe, je m'en suis servi une fois) mais de là à te dire où exactement, je passe le témoin aux spécialistes (je suis totalement autotdidacte sous accès et mes connaissances sont plus que limitées)


Samantha

 

[lapix]

tu pourrais donner un bout de ce que tu as fait qu'on se rende compte ?

La methode createobject peut peut etre t'apporter une reponse...

Cordialement

 

[Dany]

Je n'ai pas encore rien de fait en ce qu'il conserne l'acquisition de donné , j'voulais seulement savoir si c'étais possible d'exporter des données saisie sur une feuille excel par un formulaire , afin qu'il y ait le moin de manipulation que possible et que ça demeure simple 'idiot proove'. j'aimerais creer un bouton 'exporter' vers le mdb SVP , ce serait très utile !

 

[MichelXld]

bonjour Dany , Samantha et Lapix

ci joint un exemple qui permet d'ajouter un enregistrement dans une base Access

Sub ajoutEnregistrementTableAccess()
'source : K Dales
Dim Cn As ADODB.Connection
Dim xSQL As String

Set Cn = New ADODB.Connection
Cn.Open 'DRIVER={Microsoft Access Driver (*.mdb)}; ' & _
'DBQ=C:\\Documents and Settings\\michel\\dossier\\Database.mdb'

xSQL = 'INSERT INTO [Table1] ' _
& 'VALUES ('' & Range('A1').Value & '', '' & Range('A2').Value & '', '' _
& Range('A3').Value & '', '' & Range('A4').Value & '')'
Cn.Execute xSQL

Cn.Close
Set Cn = Nothing
End Sub

d'autres exemples dans ce lien

Lien supprimé



bonne journée
MichelXld