acces excel

Question

voici mon pb, qd je lance le pgr ci-dessous il y a une erreur de compilation : projet ou biblioth&#232;que introuvable

Sub ouvr()


Dim rec As String
Dim maBD As Database,Application.ScreenUpdating = False
rec = UserForm1.ComboBox1.Value
Set maBD = DBEngine.OpenDatabase(rec)


End Sub

deuxieme chose:
ma variable rec est en fait le chemin dacces du fichier que je veux ouvrir, et je ne sais pa si cela est possible d&#233;crire comme je l'ai fait avec opendatabase

peut etre faut il utiliser filename

aider moi c tro tro important jai bientot fini mon stage et jaimerais franchement finir mon pgr

ca doit etre un pb de r&#233;f&#233;rences mais quelles r&#233;f&#233;rences st disponibles pr gerer un fichier acces sous excel????

jai deja coch&#233; microsoft DAO

salu
merci davance et aidez moi svp

jpleroisse · Answer

Bonjour, 


Que veux tu faire exactement, importer un champ de BD Access dans un Combobox, o&#249; l'inverse. Si cest pour importer d'Access vers un combobox, voici un code.


Mettre une r&#233;f&#233;rence &#224; Microsoft Activex AdoData Objects 2.0 Library (ou 2.6 si tu est sous XP) et Microsoft DAO 3.51 Object Library.(o&#249; 3.6 si tu es sous XP)

Private Sub CommandButton1_Click()
Dim adoConnection As ADODB.Connection
Dim adoRecordSet As ADODB.Recordset
Set adoConnection = New ADODB.Connection
Set adoRecordSet = New ADODB.Recordset
Dim ConnectionString As StringConnectionString "Provider Microsoft.Jet.OLEDB.3.51;" & " Data Source = C:\Program Files\Microsoft Visual Studio\vb98\Biblio.mdb"
adoConnection.Open ConnectionString
adoRecordSet.Open "Publishers", adoConnection
Do Until adoRecordSet.EOF


ComboBox1.AddItem adoRecordSet!Name


adoRecordSet.MoveNext
Loop
adoRecordSet.Close
adoConnection.Close


Set adoConnection = Nothing
Set adoRecordSet = Nothing
End Sub

(ConnectionString jusque Biblio.mdb, sur une seule ligne)

jpleroisse

Tonin39 · Answer

en fait jai fait un pgr ki me liste ds un combobox les fichiers .mdb pr&#233;sents ds un dossier

ensuite jaimerais que ad je selectionne un fichier, cad son chemin dacces, depuis excel on ouvre la base de donn&#233;es acces

aide moi stp jpleroisse
tu ma lair tr&#232; inspir&#233;

stp jai besoin de toi

Tonin39 · Answer

jai cocher les 2 references si dessus mais qd je lence le pgr jai tjs cette erreur dobjet ou biblioteque

AIDEZ MOI SVP

merci 
salut

Tonin39 · Answer

en fait lerreur c projet introuvable

il me surligne en bleu maBD As Database

jpleroisse · Answer

Re,
Option Explicit
Private Declare Function ShellExecute Lib "Shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long


Sub AppelerAccess()
Dim FileName As String
FileName = "C:\Program Files\Microsoft Visual Studio\vb98\Biblio.mdb"
Call ShellExecute(0&, vbNullString, FileName, _
vbNullString, vbNullString, vbNormalFocus)
End Sub

Pour ouvrir une base de donn&#233;es Access en cliquant sur le nom d'un fichier dans ta comobobox, il vaut mieux se servir des index. par exemple si la base de donn&#233;es que tu veux ouvrir correspond &#224; un nom de fichiers qui se trouve 3&#232;me dans la liste, tu fais


Private Sub Combobox_Click()


Select Case Index
Case 0
Ici , tu places un code (ou tu ne t'en sert pas)
Case 1
Idem
Case 2 (Correspond &#224; la 3&#232;me entr&#233;e dans la liste du combo)
Call  AppelerAccess
End Select
End Sub

Ce code ouvre la base de donn&#233;es Biblio.mdb, il te suffis de mettre &#224; la place, le chemin d'acc&#233;s de la base que tu veux ouvrir.

jpleroisse · Answer

PS: Erreur c'est Select Case ListIndex.
jpleroisse

Acces excel

6 réponses

Discussions similaires