Discussion :

[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 . ( cette etape etais transparente pour l'utilisateur).

Code :

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

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

[illight]

Code :

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

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

[ThierryAIM]

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 ?

[toniox]

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

[ThierryAIM]

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 :

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

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

[toniox]

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 :

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

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

[toniox]

Pas d'explication mais ça refonctionne !

Merci