J'aimerais importer des donn=E9es qui sont dans Excel vers=20
une base de donn=E9es Access en passant par une application=20
VB.
Je sais comment extraire des donn=E9es de la base de=20
donn=E9es et les afficher dans une feuille Excel. Est-ce=20
sensiblement la m=EAme chose ?
J'aimerais avoir un exemple s.v.p.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ledev
Martin wrote:
Bonjour,
J'aimerais importer des données qui sont dans Excel vers une base de données Access en passant par une application VB. Je sais comment extraire des données de la base de données et les afficher dans une feuille Excel. Est-ce sensiblement la même chose ?
Bin en gros, tu inverse l'égualité: MonRecordset.fields(MonChamp)=MonWorksheet.cells(x,y) Deviens: MonWorksheet.cells(x,y)=MonRecordset.fields(MonChamp) Et tu peut retirer le: MonRecordset.Update qui n'est plus utile.
J'aimerais avoir un exemple s.v.p.
non testez:
dim conn as new ADODB.Connection dim rs as new ADODB.Recordset
dim Xa as new EXCEL.Application dim Xw as EXCEL.Worksheet
'Ouverture du WorkSheet
conn.open MaChaineDeConnection rs.open "SELECT * FROM matable",conn
rs.movelast rs.movefirst
dim x as integer do while not rs.eof() x=x+1 for a=0 to rs.fields.count-1 Xw.range(x,a)=rs.fields(a) next a loop
Ceci devrai mettre dans le même ordre les champs de la base de donnée vers les colonnes de la feuille EXCEL.
a+
Martin wrote:
Bonjour,
J'aimerais importer des données qui sont dans Excel vers
une base de données Access en passant par une application
VB.
Je sais comment extraire des données de la base de
données et les afficher dans une feuille Excel. Est-ce
sensiblement la même chose ?
Bin en gros, tu inverse l'égualité:
MonRecordset.fields(MonChamp)=MonWorksheet.cells(x,y)
Deviens:
MonWorksheet.cells(x,y)=MonRecordset.fields(MonChamp)
Et tu peut retirer le:
MonRecordset.Update
qui n'est plus utile.
J'aimerais avoir un exemple s.v.p.
non testez:
dim conn as new ADODB.Connection
dim rs as new ADODB.Recordset
dim Xa as new EXCEL.Application
dim Xw as EXCEL.Worksheet
'Ouverture du WorkSheet
conn.open MaChaineDeConnection
rs.open "SELECT * FROM matable",conn
rs.movelast
rs.movefirst
dim x as integer
do while not rs.eof()
x=x+1
for a=0 to rs.fields.count-1
Xw.range(x,a)=rs.fields(a)
next a
loop
Ceci devrai mettre dans le même ordre les champs de la base de donnée vers
les colonnes de la feuille EXCEL.
J'aimerais importer des données qui sont dans Excel vers une base de données Access en passant par une application VB. Je sais comment extraire des données de la base de données et les afficher dans une feuille Excel. Est-ce sensiblement la même chose ?
Bin en gros, tu inverse l'égualité: MonRecordset.fields(MonChamp)=MonWorksheet.cells(x,y) Deviens: MonWorksheet.cells(x,y)=MonRecordset.fields(MonChamp) Et tu peut retirer le: MonRecordset.Update qui n'est plus utile.
J'aimerais avoir un exemple s.v.p.
non testez:
dim conn as new ADODB.Connection dim rs as new ADODB.Recordset
dim Xa as new EXCEL.Application dim Xw as EXCEL.Worksheet
'Ouverture du WorkSheet
conn.open MaChaineDeConnection rs.open "SELECT * FROM matable",conn
rs.movelast rs.movefirst
dim x as integer do while not rs.eof() x=x+1 for a=0 to rs.fields.count-1 Xw.range(x,a)=rs.fields(a) next a loop
Ceci devrai mettre dans le même ordre les champs de la base de donnée vers les colonnes de la feuille EXCEL.
