[VBA-E]Macro Access sous Excel

Hello ,

Je lance une macro access sous excel tous fonctionne très bien sauf que ça me lance access comme si j'avais mis un point d'arrêt. Avant ça ne me lançais pas access . ( cette etape etais transparente pour l'utilisateur).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Macro_Access() Dim acApp As New Access.Application Set acApp = New Access.Application 'Ouverture de la base de données acApp.OpenCurrentDatabase ("blablablablab") acApp.Visible = False ' Execution de la macro : Import_fichier qui elle même va appeler une ' fonction de chargement de la table de travail acApp.DoCmd.RunMacro "Alimentation" ' = copi ds histo acApp.Quit Set acApp = Nothing End Sub

---

Code:

---

1 2 3 4

Dim acApp As New Access.Application Set acApp = New Access.Application 'Ouverture de la base de données acApp.OpenCurrentDatabase ("<a href="file://srvdfs00/partages/501-550/m00549/APTECH/Projet/Prod/Stat_StpV2.mdb" target="_blank">blablablablablablabla</a>")

---

Ta base de données tu l'ouvres la :)

Citation:

---

Envoyé par toniox

Hello ,

Je lance une macro access sous excel tous fonctionne très bien sauf que ça me lance access comme si j'avais mis un point d'arrêt. Avant ça ne me lançais pas access .

---

Avant quoi ?

Oui désolé ça veut pas dire grand chose ! Bah j'avais le même code et je n'ai jamais eu la base qui s'ouvrait; c'etais transparent. J'ai vérifier il n'y a pas de point d'arret dans access .

Il faut bien ouvrir la base pour y avoir acces non?

Merci

Citation:

---

Envoyé par toniox

Il faut bien ouvrir la base pour y avoir acces non?

---

C'est vrai que c'est plus pratique ! ;)
Il doit bien y avoir qquelque qui a changer, soit dans ton code Excel, soit dans ton code VBA Access ?

C'est pas de la magie !

Essaie avec une liaison tardive :

Code:

---

1 2	Dim acApp As Access.Application Set acApp = CreateObject("Access.Application")

---

Je ne comprend en faite j'ai modifier la macro avant j'en avais 3 et j'ai concatener en une seule.J'ai ensuite lancer ce matin le programme donc bug car 2 des 3 macros n'existait plus . Et depuis ça ouvre access !!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

'Procédure d'alimentation de la base Access Sub Macro_Access() Dim acApp As New Access.Application Set acApp = New Access.Application 'Ouverture de la base de données acApp.OpenCurrentDatabase ("blablablablabla") ' Execution de la macro : Import_fichier qui elle même va appeler ' une fonction de chargement de la table de travail acApp.DoCmd.RunMacro "Dat" ' = va chercher le dat acApp.DoCmd.RunMacro "Import_Fichier" ' = importation_fichier(CRM21_temp) acApp.DoCmd.RunMacro "Alimentation" ' = copi ds histo acApp.Quit Set acApp = Nothing End Sub

---

Pas d'explication mais ça refonctionne !

Merci