Discussion :

[KonTiKI]

D'une base de donnée, je lance via une nouvelle instance une procédure dans une autre base.

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
Sub LanceOrdo()
 
    Dim strDB As String
 
    ' Initialize string to database path.
    Const strConPathToSamples = "D:\Temp\"
    strDB = strConPathToSamples & "Ordo.mdb"
 
    ' Create new instance of Microsoft Access.
    Set appAccess = _
        CreateObject("Access.Application")
 
    appAccess.OpenCurrentDatabase strDB
    appAccess.DoCmd.RunMacro "Bipeur"
    appAccess.CloseCurrentDatabase
 
End Sub

A la fin, la dernière ligne ferme la seconde base. Mais il reste un cadre vide d'access, représentant l'instance crée.

Comment faire pour supprimer ce cadre à partir du code ?

Merci

[KonTiKI]

Réponse trouvée dans le forum :

Docmd.quit, ça marche bien