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.

[joe.levrai]

Afin d'écarter toute cause liée à la structure du classeur (formules, évènements, mises en forme etc etc...), tu as essayé de reproduire ce comportement sur un fichier Excel complètement vierge ?


Peut être que la réouverture programmée dans l'instance neutralise l'évènement "ouverture" ?

D'ailleurs, j'ai été surpris de ce que tu mets en place dans la mesure où quand un fichier est en lecture seule sur un reseau, on a une invite proposant d'avertir quand le fichier est disponible

[antonysansh]

J'ai trouvé une Bidouille de contournement. (Bidouille car vraiment pas une solution)

J'écris une procédure MyAutoOpen, mon Workbook_Open devient un simple Call MyAutoOpen donc rien de diffèrent dans le fonctionnement d'origine.
Ensuite :

Code :

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

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

De cette façon l'équivalent de mon Workbook_Open est exécuté.


Mais on peut voir tout de suite que c'est bien une bidouille et non une solution car si le fichier met plus de 3 secondes à s'ouvrir ça va être le foutoire


Je ne passe en résolu car j'ai toujours espoir que l'un de vous me donne une explication sur le comportement d'Excel dans mon cas.

Patrick t'es ou ?
Et ne me répondez pas à Toulon !!!

[antonysansh]

Afin d'écarter toute cause liée à la structure du classeur (formules, évènements, mises en forme etc etc...), tu as essayé de reproduire ce comportement sur un fichier Excel complètement vierge ?

C'est déjà le cas. Fichier complètement vierge qui n'a pour code que ce que j'ai posté dans cette discussion.

Peut être que la réouverture programmée dans l'instance neutralise l'évènement "ouverture" ?

C'est l'impression que j'ai mais très peu d'info à ce sujet sur le net. Donc compliqué à confirmer ou réfuter.

D'ailleurs, j'ai été surpris de ce que tu mets en place dans la mesure où quand un fichier est en lecture seule sur un reseau, on a une invite proposant d'avertir quand le fichier est disponible

Je ne voulais pas utiliser cette solution car il me s'emble que l'instance Excel doit rester ouverte ce que ne font pas forcement les utilisateurs et moi non plus d'ailleurs.
En plus je viens de tester et chose étonnante, Workbook_Open n'est pas exécuté non plus

[antonysansh]

Bonjour,

Je viens de tomber la dessus :

Une macro "Auto_Open" est ignorée lorsqu'un classeur est ouvert par le biais du code à l'aide de la méthode Open.

Dans ce lien

Il est aussi précisé qu'il faut utiliser l'évènement Workbook_Open dans ce cas. (ce qui est mon cas)

Pensez-vous qu'il y a un lien avec mon cas ?

[Invité]

Bonjour,

Code dans ThisWorkbook :

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

1
2
3
private Sub Workbook_Open()
MyAutoOpen
End Sub

Code dans un modue standard :

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

1
2
3
4
Sub MyAutoOpen()
Application.OnTime Now + TimeSerial(0, 0, 3 + 3), "MyAutoOpen"
ThisWorkbook.Close (False)
End Sub

[antonysansh]

Bonjour Robert,

Je ne comprends pas ta proposition, mon but n'est pas de faire tourner en boucle la macro MyAutoOpen.

Je programme juste la réouverture du fichier et je suis obligé de programmer aussi l'exécution de MyAutoOpen car Workbook_Open n'est pas exécuté.
Cela posse un problème car si le fichier est trop long a s'ouvrir, les 3 secondes peuvent ne pas être suffisante.

En fait je veux juste comprendre pourquoi seule la macro évènementielle Workbook_Open n'est pas exécuté dans le cas d'un Workbooks.open placé dans un Application.OnTime.


EDIT:
Je viens de faire le test suivant :

Dans un autre classeur je fais :

Code :

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

1
2
3
Sub ouvrir()
    Workbooks.Open ("C:\Users\*****\Desktop\Classeur1.xlsb")
End Sub

Workbook_Open est bien exécuté.

Ensuite toujour dans cet autre classeur :

Code :

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

1
2
3
Sub test()
    Application.OnTime Now + TimeSerial(0, 0, 3), "ouvrir"
End Sub

La aussi Workbook_Open est bien exécuté.


Je suis perdu