Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Acces depuis Excel

Acces depuis Excel

3 réponses
Avatar
TOF
Bonjour

Je souhaite executer une macro access depuis excel et je=20
coince !!

Dim accAPP As Object
Dim accBAS As Object

Set accAPP =3D CreateObject("Access.Application")

accAPP.Visible =3D msoTrue

Set accBAS =3D accAPP.DATABASE.Open("X:\Clientele=20
Privee\CP\Scm\Christophe\Test\RGF\test_access.mdb")

accAPP.Run "test_access.mdb!Partir"

le probl=E8me c'est qu'il n'a pas l'air d'aimer DATABASE !!=20
Lorsque je fait ce code avec Powerpoint il y=20
Presentations, et je n'arrive pas =E0 trouver l'=E9quivalent=20
pour Access

Si quelqu'un a une id=E9e ?

Par avance merci

TOF
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Salut Tof
essaie :
accapp.OpenCurrentDatabase
-----Message d'origine-----
Bonjour

Je souhaite executer une macro access depuis excel et je
coince !!

Dim accAPP As Object
Dim accBAS As Object

Set accAPP = CreateObject("Access.Application")

accAPP.Visible = msoTrue

Set accBAS = accAPP.DATABASE.Open("X:Clientele
PriveeCPScmChristopheTestRGFtest_access.mdb")

accAPP.Run "test_access.mdb!Partir"

le problème c'est qu'il n'a pas l'air d'aimer
DATABASE !!

Lorsque je fait ce code avec Powerpoint il y
Presentations, et je n'arrive pas à trouver l'équivalent
pour Access

Si quelqu'un a une idée ?

Par avance merci

TOF
.



Avatar
michdenis
Bonjour Tof,

Charger la bilbiothèque DAO 3.6

'--------------------------
Sub MacroAccess()
Dim ac As Object

Set ACC = CreateObject("Access.Application")
With ACC
.OpenCurrentDatabase _
("C:ExcelMonFichier.mdb")
.Visible = True
.Run "NomDeLaMacroDansAccess"
ACC.Quit
End With
Set ACC = Nothing
End Sub


Salutations!



"TOF" a écrit dans le message de news:4ff601c48071$2eaff600$
Bonjour

Je souhaite executer une macro access depuis excel et je
coince !!

Dim accAPP As Object
Dim accBAS As Object

Set accAPP = CreateObject("Access.Application")

accAPP.Visible = msoTrue

Set accBAS = accAPP.DATABASE.Open("X:Clientele
PriveeCPScmChristopheTestRGFtest_access.mdb")

accAPP.Run "test_access.mdb!Partir"

le problème c'est qu'il n'a pas l'air d'aimer DATABASE !!
Lorsque je fait ce code avec Powerpoint il y
Presentations, et je n'arrive pas à trouver l'équivalent
pour Access

Si quelqu'un a une idée ?

Par avance merci

TOF
Avatar
papou
Bonjour essaie plutôt avec
accAPP.OpenCurrentDatabase "X:Clientele _
PriveeCPScmChristopheTestRGFtest_access.mdb"
accAPP.Run "Macro"

Cordialement
Pascal

"TOF" a écrit dans le message de
news:4ff601c48071$2eaff600$
Bonjour

Je souhaite executer une macro access depuis excel et je
coince !!

Dim accAPP As Object
Dim accBAS As Object

Set accAPP = CreateObject("Access.Application")

accAPP.Visible = msoTrue

Set accBAS = accAPP.DATABASE.Open("X:Clientele
PriveeCPScmChristopheTestRGFtest_access.mdb")

accAPP.Run "test_access.mdb!Partir"

le problème c'est qu'il n'a pas l'air d'aimer DATABASE !!
Lorsque je fait ce code avec Powerpoint il y
Presentations, et je n'arrive pas à trouver l'équivalent
pour Access

Si quelqu'un a une idée ?

Par avance merci

TOF