Discussion :

[frouge]

Bonjour,

j'aimerais savoir comment appeler un formulaire access à partir d'un menu excel que j'ai créé.

Merci !

[argyronet]

Bonjour,

Vous êtes décidément tous pareil.
C'est pourtant pas difficile de formuler une demande. Pensez que votre message va être lu x fois. Pour ton cas déjà 7 et pas une réponse, tu m'étonne...

• Objet:
  Plateforme:
  Version utilisée:
  Ce que je souhaite:

Explique un peu ce que tu veux...
Ta demande est loin d'être claire.


Argy

[Le Pharaon]

argyronet je dois t'avouer que ton message est trop fort. Prends soins d'atténuer prochainement , comme tu nous a demandé d'être plus précis.

______________________________________________
Bujuman
Sans rancune

[frouge]

je peux t'affirmer que je suis sous windows XP, j'utilise office 2003

je suis sûr que tu es beaucoup plus avancé à présent

maintenant j'ai créé un menu pour l'interface dans excel (qui se trouve dans la barre des tâches [fichier, edition,...,Mon Menu])

D'autre part j'ai créé des interface sous Access (2003 hein)

J'aimerais, à partir de mon menu Excel, lancer ces interfaces

Comment puis-je y arriver?

Je vous remercie !

[argyronet]

D'accord d'accord, mais vous avouerez que dans l'ensemble, on perd un temps considérable à essayer de déchiffrer les demandes des visiteurs autant que celles des membres.
Il faut considérer qu'une des priorités de ce forum:
- pour sa bonne tenue,
- pour modérer le travail des modérateurs,
- pour satisfaire en un minimum de temps les demandeurs,
est de minimiser la taille des bases.
Donc si on peut éviter des poster des messages qui ont pour seule vocation de comprendre la demande, je ne suis pas contre.
De plus, le demandeur sait ce qu'il veut donc ce doit être facile à formuler.

Désolé si j'ai blessé des âmes sensibles.

Argy

[argyronet]

Bien, voilà un élément de réponse:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub testAccessXL()
Dim dbPath As String
Dim oAccessApp As Access.Application
 
  dbPath = "C:\Documents and Settings\Ton Nom\Mes documents\Comptoir.mdb"
  Set oAccessApp = CreateObject("Access.Application")
  With oAccessApp
    .Visible = True
    .OpenCurrentDatabase dbPath
    .DoCmd.OpenForm "Clients", acNormal, , , , acDialog
    .DoCmd.Close acForm, "Clients"
    .CloseCurrentDatabase
    .Quit
  End With
 
  Set oAccessApp = Nothing
End Sub

Argy

[frouge]

Salut argyronet,

Merci pour ton élément de code, mais j'ai un problème pour le tester car apparemment je n'ai pas la bibliothèque nécessaire.

Pourrais-tu m'indiquer quelles sont les bibliothèques nécessaires à l'éxecution de ton code?

merci en tout cas pour ton aide

[argyronet]

Bien en fait, il y a deux cas:

De manière générale, il est préférable de déclarer en Object plutôt que par référence comme je te l'ai proposé...
C'est à dire écrire:

Code :

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

Dim oAccessApp As Object

plutôt que

Code :

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

Dim oAccessApp As Access.Application

Pourquoi, bien ce la t'évite justement de faire une référence.
Il est, au moment du codage, conseillé de cocher la référence pour bénéficier de l'intellisense qui te facilite le codage en te proposant les propriétés et méthodes (Ctrl+Espace)...
Une fois que ton code est opérationel, tu peux changer le type en Object et décocher la référence. (Il y a un CreateObject)...
Donc pour tester dans l'état actuel, tu va dans Outils/Référence et tu coches Microsoft Access X.X Object Library...

Bon courage

Argy

[frouge]

Ca marche!!!!! Merci beaucoup!

Mais en fait un autre soucis c'est que ce code m'ouvre TOUTE la base en entier alors que je ne voudrais voir apparaître que le formulaire en question dans ma feuille excel lorsque je lance ma macro.

Aurais-tu une solution à me proposer???

Merci d'avance!!!

[argyronet]

Aie...
C'est pas comme cela qu'il faut procéder alors...
Là, il te faut recréer le Form Access avec un UserForm Excel et par une méthode à l'aide DAO, répercuter les données temporairement dans le UserForm.
Tu n'as pas d'autre solution à ma connaissance car Excel et Access n'utilisent pas du tout la même technologie en matière d'objets Forms.
La preuve, tu ne peux pas importer un formulaire Access dans Excel.

Argy