Discussion :

[Phiphi41]

Bonjour,

Je sais lister les processus ouverts, pas de soucis.

Mais en plus lorsque je vois une application Office (Word, Excel, Access), je souhaite savoir quel fichier est utilisé par cette application.

Malgré toutes mes recherches dans la classe Processus ne n'ai pas trouver mon bonheur.

Merci à ceux qui pourront m'aider.

[wallace1]

Bonsoir,

C'est une source en c# mais tu peux le convertir en vbnet :

https://code.msdn.microsoft.com/wind...4839f4#content

PS : contenu du code à retravailler pour obtenir l'information souhaitée bien entendu.

EDIT :

Il y a ça aussi :

https://stackoverflow.com/questions/...file-using-net



A++

[clementmarcotte]

Bonjour,

La version VB.net est là

Le lien a été corrigé.

[Phiphi41]

Salut,

Merci à tous, je vais éplucher cela, et le lien VB.net ne fonctionne pas.

[clementmarcotte]

Bonjour,

Salut,

Merci à tous, je vais éplucher cela, et le lien VB.net ne fonctionne pas.

Désolé. Je viens de le corriger. J'ai été obligé de remplacer ma souris avec fil, par une souris sans fil. Mais. avec Windows 10, ce n'est pas une sinécure. En fait, c'est une souris Click-and-pray. Comme au temps du Plug-and-Pray. (Avant le Plug-and-Play de Windows 95)

[Phiphi41]

Merci,

J'ai jeté un coup d'oeil avant de tester, je pense que cela ne va pas fonctionner pour tous les cas sauf Access.

En effet un base Access n'est pas locked quand on l'utilise, on peut toujours l'ouvrir d'autre part.

Mais je testerai.

Merci à tous les deux.

[wallace1]

Bonsoir,

J'ai regardé s'il y avait d'autres solutions et je suis tombé sur ce ci :

https://social.msdn.microsoft.com/Fo...csharplanguage

A voir, ça m'a l'air d'être une bonne alternative.

[Phiphi41]

Salut,

Le dernier lien a l'air prometteur, je vais essayer de me dépatouiller avec cela.

Mon collègue qui est un spécialiste Access et .net a quitté le service pour un autre et donc j'ai un peu de mal, même s'il me donne de bon coups de mains quand il a un peu de temps.

[Invité]

bonjour,
je ne sais pas si c'est quelque chose comme ça que tu cherche

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
  Sub Main()
        Dim MyProcess As String = "Word.Application" 'j'ai trouvé mon process word!
        Dim wrd As Object = GetObject(MyProcess)
        If wrd IsNot Nothing Then
            For i As Integer = 1 To wrd.documents.count
                Debug.Print(wrd.documents(i).name)
            Next
        End If
    End Sub
    Friend Function GetObject(ByVal App As String) As Object
        Try
            ' log.Debug("Begin...")
            Return Marshal.GetActiveObject(App)
        Catch ex As Exception
                Return Nothing
                'Log.Error("", ex)
            Finally
                ' log.Debug("End...")
            End Try
    End Function

[Phiphi41]

Salut,

C'est à peu prêt cela, je testerais la semaine prochaine car là j'ai un autre soucis.

Je vous tiens au courant.

[Phiphi41]

Bonjour

Merci, mais cela ne fonctionne pas pour Access.

Bon je laisse tomber pour l'instant, mais je laisse ouvert au cas où, car non Résolu.

[Phiphi41]

Bonjour

Bon, j'ai progressé avec le code suivant, le hic c'est que si j'ai 2 voir plus bases d'ouvertes, cela ne m'affiche que la première qui a été ouverte et pas les autres, alors que si j'ai par exemple 32 bases, j'ai 3 affichages mais avec le même nom à chaque fois, pas top top comme truc.

Il parcourt bien tous les processus, mais pourquoi n'afficher que le même 3 fois ????

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
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        For Each p As Process In Process.GetProcesses
            If p.ProcessName = "msaccess" Then
                Dim acc As Object = GetObject("Access.Application")
 
                MessageBox.Show(acc.CurrentProject.FullName)
 
            End If
        Next
    End Sub
    Friend Function GetObject(ByVal App As String) As Object
        Try
            ' log.Debug("Begin...")
            Return Runtime.InteropServices.Marshal.GetActiveObject(App)
        Catch ex As Exception
            Return Nothing
            'Log.Error("", ex)
        Finally
            'Log.Debug("End...")
        End Try
    End Function