bonjour,

a partir dune base access "sauvegarde" j'ai un code vba pour ouvrir une base test" et lancer le formulaire"adresse" se trouvant dans cette base.
la base s'ouvre et le formulaire se lance bien mais a la fin du code cette base test se ferme automatiquement alors que je n'ai pas demandé sa fermeture
savez vous pourquoi?
voici le 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
 
Dim db As dao.Database
Dim AppAccess As Access.Application
Dim Chemin As String
Dim base As String
Dim formulaire As String
 
Chemin = "G:\SauvegardePersonnelle\"
base="test.accdb"
 fomulaire="adresse"
 
Set AppAccess = New Access.Application
    With AppAccess
        .Visible = True
        .DoCmd.RunCommand acCmdAppMaximize
       .OpenCurrentDatabase (Chemin & Base)
        .DoCmd.OpenForm Formulaire
        .DoCmd.RunCommand acCmdAppMaximize
   End With
 
 
Set db = Nothing
 
Set AppAccess = Nothing
 
 
 
End Sub
merci