Discussion :

[gandalf20000000]

Bonjour,


j'aimerais ouvrir une autre BDD access afin de lancer une macro. Cependant, je bloque et les divers totu ne m'aide pas beaucoup (étant de faible niveau!)


Voici mon code:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Function ouverture_bdd()
 
    If Command = "macro_remplissage_hebdo" Then
 
        macro_remplissage_hebdo
 
    End If
 
End Function
 
Function macro_remplissage_hebdo()
 
DoCmd.SetWarnings False
 
Dim appAccess As Access.Application
Set appAccess = CreateObject("Access.Application")
 
'C'est ici que ca bloque'
Access.Application.OpenCurrentDatabase ("D:\Quotien.mdb")
 
    'Sélection de la feuille
appAccess.Run "Macro_remplissage_hebdo"
 
    'Suppressionage des variables
    Set appacess = Nothing
 
    DoCmd.SetWarnings True
 
Quit
 
End Function

L'erreur est : la base de données est déja ouverte

merci d'avance.

[LE VIEUX]

bonsoir,

essayes en remplaçant :

Code :

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

Access.Application.OpenCurrentDatabase ("D:\Quotien.mdb")

par :

Code :

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

appAccess.OpenCurrentDatabase ("D:\Quotien.mdb")