pb gestion acces avec excel

bonjour,
J'ai un pb de compilation avec le code ci dessous

Sub ouvr()

Dim rec As String
Dim maBD As Database

Application.ScreenUpdating = False
rec = UserForm1.ComboBox1.Value
Set maBD = DBEngine.OpenDatabase(rec)

End Sub

en fait j'ai une erreur sur database , objet ou bibli introuvable

j'aimerais dc savoir dou vien le pb ou sinon ptr que kelkun sait programmer autrement
voila ce que jaimerais faire:

qd je suis sous excel jai fait un pgr qui met ds un combobox ts les fichiers .mdb présent ds le dossier d:\CesvaData

voici ce code et ca marche

Sub recupfichier()
Dim ctr As Integer
la ligne ci dessous et en fait juste une copie dune cellule , ds laquelle se rouve mon chemin dacces , comme ca lutilisateur pourra le changer
Sheets("Feuil1").Range("A2").Select
  With Application.FileSearch
'D 'abord réinitialiser les critères (Attention : Le LookIn ne se réinitialise pas comme ça)
    .NewSearch
'Pour mettre à jour la liste des dossiers, au cas ou on viendrait de créer un nouveau dossier par VBA :
    .RefreshScopes
'Dossier(s) de recherche :
    .LookIn = Selection
    .Filename = ".mdb"
    .FileType = msoFileTypeAllFiles
    .SearchSubFolders = True
'C 'est parti :
    .Execute
'Une boucle traditionnelle pour parcourir les fichiers trouvés. FoundFiles(Ctr) n'a pas de propriétés. Par exemple, pas question d'avoir le nom du fichier sans le dossier, ou même sa date de création (en tout cas par la méthode FoundFiles)
    For ctr = 1 To .FoundFiles.Count
    UserForm1.ComboBox1.AddItem .FoundFiles(ctr)
    Next ctr
End With
End Sub

Ce code est gerer par un bouton en face avt sur ma feuil1 ds excel et un userform comnposer dun combobox, dun bouton ok et un annuler

qd jappuie sur le bouton en face avt le userform apparait et ds le combobox se trouve alor ts les fichiers .mdb reconnu ds le chemin dacces defini

et c a partir de la que jaimerais passer sous access
en fait qd lutilisateur a choisi le fichier .mdb ki linteresse , qd il appuye sous ok du userform il faudrait que la basse de données acces choisi souvre (le fichier access), ensuite je fait des traitements sous acces, des simple copie et je repasse sous excel pour stocker mes données.

aidez moi svp c tro tro important
dc repondez moi, ceci cloture mon stage

merci
salut

il faut declarer ton user form 1
dim userform1 as form

programation .....

mais ca change rien jai tjs une erreur sur database

franchement trouver une solution ou donner moi une autre methode de programmation svp

Salut, n'aurais-tu pas oublié de cocher "Microsoft DAO ....." dans les références de ton projet ? Avec Excel, ça doit se trouver dans "Outils/Références..." si ma mémoire est exacte.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Bonjour,
Je t'ai donné la solution dans ma réponse à ton post d'hier, l'as tu essayée ??. et avec ce code, tu n'a besoin d'aucune références , ni de te raccorder à Access.Pout ouvrir Access, il y a plusieures façon, moi j'ai choisi la méthode LisIndex du combobox, mais tu peux agir sur la propriété texte, à toi de voir.

jpleroisse

oui mai le pb ac listindex c ke moi je ne sais pa combien jai dindice ds ma listbox ca varie au cours du tps

jai essayer mais ca nouvre rien qd jexecute

redis moi stp ou fo ke jplace les codes ke tu pa donner au niveau evenemntiel stp

merci

Re bonjour, j'ai modifieé un peu le code et cela fonctionne très bien.
Evidemment dans mon exemple j'utilise les BD Biblio et Nwind qui se trouve dans mon répertoire Vb 6/vb98. Tu dois remplacer le chemin par celui de tes BD.

Sub AppelerAccess()
Dim FileName As String
FileName = "C:\Program Files\Microsoft Visual Studio\vb98\" + Combo1.Text
Call ShellExecute(0&, vbNullString, FileName, _
vbNullString, vbNullString, vbNormalFocus)
End Sub

Private Sub Combo1_Click()
Call AppelerAccess
End Sub

Private Sub Form_Load()
Combo1.AddItem "Biblio.mdb"
Combo1.AddItem "Nwind.mdb"
End Sub

Avec ce code quelque soit les entrées que tu ais dans ta liste, la BD correspondand au nom du fichier sera ouverte.

jpleroisse

il me dit que shellexecute est un objet ou une bibliotheque introuvable

voici mon code

Sub AppelerAccess()
Dim FileName As String
Dim rec As String

rec = UserForm1.ComboBox1.Value
FileName = "rec"
Call ShellExecute(0&, vbNullString, FileName, _
vbNullString, vbNullString, vbNormalFocus)
End Sub

ds le code du userform

Private Sub Annuler_Click()
UserForm1.Hide
End Sub

Private Sub OK_Click()
Call AppelerAccess
UserForm1.Hide
End Sub


jai juste remplacé levenment click du combo par un clik sur un bouton

aide moi stp

shellexecute c quelle bibli