Salut désolé pour l'attente mais ...
Bref voici un bout de code pour toi, il faut juste qu'il y ait un seul fichier Access dans le répertoire de ton fichier Excel.
Private Sub nitho()
Dim chmin As String
With Application.FileSearch
.NewSearch
.LookIn = ActiveWorkbook.Path
.Filename = "*.mdb"
.SearchSubFolders = False
.Execute
chmin = .FoundFiles(1)
End With
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase chmin
appAccess.Visible = True
End Sub
N'oublie pas de cliquer sur réponse acceptée si l'a réponse te satisfait.
Sinon explique encore
nitho l'amateur