Discussion :

[antonysansh]

Bonjour à tous,

J'ai dans un classeur un bouton qui n'apparait que si ThisWorkbook.ReadOnly est vrai.

Dans un module standard :

• Une fonction qui test si le fichier ouvert est disponible ou non :

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
Function IsFileOpen(filename As String)
    Dim Filenum%, Errnum%
        On Error Resume Next
            Filenum = FreeFile()
            'Test d'ouverture du fichier.
            Open filename For Input Lock Read As #Filenum
            Close Filenum
            Errnum = Err
        On Error GoTo 0
 
        Select Case Errnum
            Case 0: IsFileOpen = False
            Case 70: IsFileOpen = True
            Case Else: Error Errnum
        End Select
End Function

• Une procédure sur le bouton qui va test la disponibilité du fichier et afficher un message pouvant proposer l'ouverture de celui-ci s'il est disponible :

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
Sub TesterLectureSeule()
    Dim Message$, Titre$
        Titre = "        Lecture Seule"
        If IsFileOpen(ThisWorkbook.FullName) Then
            Message = "Le classeur est toujours réservé par un autre utilisateur."
            MsgBox Message, vbInformation, Titre
        Else
            Message = "Le classeur est maintenant disponible." & vbNewLine & vbNewLine & _
                    "Voulez-vous l'ouvrir en lecture / écriture ?"
            Select Case MsgBox(Message, vbInformation + vbYesNo, Titre)
                Case vbNo
                    'rien
                Case vbYes
                    Application.OnTime Now + TimeSerial(0, 0, 3), "OuvrirCeClasseur"
                    ThisWorkbook.Close (False)
            End Select
        End If
End Sub

• Une procédure pour s'auto-ouvrir :

Code :

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

1
2
3
Sub OuvrirCeClasseur()
    Workbooks.Open ThisWorkbook.FullName
End Sub

Dans le module ThisWorkbook :

Code :

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

1
2
3
Private Sub Workbook_Open()
    MsgBox "execution de Workbook_Open"
End Sub

Vous pouvez voir que les deux lignes :

Code :

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

1
2
Application.OnTime Now + TimeSerial(0, 0, 3), "OuvrirCeClasseur"
ThisWorkbook.Close (False)

programment l'ouverture du fichier dans 3 secondes et le ferme. L'instance Excel restant ouvert, la procédure OuvrirCeClasseur va bien s'exécuter.


Mon problème est que le fichier se rouvre bien en lecture / écriture mais l'évènement Workbook_Open ne s'exécute pas.

Savez-vous pourquoi ? Et auriez-vous des pistes à explorer pour régler le problème ?

[Invité]

Bonjour,
Le niveau de sécurité des macros?
Ceci dit

Code :

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

ThisWorkbook.Close (False)

arrête instantanément les macros exécuté par ThisWorkbook

[antonysansh]

Bonjour Robert,

Pour le niveau de sécurité des macros, je ne penses pas car lorsque j'ouvre en lecture seule, Workbook_Open est exécuté.

Ensuite je fais ThisworkBook.Close donc toutes les macros sont automatiquement désactivées, mais juste avant je programme le lancement d'une macro qui servira a l'ouvrir, et il s'ouvre bien mais sans le Workbook_Open.


As-tu testé de mettre les morceaux de code dans un classeur ? La seule chose impérative c'est que le fichier soit enregistrer physiquement dans le pc et que l'instance Excel reste ouvert. Ce qui est le cas avec .Close

[antonysansh]

Bonjour tout le monde,

Je suis toujours avec mon problème mais j'ai fait un test dont le résultat est étonnant :
Ajout dans le module ThisWorkbook de :

Code :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    MsgBox "fermeture"
End Sub

1. J'ouvre en lecture seule
2. j'exécute le code en particulier les deux lignes :
   

   Code :

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

   1
   2
   Application.OnTime Now + TimeSerial(0, 0, 3), "OuvrirCeClasseur"
   ThisWorkbook.Close (False)

3. Le fichier se ferme
4. 3 secondes plus tard il s'ouvre en lecture / écriture
5. MsgBox "execution de Workbook_Open" dans Workbook_Open ne s'exécute pas
6. Je ferme le fichier
7. MsgBox "fermeture" dans Workbook_BeforeClose s'exécute bien.

Etonnant non ? Des idées ?

[joe.levrai]

Bonjour,

et si tu passes par une procédure Auto_Open dans un module standard, il se passe quoi ?

Code :

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

1
2
3
Sub Auto_Open()
MsgBox "toto"
End Sub

quid de l'existence de procédures évènementielles dans tes feuilles ? Genre un petit EnableEvent qui traine ? (j'y crois pas trop)

[antonysansh]

Bonjour Joe,

Merci pour ta réponse mais Sub Auto_Open n'est pas exécuté non plus.

J'ai ajouté :

Code :

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

1
2
3
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    MsgBox Target.Address
End Sub

Apres fermeture et réouverture 3 secondes plus tard, l'évènement Workbook_SheetSelectionChange est bien fonctionnel donc EnableEvent est bien a vrai.


Je suis perdu car je ne vois vraiment pas pourquoi seul l'évènement d'ouverture du classeur est inopérant.