Excel 2003 - Détecter si un classeur est déjà ouvert

Version imprimable

23/12/2008, 14h34
Daejung

Excel 2003 - Détecter si un classeur est déjà ouvert

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
23/12/2008, 18h39
kiki29

Salut, voir http://excel.developpez.com/faq/?pag...ClasseurOuvert et adapter
23/12/2008, 18h41
Daejung

Citation:

Envoyé par kiki29

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

Citation:

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.

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:

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

23/12/2008, 18h49
kiki29

réessaie, lien corrigé

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:

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.

23/12/2008, 20h37
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é
23/12/2008, 20h49
ucfoutu

Citation:

Envoyé par Pierre Fauconnier

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é

Bien vu, en effet...
Parade alors (pas d'adaptation mais stratégie différente) :
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é ...;)
23/12/2008, 20h53
Daejung

Citation:

Envoyé par kiki29

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

ok mais cela vérifie si plusieurs instances?

Citation:
Envoyé par 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:

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 :

Citation:

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

Citation:

Envoyé par Daejung

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?

Bon...
Je suppose que tu veux dire "utiliser le chemin du fichier" ?

Bon...
Et pourquoi pas ? Exerçons nous avec un exemple succinct mais parlant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Declare Function lOpen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long Private Declare Function lClose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long Private Function dejaouvert(FileName As String) As Boolean Dim lfic As Long, erreur As Long lfic = -1: erreur = 0 lfic = lOpen(FileName, &H10) If lfic = -1 Then erreur = Err.LastDllError Else lClose (lfic) End If dejaouvert = (lfic = -1) And (erreur = 32) End Function Private Sub Command1_Click() MsgBox dejaouvert("d:\ucfoutu\class1.xls") ' mets ici TON chemin End Sub
J'espère que l'on va maintenant s'arrêter ici, hein ...:lol:

23/12/2008, 21h26
Daejung

je veux dire que le titre de la fenêtre n'est pas forcément "Microsoft Excel - Class1.xls " mais peut aussi bien être "toto - Class1.xls " ou "tutu - Class1.xls " (et le classeur peut être masqué aussi).

Citation:
Envoyé par ucfoutu
Bon...
Je suppose que tu veux dire "utiliser le chemin du fichier" ?

Bon...
Et pourquoi pas ? Exerçons nous avec un exemple succinct mais parlant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Declare Function lOpen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long Private Declare Function lClose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long Private Function dejaouvert(FileName As String) As Boolean Dim lfic As Long, erreur As Long lfic = -1: erreur = 0 lfic = lOpen(FileName, &H10) If lfic = -1 Then erreur = Err.LastDllError Else lClose (lfic) End If dejaouvert = (lfic = -1) And (erreur = 32) End Function Private Sub Command1_Click() MsgBox dejaouvert("d:\ucfoutu\class1.xls") ' mets ici TON chemin End Sub
J'espère que l'on va maintenant s'arrêter ici, hein ...:lol:
EDIT :
1) ce code par API est la traduction "en direct" du lien donné dans la FAQ et utilisant la gestion d'erreur
2) on pourrait faire la même chose en tentant simplement de modifier l'attribut du fichier considéré....(et en le rétablissant si non ouvert) ;)
Rome est unique mais les chemins qui y conduisent sont pléthoriques...

3)

Citation:

Envoyé par Daejung

je veux dire que le titre de la fenêtre n'est pas forcément "Microsoft Excel - Class1.xls " mais peut aussi bien être "toto - Class1.xls " ou "tutu - Class1.xls " (et le classeur peut être masqué aussi).

OPn ne s'en préoccupe même plus, de ce titre ....!!!

23/12/2008, 21h36
Daejung

Ok merci ca marche

même si je ne comprends pas la foonction, ce qui est dommage (enfin pour moi!)

ca marche aussi en ne mettant que le nom du fichier, sans le chemin, apparemment
23/12/2008, 21h48
ucfoutu

NON ...
Mets le chemin complet. Celà tévitera des désagréments le jour où il s'agira d'un classeur ouvert dans un autre répertoire !
Tu peux toujours utiliser au besoin Application.Path (si même répertoire) pour ne pas avoir à écrire le chemin "en dur"....

bonjour

Citation:

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

ok mais cela vérifie si plusieurs instances?

Oui la solution de Kiki fonctionne, et si tu avais testé par toi même tu n'aurais pas eu besoin de poser la question ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Test()
    If VerifOuvertureClasseur("C:\Dossier\nom classeur.xls") Then
        MsgBox "Classeur déja ouvert."
    Else
        MsgBox "Classeur fermé."
    End If
End Sub
 
 
Function VerifOuvertureClasseur(Fichier As String) As Boolean
    Dim x As Integer
 
    On Error Resume Next
    x = FreeFile()
 
    Open Fichier For Input Lock Read As #x
    Close x
 
    If Err.Number = 0 Then VerifOuvertureClasseur = False
    If Err.Number = 70 Then VerifOuvertureClasseur = True
 
    On Error GoTo 0
End Function

bonne journée
michel