Détection erronée de classeurs Excel ouverts via Access

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

À partir d'un formulaire, j'aimerais savoir si des classeurs Excel spécifiques sont ouverts.

Lorsqu'un ou plusieurs de ceux-ci ont été ouverts via Excel ou via l'explorateur Windows, ou si un des classeurs seulement a été ouvert via Access, tout fonctionne parfaitement, mais si plusieurs classeurs ont été ouverts via Access, la détection est erronée. La détection est également correcte, lorsqu'aucun des classeurs n'est ouvert.

Voici la procédure pour ouvrir les classeurs :

Code:

1
2
3
4
5
6
7
8
9
10
11
Function OuvrirFichierXLS(Fichier As String)
Dim xl As Object 'Excel Application
Dim wb As Object 'Excel Workbook
 
    Set xl = CreateObject("Excel.Application")
    Set wb = xl.Workbooks.Open(Fichier)
    xl.Visible = True
 
    Set wb = Nothing
    Set xl = Nothing
End Function

Voici la procédure pour vérifier si des classeurs spécifiques sont ouverts :
Dans un module :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function IsExcelWorkbookOpen(wbName As String) As Boolean
    Dim xlApp As Object
    Dim xlWorkbook As Object
 
    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    On Error GoTo 0
 
    If Not xlApp Is Nothing Then
        For Each xlWorkbook In xlApp.Workbooks
            If xlWorkbook.Name = wbName Then
                IsExcelWorkbookOpen = True
                Exit Function
            End If
        Next xlWorkbook
    End If
 
    IsExcelWorkbookOpen = False
 
    Set xlApp = Nothing
    Set xlWorkbook = Nothing
 
End Function

Dans une procédure:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub cmdCheckWorkbookOpen_Click()
Dim WorkbookName As String
Dim OpenWorkbook As Boolean
Dim i As Integer
Dim FileList() As Variant ' Liste des fichiers
 
    FileList = Array("Classeur1.xlsm", "Classeur2.xlsm", "Classeur3.xlsm")
 
    For i = LBound(params) To UBound(params)
        WorkbookName = FileList(i)
        If IsExcelWorkbookOpen(WorkbookName) Then
            OpenWorkbook = True
            MsgBox "Le classeur : " & WorkbookName & " est ouvert."
        Else
            MsgBox "Le classeur : " & WorkbookName & " est fermé."
        End If
    Next i
 
End Sub

Voici le résultat d'une série de tests effectué. En vert la détection est correcte :

Pièce jointe 659543

Si quelqu’un a une piste...

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
Function IsWorkbookOpen(filePath As String) As Boolean
    Dim fileNum As Integer
    fileNum = FreeFile ' Obtenir un numéro de fichier gratuit
 
    On Error Resume Next
    ' Essayer d'ouvrir le fichier en lecture seule avec verrouillage
    Open filePath For Input Lock Read As fileNum
    IsWorkbookOpen = (Err.Number <> 0) ' S'il y a une erreur, le fichier est déjà ouvert
    Close fileNum
    On Error GoTo 0
End Function

20/09/2024, 10h06
Gaston62

Bonjour Thumb down,

Ma-gni-fique, ça marche à merveille et en plus c'est concis!

Merci et bonne journée,
Gaston

Salut,

Pas une piste mais une explication, problème de multi-instances:

Une instance d'Excel peut contenir plusieurs classeurs, mais:
CreateObject, comme son nom l'indique, créer une nouvelle insrtance.
GetObject renvoie une instance, à priory, la première créée, donc ne gère pas le multi-instances.

Ca peut être mis en évidence par le code suivant:

Code:

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
Private Instances As Collection
 
Public Sub test()
    Set Instances = New Collection
 
        '// créé une instance
    Dim Instance As Object
    Set Instance = CreateInstance
 
        '// ajoute 3 classeurs
    Dim i As Integer
    For i = 1 To 3
        Instance.workbooks.Add "C:\........\Classeur" & i & ".xlsx"
    Next
        '// ajoute l'instance à la collection
    Instances.Add Instance
 
        '// créé une seconde instance
    Set Instance = CreateInstance
    Instance.workbook.Add "C:\........\Classeur4.xlsx"
    Instances.Add Instance
 
        '// recupère une instance
    Set Instance = GetObject(Class:="Excel.Application")
        '// affiche le nombre de classeurs ouverts par l'instance récupérée
        '// 3 (ou 1) classeurs sont comptés, alors qu'il y en a 4 ouverts
    Debug.Print Instance.workbooks.Count
End Sub
 
Private Function CreateInstance() As Object
    Dim Instance As Object
    Set Instance = CreateObject("Excel.Application")
    Instance.Visible = True
    Set CreateInstance = Instance
End Function

20/09/2024, 10h27
deedolith

@Thumb down:
A ma connaissance, Excel ne verrouille pas les fichier (l'ouverture en multi-utilisateurs serait impossible sinon).

Testé en ouvrant au préalable un fichier en lecture seule ou mode protégé, la fonction retourne faux.
20/09/2024, 10h45
Gaston62

Bonjour deedolith,

Merci pour cette explication, mais pourrais-tu me dire comment mettre le test en pratique?

Le "Public Sub test" dans un bouton de commande et "Private Function CreateInstance() As Object" dans le module en cours ou dans un module séparé ?
20/09/2024, 11h09
deedolith

1) Tu copies le code dans un module standard quelconque (un nouveau de préférence vu que ce n'est pas destiné à être pérennisé),
tu places le curseur de saisie dans la fonction Test (ou click dans son code source) et tu appuies sur F5.

2) Tu entres le nom de la fonction dans la fenêtre d'exécution.

Note:
Les fonctions privées ne sont pas destinées a être executées manuellement, ni depuis l'extérieur du module dans lequel elles sont déclarées.
20/09/2024, 11h36
Gaston62

Citation:

Envoyé par deedolith

1) Tu copies le code dans un module standard quelconque (un nouveau de préférence vu que ce n'est pas destiné à être pérennisé),
tu places le curseur de saisie dans la fonction Test (ou click dans son code source) et tu appuies sur F5.

2) Tu entres le nom de la fonction dans la fenêtre d'exécution.

Note:
Les fonctions privées ne sont pas destinées a être executées manuellement, ni depuis l'extérieur du module dans lequel elles sont déclarées.

OK, je teste ça et reviens vers toi !
20/09/2024, 19h32
Gaston62

Bonjour deedolith,

J'ai testé ton code et effectivement la nouvelle instance n'est pas prise en compte.
Ce test m'a permis de mieux comprendre le fonctionnement et les problèmes que l'on peut rencontrer avec les "multi-instances".

Juste une petite erreur dans la ligne 20 : Workbook devrait-être Workbooks ;)

Code:

Instance.workbook.Add "C:\........\Classeur4.xlsx"

Merci pour cet éclairage bien utile!