Discussion :

[Tytelle]

Bonjour,

Je souhaiterais ouvrir une BDD access depuis excel et effectuer quelques requetes, puis faire une mise à jour des données access (qui sont reprisent par excel) pour en donner des TCD.
Quelqu'un aurait-il une idée de comment procéder avec des macro?

Merci de votre aide

[Invité]

Bonjour

As-tu fait une recherche dans la FAQ Excel (le lien est en haut de cette page) avec le mot Access comme critère ?

http://excel.developpez.com/faq/inde...hercher=access

Philippe

[Tytelle]

J'ai rien trouvé qui pourrais m'aider...
Une autre aide?

[kiki29]

Salut, tu as tout ce que tu cherches dans la FAQ

[wilfried_42]

bonjour à tous

regarde Ce fil
j'y ai déposé un fichier

[Tytelle]

J'ai trouvé mon bonheur, enfin à peu de chose près.
J'exécute ma macro, mais access (ou excel) ne semble pas d'accord avec mon extension.

Code :

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

1
2
3
4
5
6
7
8
Sub Button1_Click()
 
    Dim Db As DAO.Database
    Dim strSQL As String
 
    Set Db = DAO.OpenDatabase("C:\Users\Chrys\Documents\BDD\BDDImportExportNEW.accdb", False, False)
 
End Sub

:'( un petit coup de main?

[Dragi]

Bonjour,
As-tu essayé de passer d'abord par la création d'un objet ? il faut également ajouter la référence Microsoft Access Object Library dans VBA.

Code :

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

1
2
3
4
5
Dim oAcApp As Object
 
Set oAcApp = CreateObject("Access.Application")
'Ouvrir la base de données
oAcApp.OpenCurrentDatabase "C:\Users\Chrys\Documents\BDD\BDDImportExportNEW.accdb"

[Invité]

Bonjour

Quelle référence as-tu coché ?

Pour un fichier au format accdb utilise la référence : Microsoft Office 12.0 (14.0) Access Database Engine Object

Le tuto à lire : http://warin.developpez.com/access/dao/

Philippe

[Tytelle]

Visiblement il me manquait une reference.
J'ai tout bien coché, je n'ai plus d'erreur, mais je n'ai rien qui se passe...

Voilà mon code :

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")
    Db.OpenCurrentDatabase ("C:\Users\Chrys\Documents\NewImportExport\BDDImportExportNEW.accdb")
 
End Sub

Si je coche trop de reference, ça pourrais empécher le bon déroulement de ma macro?

[kiki29]

Salut, là tu es en Late Binding et donc tu n'as pas de références supplémentaires à cocher, celles qui le sont par défaut dans un fichier vierge doivent elles le rester.
voir ici

Il est conseillé de développer en Early Binding pour profiter de l'intellisense et si déploiement le faire en Late Binding pour ne pas voir de messages liés aux différences de version des références

[Tytelle]

Hum... et donc supposons que je repasse à

Code :

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

Dim Db as DAO.Database

Dans tous les cas ça ne fonctionne pas...
Help!!

[kiki29]

Salut, là tu es en Early Binding et tu dois cocher la référence Microsoft DAO x.x Object Library

Dans Visual Basic, vous disposez de trois interfaces d'accès aux données : ADO, RDO et DAO. Une interface d'accès aux données est un modèle d'objet qui représente différentes facettes de l'accès aux données. Avec Visual Basic, vous pouvez contrôler par programmation, la connexion, les générateurs d'instructions et les données renvoyées pour être utilisées dans n'importe quelle application.

Pourquoi prévoir trois interfaces d'accès aux données dans Visual Basic ? Les techniques d'accès aux données évoluent constamment, et chacune des trois interfaces représente un stade diffèrent de cette évolution. La plus récente est ADO, qui met en œuvre un modèle d'objet plus simple (et cependant plus souple) que les modèles RDO ou DAO. Pour vos nouveaux projets, utilisez de préférence ADO comme interface d'accès aux données.

[Tytelle]

Je l'avais coché, mais ça n'a rien fait de particulier.
Donc je passe à ADO au lieu de DAO, mais y a toujours rien qui marche... (Evidement j'ai cocher Access Database Engine Object au lieu de DAO, c'est bien ça?)

[ZebreLoup]

A priori, c'est normal que ça ne fasse rien. Tu ouvres la base dans le code et tu n'en fais rien. Tu ne dois pas t'attendre à voir Access s'ouvrir.

Désolé si ça te paraissait évident et qu'il y a bien du code après ce que tu as mis dans ton message, mais on ne sait jamais.

[Tytelle]

Haaa... ok...
Je pensais que cette ligne allait ouvrir access.
que dois-je donc rajouter pour voir ma base s'ouvrir?

Merci ZebreLoup

[ZebreLoup]

Il ne faut pas confondre Access, qui est le logiciel et ta base, qui contient les données.
Tu n'as pas besoin d'ouvrir Access pour accéder aux données. D'ailleurs tu peux très bien accéder à des données d'une base Access sans que Access soit installé sur le poste.

Si tu regardes bien les tutos proposés plus haut, tu verras comment récupérer les données (via un recordset par exemple) pour les exploiter ensuite dans Excel.

[kiki29]

Salut, pour cela il te faudra lire et assimiler ceci

[Tytelle]

Je veux ouvrir un formulaire en fait, et donc je pensais que l'ouverture d'access etait indispensable.

[Invité]

Bonjour

Je veux ouvrir un formulaire en fait, et donc je pensais que l'ouverture d'access etait indispensable.

Pourquoi ouvrir un formulaire ? Ce n'est pas que les données que tu veux récuperer ?

A mon avis il faut que tu détailles entièrement ce que tu veux faire (l'explication du premier message n'est pas suffisante).

Philippe

[Tytelle]

Je reformule ce que je voudrais faire.
Je voudrais ouvrir un formulaire access via un bouton qui se trouve sur un classeur excel.
Avec ce formulaire ouvert, j'ajoute des info sur mes données de ma BDD, et un dernier clique sur mon formulaire exporte mes données (et résultats de requetes) vers une fichier excel et ferme le formulaire.
Il y aurais ensuite un refresh des TCD en fonction des données exportées dans mon excel.
Voilà