Ouvrir fichier ACCESS à partir de mon fichier Excel via VBA

Set objAccess = New Access.Application

  Set DB = OpenDatabase("\ThisWorkbook.Path & "\" &  "All.mdb", False)
objAccess.Visible = False

Bonjour,

Il faut donner le chemin complet

A+

bonjour

c'est ce que j'ai fait

j'ai été dans propriété, j'ai copié le chemin et ca ne marche pas

je me suis servi ThisWorkbook.path afin d'éviter une erreur

Est-ce qu'il pourrait s'agir d'un soui de référence dans l'onglet Outil?

merci d'avance

Re,

Je n'avais pas fait attention, pourquoi mettre un antislash en 1er et un guillemet

Set DB = OpenDatabase(ThisWorkbook.Path & "\All.mdb", False)

A+

re

Je me suis trompé dans mon copier /coller sur le site désolé

Je mets bien

ThisWorkbook.Path & "\"& All.mdb"

J'ai même mis le lien complet du fichier (copie de propriétés du fichier) mais j'ai un message d'erreur comme quoi le format est non reconnu ( j'ai essayé .accdb et .mdb et toujours rien)

merci

Re,

Un peu de lecture qui pourra peut-être aider

https://learn.microsoft.com/fr-fr/office/vba/api/excel.workbooks.opendatabase

A+

Merci pour ton retour,

j'ai une question toute bête, as-tu un moyen pour récupérer la suite de ce chemin stp? car impossible de redimensionner la fenêtre

C'est dans Outils/Réferences

merci d'avance

Re,

Oui, en positionnant ton curseur de souris dessus

A+

Bonjour,

Une autre option, ouvrir ta base Access par le biais de Power Query, peut-être?

@BrunoM45: merci pour ton retour lol c'est vrai que c'est plus pratique comme ca

mais malheureusement à chaque fois que je rajoute cet exe je me retrouve avec le message suivant

@cousinhub: je dois l'ouvrir avec un code vba afin de pouvoir suivre le traitement de données mis en place et envoyer un fichier text via outlook à la fin

merci pour votre aide

Re,

Et bien là, il va falloir nous mettre à dispo le fichier SVP

Sinon nous ne pourrons plus rien faire pour vous

A+

re

Ca ne te dérange pas si je te l'envoie en MP?

merci d'avance

Re,

Désolé, mais ce n'est pas le fonctionnement de ce forum

Voici un code qui permet d'ouvrir un fichier "mdb"
et aucun besoin d'active une référence quelconque puisqu'on utilise le Late binding

Sub Ouvrir_BDD_Access()
  Dim Chemin As String, sBd As String
  Dim oBdD As Object
  ' Spécifiez le chemin d'accès
  Chemin = ThisWorkbook.Path & "\"
  sBd = "mabase.mdb"
  ' Créez un objet de base de données Access
  Set oBdD = CreateObject("Access.Application")
  ' Ouvrir la base de données Access
  oBdD.OpenCurrentDatabase Chemin & sBd
  ' Exécutez votre code ici...
  Stop
  ' Fermez la base de données Access
  oBdD.CloseCurrentDatabase
  ' Quittez Access
  oBdD.Quit
End Sub

A+

Bonsoir Leo10Messi,

J'espère que le code donné ci-dessus pourra vous aider

Si c'est le cas, merci de...

A+

RE Bonsoir BrunoM45

J'ai bien réussi à passer cette étape d'ouverture de la base suite à ton code

Mais un nouveau problème s'est ajouté...

Dans ma version de code j'avais

'Set DB = OpenDatabase(ThisWorkbook.Path & "\" & "mabase.mdb", False)
strSQL="maquery"
.
.
Set RS = DB.OpenRecordset(strSQL, DAO.dbOpenSnapshot)

j'ai modifié mon code comme vous me l'aviez décrit dans le commentaire pour l'ouverture de la base Access , mais en arrivant à la ligne ci dessous j'ai un message d'erreur

Set RS = oBdD.OpenRecordset(strSQL, DAO.dbOpenSnapshot) 'j'ai modifié DB par oBdD je ne sais pas si ceci est correct

bonjour

problème résolu

un grand merci à tous

Re,

Ne soyez pas égoïste, pensez à celui qui cherchera la mêle chose que vous
merci de déposer la solution ici SVP

A+

Re BrunoM45,

oui bien sûr.

Je n'ai rien fait d'exceptionnel, j'ai juste rajouté DBEngine

Set DB = DBEngine.OpenDatabase(ThisWorkbook.Path & "\All.mdb", False)

et il a réussi à ouvrir la base

du coup le second message d'erreur ne s'affichait plus

Voilà :)

Bonne journée à tous :)