Bonjour Va voir ici quelques exemples : http://www.erlandsendata.no/english/index.php?d=envbadacimportado Cordialement Pascal
"Jean" a écrit dans le message de news: 443c970b$0$21298$
Bonjour,
Dans un module VBA je dois aller lire des informations dans une base access. Comment puis-je faire ?
Merci d'avance.
Jean
Philippe
Bonjour,
Pour te simplifier la tache (j'ai fait ca pour debuter ya pas longtemps et un truc comme ca m'aurait bien aider à comprendre le principeA recopier dans le VBE :
Option Explicit
Sub MaRecherche()
Dim BaseSource, Querymag, MASELECTION As Variant Dim MySql As String Dim i As Integer
'---ne pas oublier de cocher les references Acces, voire ADO ou DAO pour la suite, dans outilsReferences---"
'1/Connection à la base de données Set BaseSource = DBEngine.Workspaces(0).OpenDatabase("C:Documents and Settingsphilippe.krempfBureauCP.mdb")
'2/Création du jeu d'enregistrement MySql = "SELECT LISTE_VILLES.Nom_communes FROM LISTE_VILLES;" '2.a Création de la sequence SQL (un bon copier coller de l'assisant requete d'access (QBE) sous mode SQL)
Set Querymag = BaseSource.CreateQueryDef("", MySql) '2.b Création du jeu d'enregistrement Set MASELECTION = Querymag.OpenRecordset() '2.c Ouverture du jeu d'enregistrement
'2.d Sortir si aucun enregistrement If MASELECTION.RecordCount = 0 Then MsgBox "aucun enregistrement trouvé" Exit Sub End If '2.e Se placer sur le premier enregistrement MASELECTION.MoveFirst
'3/ Récupération du jeu d'enregistrement dans Excel i = 1 While Not MASELECTION.EOF 'tant que ce n'est pas le dernier enregistrement Sheets(1).Cells(i, 1).Value = MASELECTION("Nom_Communes") i = i + 1 MASELECTION.MoveNext 'passer à l'enregistrement suivant Wend
'4/On sort proprement en fermant et en se déconnectant MASELECTION.Close Querymag.Close Set Querymag = Nothing BaseSource.Close Set BaseSource = Nothing
End Sub
Bonjour Va voir ici quelques exemples : http://www.erlandsendata.no/english/index.php?d=envbadacimportado Cordialement Pascal
"Jean" a écrit dans le message de news: 443c970b$0$21298$
Bonjour,
Dans un module VBA je dois aller lire des informations dans une base access. Comment puis-je faire ?
Merci d'avance.
Jean
Bonjour,
Pour te simplifier la tache (j'ai fait ca pour debuter ya pas longtemps et
un truc comme ca m'aurait bien aider à comprendre le principeA recopier dans
le VBE :
Option Explicit
Sub MaRecherche()
Dim BaseSource, Querymag, MASELECTION As Variant
Dim MySql As String
Dim i As Integer
'---ne pas oublier de cocher les references Acces, voire ADO ou DAO pour la
suite, dans outilsReferences---"
'1/Connection à la base de données
Set BaseSource = DBEngine.Workspaces(0).OpenDatabase("C:Documents and
Settingsphilippe.krempfBureauCP.mdb")
'2/Création du jeu d'enregistrement
MySql = "SELECT LISTE_VILLES.Nom_communes FROM LISTE_VILLES;" '2.a Création
de la sequence SQL (un bon copier coller de l'assisant requete d'access (QBE)
sous mode SQL)
Set Querymag = BaseSource.CreateQueryDef("", MySql) '2.b Création du jeu
d'enregistrement
Set MASELECTION = Querymag.OpenRecordset() '2.c Ouverture du jeu
d'enregistrement
'2.d Sortir si aucun enregistrement
If MASELECTION.RecordCount = 0 Then
MsgBox "aucun enregistrement trouvé"
Exit Sub
End If
'2.e Se placer sur le premier enregistrement
MASELECTION.MoveFirst
'3/ Récupération du jeu d'enregistrement dans Excel
i = 1
While Not MASELECTION.EOF 'tant que ce n'est pas le dernier enregistrement
Sheets(1).Cells(i, 1).Value = MASELECTION("Nom_Communes")
i = i + 1
MASELECTION.MoveNext 'passer à l'enregistrement suivant
Wend
'4/On sort proprement en fermant et en se déconnectant
MASELECTION.Close
Querymag.Close
Set Querymag = Nothing
BaseSource.Close
Set BaseSource = Nothing
End Sub
Bonjour
Va voir ici quelques exemples :
http://www.erlandsendata.no/english/index.php?d=envbadacimportado
Cordialement
Pascal
"Jean" <jj@free.fr> a écrit dans le message de news:
443c970b$0$21298$8fcfb975@news.wanadoo.fr...
Bonjour,
Dans un module VBA je dois aller lire des informations dans une base
access.
Comment puis-je faire ?
Pour te simplifier la tache (j'ai fait ca pour debuter ya pas longtemps et un truc comme ca m'aurait bien aider à comprendre le principeA recopier dans le VBE :
Option Explicit
Sub MaRecherche()
Dim BaseSource, Querymag, MASELECTION As Variant Dim MySql As String Dim i As Integer
'---ne pas oublier de cocher les references Acces, voire ADO ou DAO pour la suite, dans outilsReferences---"
'1/Connection à la base de données Set BaseSource = DBEngine.Workspaces(0).OpenDatabase("C:Documents and Settingsphilippe.krempfBureauCP.mdb")
'2/Création du jeu d'enregistrement MySql = "SELECT LISTE_VILLES.Nom_communes FROM LISTE_VILLES;" '2.a Création de la sequence SQL (un bon copier coller de l'assisant requete d'access (QBE) sous mode SQL)
Set Querymag = BaseSource.CreateQueryDef("", MySql) '2.b Création du jeu d'enregistrement Set MASELECTION = Querymag.OpenRecordset() '2.c Ouverture du jeu d'enregistrement
'2.d Sortir si aucun enregistrement If MASELECTION.RecordCount = 0 Then MsgBox "aucun enregistrement trouvé" Exit Sub End If '2.e Se placer sur le premier enregistrement MASELECTION.MoveFirst
'3/ Récupération du jeu d'enregistrement dans Excel i = 1 While Not MASELECTION.EOF 'tant que ce n'est pas le dernier enregistrement Sheets(1).Cells(i, 1).Value = MASELECTION("Nom_Communes") i = i + 1 MASELECTION.MoveNext 'passer à l'enregistrement suivant Wend
'4/On sort proprement en fermant et en se déconnectant MASELECTION.Close Querymag.Close Set Querymag = Nothing BaseSource.Close Set BaseSource = Nothing
End Sub
Bonjour Va voir ici quelques exemples : http://www.erlandsendata.no/english/index.php?d=envbadacimportado Cordialement Pascal
"Jean" a écrit dans le message de news: 443c970b$0$21298$
Bonjour,
Dans un module VBA je dois aller lire des informations dans une base access. Comment puis-je faire ?
Merci d'avance.
Jean
Jean
OK merci à tous
"Jean" a écrit dans le message de news: 443c970b$0$21298$
Bonjour,
Dans un module VBA je dois aller lire des informations dans une base access. Comment puis-je faire ?
Merci d'avance.
Jean
OK merci à tous
"Jean" <jj@free.fr> a écrit dans le message de news:
443c970b$0$21298$8fcfb975@news.wanadoo.fr...
Bonjour,
Dans un module VBA je dois aller lire des informations dans une base
access.
Comment puis-je faire ?
