Discussion :

[Tytelle]

Bonjour,

J'essaye d'ouvrir une bdd Access 2010 depuis excel 2010.
Je n'ai rien trouvé sur le net qui m'aide...
Avez vous une idée de comment faire?

Merci de votre aide.

[Jean-Philippe André]

salut,

de quel type d'ouverture parles-tu ?

Souhaites-tu ouvrir la base et manipuler des données/valeurs qui s'y trouvent en VBA ?

Ou bien souhaites-t-u juste exécuter "l'ouverture" de la base et continuer un processus quelconque ?

[Tytelle]

En fait je voudrais ouvrir un formulaire que je manipule sur access.

[Jean-Philippe André]

OK,

plusieurs choix possibles :
- soit tu fais tout depuis Excel en VBA avec des variables Access.Application puis Access.Application.Forms
- soit tu ouvres juste ta base, avec le formulaire en question qui s'ouvre automatiquement en démarrage
- soit tu ouvres ta base access en passant des paramètres à celle-ci, par batch par exemple

[Tytelle]

Merci
Alors supposons que je souhaite passer par la première option. Voilà ce que j'ai écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Button1_Click()
 
    Dim Db As Object
    'Dim strSQL As String
    Set Db = CreateObject("Access.Application.Form")
    Db.OpenCurrentDatabase ("C:\Users\Chrys\Documents\NewImportExport\BDDImportExportNEW.accdb")
 
End Sub

Mais j'ai une erreur "ActiveX component can't create object"...

[Jean-Philippe André]

Ah non, ton objet se limitera à Access.Application

Le .Forms sera utilisé par la suite dans ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set Db = CreateObject("Access.Application")
    Db.OpenCurrentDatabase ("C:\Users\Chrys\Documents\NewImportExport\BDDImportExportNEW.accdb")
Db.Forms(resteducode)

[Tytelle]

Hum.. ok
Et après je fais un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Db.Forms(open ("chemin d'acces à ma BDD"))

hum?

[Jean-Philippe André]

Non,

ton objet Db représente ici ton application Access, pas ta base directement


pour ouvrir le formulaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Db.DoCmd.OpenForm("tonform",acNormal)

[Tytelle]

J'ai droit à un beau "Compile error : expected : = "

[Jean-Philippe André]

Certes, j'ai fait mes essais ailleurs moi, pas besoin des parenthèses

[Tytelle]

Presque...
J'ai une erreur qui me dit : "Microsoft Access an't open the database because it is missing, or opened exclusively by another user, or it is not an ADP file."
Tous mes autres fichiers excel sont fermés, mais j'ai une connection entre ma table access qui est dans le même fichier access que mon formulaire, et le fichier excel d'où je lance mon ouverture de formulaire...
Ca ne ferais un petit conflit ça?

[Jean-Philippe André]

Là ca pointe le fichier Access, donc si effectivement un de tes fichiers Excel a déjà ouvert le fichier, tu te retrouveras effectivement avec un conflit.