Discussion :

[Invité]

Bonjour à tous

Voilà donc mon petit soucis.

Sur mon post je peux avoir plusieurs base Access d'ouvertes, ce que je souhaite c'est lister celles-ci.

Je sais comment récupérer les processus ouverts (c'est dans la FAQ), mais cela signale qu'Access est ouvert, et non le fichier .mdb qui est ouvert dans Access et son chemin, c'est cela qui m’intéresse.

Merci à ceux qui pourront m'apporter de l'aide.

Philippe

[ProgElecT]

Salut

Mes essais Avec Access 2007, 3 BDs ouvertes, j'obtiens bien les chemins et les noms des BDs.
Un peu tiré par les cheveux, mais opérationnel.

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
32
33
34
35
36
37
38
39
40
41
Private Sub Command1_Click()
    Dim svc As Object
    Dim sQuery As String
    Dim oproc
 
    Dim Msg As String
    Dim MsgChemBDs As String
    Dim MsgBDs As String
    Dim TxtRech As String
 
    On Error GoTo Command1_Click_Error
 
    Set svc = GetObject("winmgmts:root\cimv2")
    sQuery = "select * from win32_process"
    For Each oproc In svc.execquery(sQuery)
        'Debug.Print oproc.Name & " = " & oproc.ExecutablePath
        If InStr(1, oproc.Name, "MSACCESS.EXE", vbTextCompare) <> 0 Then
            Msg = Trim(oproc.CommandLine)
            Msg = Replace(Msg, Chr(34), "")
            Msg = Replace(Msg, "]", "")
 
            MsgBDs = Right(Msg, Len(Msg) - InStrRev(Msg, "\"))
 
            TxtRech = "ShellOpenDatabase "
            If InStr(1, Msg, TxtRech, vbTextCompare) Then
                MsgChemBDs = Right(Msg, (Len(Msg) - (InStrRev(Msg, TxtRech) + Len(TxtRech)) + 1))
                Else
                TxtRech = "NOSTARTUP "
                MsgChemBDs = Right(Msg, (Len(Msg) - (InStrRev(Msg, TxtRech) + Len(TxtRech)) + 1))
            End If
            Debug.Print "Chemin de la BDs: " & MsgChemBDs
            Debug.Print "BDs:  " & MsgBDs
        End If
    Next
    Set svc = Nothing
    Exit Sub
 
Command1_Click_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ")"
    Err.Clear
End Sub

[Invité]

Merci Francis

Je testerais cela ce soir, et je te ferais mon retour.

c'est quoi le type de oproc ?

Philippe

[ProgElecT]

j'ai repris le code de la FAC, le fait est que cette variable n'est pas typé, mais avec Dim oproc As Object pas de problèmes.

[Invité]

le fait est que cette variable n'est pas typé,

Ce que je déteste, que je fasses du VB6, du Access, du Excel, la déclaration des variables et le typage est obligatoire pour moi

Je regarde ce soir, il n'y a rien d'intéressant à la télé

[ProgElecT]

..........
Je regarde ce soir, il n'y a rien d'intéressant à la télé

Je viens de regarder, il manque la ligne

Code :

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

            MsgChemBDs = Left(MsgChemBDs, Len(MsgChemBDs) - Len(MsgBDs) - 1)

pour avoir le chemin sans le nom de la BDs.

[DarkVader]

Bonjour,

Ce que je déteste, que je fasses du VB6, du Access, du Excel, la déclaration des variables et le typage est obligatoire pour moi

Je regarde ce soir, il n'y a rien d'intéressant à la télé

Ben, ce n'est pas parce que le typage n'est pas obligatoire qu'on est obligé de s'en passer
d'autant qu'il est facile de l'identifier - le non typage est juste une "facilité" pour l'utilisateur lambda

Code :

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

1
2
.../...    Set svc = GetObject("winmgmts:root\cimv2")
Debug.Print TypeName(svc)   ' => SWbemServicesEx

et la référence correspondante
«Microsoft WMI Scripting V.1.2 Library» (wbemdisp.tlb)

[Invité]

Bon je coince

J'ai essayé avec un GetObject pour récupérer Access, à partir de là j'aurais le chemin du projet, mais

Philippe

[DarkVader]

Effectivement tu auras le chemin complet avec database.name
mais avec getobject tu n'auras que la 1ère instance ouverte.

Il faut lister toutes les instances avec getrunningobjecttable
mais c'est lourd.
Bon courage.

[Invité]

Salut à tous

Bon je vous avoues que je sèche sur ce truc, j'ai trouvé un autre palliatif, c'est la création d'un complément Access qui sera donc accessible dans toutes les bases, et c'est même plus simple.

Merci à tous de votre aide.

Philippe

[DarkVader]

A l'occasion, quand j'aurais le temps, j'y reviendrais.
Désolé de ne pouvoir m'y investir plus pour l'instant
mais c'est assez lourd à développer.

[Invité]

Re

mais c'est assez lourd à développer.

Je m'en doute, comme c'est une petite application qui doit être utilisée pour plusieurs bases Access, le complément est le plus simple.

Mais si tu trouves la solution je testerais sans soucis, et cela peut-être utile à d'autres.

Philippe

[DarkVader]

A l'occasion, quand j'aurais le temps, j'y reviendrais.
Désolé de ne pouvoir m'y investir plus pour l'instant
mais c'est assez lourd à développer.

Ben c'est le moment lol

Comme déjà dit précédemment, GetObject ne retourne que la 1ère instance trouvée ce qui est très limitant
d'autant que GetObject devrait être appelé systématiquement avant chaque appel à CreateObject
afin de vérifier si l'instance a créer n'est pas déjà ouverte.

Voilà donc GetObjects de la librairie VB6i qui a le mérite de retourner TOUTES LES INSTANCES. Il suffira ensuite de faire le tri.
Outre que c'est beaucoup moins lourd que la solution WMI qui est un pieux, cela retourne l'object Application.

Un exemple avec des instances Excel, lancez 2 instances séparées de Excel (ou autre) et ouvrez plusieurs classeurs dans chaque instance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub F_Load()
    Dim xlObj() As Object, oWorkbook As Object, x As Long, sRet As String
 
    For x = 1 To GetObjects("Excel.Application", xlObj())
        For Each oWorkbook In xlObj(x).Workbooks
            sRet = sRet & IIf(sRet <> "", vbCrLf, "") & x & vbTab & oWorkbook.Name
        Next
    Next
 
Debug.Print sRet
End Sub

[Invité]

Salut

Merci pour ce retour qui pourrait servir à d'autres, mais je suis passé à un complément sur Access qui fonctionne parfaitement.

Philippe

[patricktoulon]

Salut

Merci pour ce retour qui pourrait servir à d'autres, mais je suis passé à un complément sur Access qui fonctionne parfaitement.

Philippe

Bonjour phillipe
Regarde dans les contributions mon getobject pour les sessions d'internet explorer peu etre que tu pourrais l'adapter a acces