Ouverture fichier Access depuis Excel
P
Bonjour à tous,
J'essaie d'ouvrir un fichier Access depuis un bouton dans Excel mais cela ne fonctionne pas.
Je suis débutant en VBA j'ai essayé depuis une macro existante pour Word mais sans succès.
Ci dessous la macro que j'ai modifiée et qui ne fonctionne pas
Private Sub BaseNC_Click()
Dim Fichier As String
Fichier = "P:\Qualité\09 NC\NonConformités.mdb"
Set objetAccess = CreateObject("Access.Application")
If Dir(Fichier) <> "" Then
objetAccess.Visible = True
objetAccess.Documents.Open Fichier
End If
End Sub
Quelqu'un pourrait il m'aider ?
Merci par avance.
Pascal
J'essaie d'ouvrir un fichier Access depuis un bouton dans Excel mais cela ne fonctionne pas.
Je suis débutant en VBA j'ai essayé depuis une macro existante pour Word mais sans succès.
Ci dessous la macro que j'ai modifiée et qui ne fonctionne pas
Private Sub BaseNC_Click()
Dim Fichier As String
Fichier = "P:\Qualité\09 NC\NonConformités.mdb"
Set objetAccess = CreateObject("Access.Application")
If Dir(Fichier) <> "" Then
objetAccess.Visible = True
objetAccess.Documents.Open Fichier
End If
End Sub
Quelqu'un pourrait il m'aider ?
Merci par avance.
Pascal
Bonjour
Acces est un logiciel de gestion de bases de données. Le fichier contient une base de données et non un document.
Sans plus d'infos sur ce que contient la base de données, ce que tu veux y récupérer pour en faire quoi, on ne peut t'aider
P
Bonjour,
Je veux juste lancer la base de donnée.
En un mot, je me suis créé une feuille Excel sur laquelle j'ai mis des boutons.
Chaque bouton me permettant de lancer un fichier.
Pour les fichiers Excel je n'ai aucun problème mais je n'arrive pas à lancer mon fichier en .mdb.
Merci
Bonjour Pascal,
Dans un module il faut entrer cette macro:
Sub ouvrirAccess ()
Shell "MSACCESS"
End sub
et bingo!
P
Bonjour,
Merci cela fonctionne