Discussion :

[Daejung]

Bonjour,

Je sais détecter si un fichier est déjà ouvert si c'est dans la même instance d'Excel, mais comment le faire si c'est dans une instance différente?

Merci

[kiki29]

Salut, voir http://excel.developpez.com/faq/?pag...ClasseurOuvert et adapter

[Daejung]

Salut, voir http://excel.developpez.com/faq/page...ClasseurOuvert et adapter

Access
La page demandée n'a pas pu être trouvée sur le serveur.
Veuillez vérifier que vous ne vous êtes pas trompé dans l'URL.

[pgz]

Bonjour.

Tu as une réponse d'AlainTech ici.

Je peux te proposer aussi une fonction qui utilise la bibli Windows host script object model

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
Function fctIsOpen(ByVal sPath As String) As Integer
Dim fso As IWshRuntimeLibrary.FileSystemObject
Dim fle As IWshRuntimeLibrary.File
 
Set fso = New IWshRuntimeLibrary.FileSystemObject
On Error Resume Next
    Set fle = fso.GetFile(sPath)
    If Err.Number <> 0 Then
        fctIsOpen = -1
        Exit Function
    Else
        fle.Move sPath
        fctIsOpen = IIf(Err.Number <> 0, 1, 0)
    End If
On Error GoTo 0
 
Set fso = Nothing
Set fle = Nothing
 
End Function

La fonction renvoie -1 si le fichier n'existe pas, 0 s'il n'est pas ouvert, 1 s'il est ouvert.

Sinon on doit pouvoir faire avec une ou deux API.

Une fois que tu sais s'il est ouvert, si tu veux l'instancier, tu peux utiliser GetObject.

En espérant que cela t'aide,

PGZ

[kiki29]

réessaie, lien corrigé

[ucfoutu]

Bonjour,

ou tout simplement en utilisant la fonction FindWindow de la librairie User32 de l'Api de Windows.
Car, si l'on cherche un classeur, on en connait la classe et le nom...
Si le classeur est ouvert, la fonction retourne son hwnd. Dans le cas contraire, elle retourne un Null

EDIT :
Illustrons donc notre assertion par un exemple (où le classeur se nomme Class1.xls)

Code :

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

1
2
3
4
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Form_Load()
    If FindWindow("XLMAIN", "Microsoft Excel - Class1.xls") > 0 Then MsgBox "classeur déjà ouvert"
End Sub

XLMAIN est la classe Excel
Microsoft Excel - Class1.xls est le titre de la fenêtre à rechercher.
Et c'est tout.

[Pierre Fauconnier]

Bonsoir

Il faut noter que si plusieurs fenêtres du classeur sont ouvertes, ou que l'on est en groupe de travail, ou que l'on est en lecture seule, le code de ucfoutu devra être adapté, car les noms des fenêtres sont modifiés dans ces cas de figure, et la recherche ne renverra pas le résultat souhaité

[Daejung]

Bonjour,

ou tout simplement en utilisant la fonction FindWindow de la librairie User32 de l'Api de Windows.
Car, si l'on cherche un classeur, on en connait la classe et le nom...
Si le classeur est ouvert, la fonction retourne son hwnd. Dans le cas contraire, elle retourne un Null

EDIT :
Illustrons donc notre assertion par un exemple (où le classeur se nomme Class1.xls)

Code :

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

1
2
3
4
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Form_Load()
    If FindWindow("XLMAIN", "Microsoft Excel - Class1.xls") > 0 Then MsgBox "classeur déjà ouvert"
End Sub

XLMAIN est la classe Excel
Microsoft Excel - Class1.xls est le titre de la fenêtre à rechercher.
Et c'est tout.

ok merci

titre de la fenêtre? il peut y avoir des titres personnalisés suivant les postes

on ne peut pas avoir le nom du fichier tout simplement?

Je vois après coup que c'est écrit plus haut :

Utilisation des fonctions EnumWindows et GetWindowText de la librairie User32 de l'Api de Windows. Pour chaque élément : utilisation de la fonction Like de VBA pour comparer te résultat de GetWindowText avec le nom ou une partie du nom (celle restant fixe) du classeur recherché

Comment écrire le code correspondant?

Merci

[Daejung]

Salut, voir http://excel.developpez.com/faq/?pag...ClasseurOuvert et adapter

ok mais cela vérifie si plusieurs instances?