Discussion :

[Bully66]

Bonjour à tous, est-ce possible de déconnecter une personne qui n'utilise pas un fichier excel pendant disons 10 minutes.

C'est que j'ai un formulaire en Excel avec du VBA qui est utilisé par plusieurs utilisateurs. Lorsqu'un utilisateur a ouvert le fichier et ne l'utilise pas, les autres ne peuvent pas l'utiliser car il y a une utilisateur dans le fichier. J'aimerais qu'il se déconnecte en sauvegardant les données après une dizaine de minute.

Merci

[alsimbad]

salut bully. tu as de la chance, je n'arrive pas a dormir, et le probleme m'a interressé

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim PauseTime, Start
    PauseTime = 10    ' Définit la durée.
    Start = Timer    ' Définit l'heure de début.
    Do While Timer < Start + PauseTime
        DoEvents    ' Donne le contrôle à d'autres processus.
    Loop
    ThisWorkbook.Save
        Application.Quit
End Sub

a placer dans le code des feuilles, pas dans un module.
ici le 10 est pour 10 secondes, si tu veux le regler a 10 mn, c'est 600
voila voila
a plus

[Bully66]

Je vais tester et te revenir.

Merci

Bully.

[Bully66]

Merci, ça fonctionne très bien.

Bully.

[Bully66]

Bonjour, petit bug et je ne sais pas comment le régler.

La déconnection fonctionne. Le problème c'est que lorsque la macro entre en fonction, je suis incapable de faire autre chose, genre lorsque je clique sur mon bouton trier par Date, cela ne fonctionne pas, il veut pas trier ou si je veux ajouter un record toujours en cliquant sur un bouton, il ne trouve pas à quel record je suis rendu comme si la macro de la déconnection automatique était prioritaire et que je ne pouvais pas faire autre chose.

Merci

Bully

[alsimbad]

je ne sais pas. je t'ai calculé cette macro comme ça, je n'en connais pas toutes les subtilités. manifestement le doevents laisse la main a d'autres utilisations, mais peut etre pas à d'autres macro. si c'est le cas, perso, je cale, je ne vois pas de moyen de contrer ça. désolé

[Bully66]

Merci

[Bully66]

Merci, j'essaie cela et te reviens.

Bully

[dadavyvy]

Tu peux egalement utiliser la fonction OnTime, qui te permet de lancer d'autres macros en attendant...
Dans le module ThisWorkbook :

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
Dim deconnexion
Const tps_deconnect = "00:10:00"
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Call Application.OnTime(deconnexion, "ThisWorkbook.Verif_Inactivite", , False)
End Sub
 
Private Sub Workbook_Open()
    deconnexion = Now + TimeValue(tps_deconnect)
    Call Verif_Inactivite
End Sub
 
Sub Verif_Inactivite()
    If deconnexion < Now + TimeValue("00:00:01") Then
        MsgBox "deconnexion"
    Else
        Application.OnTime deconnexion, "ThisWorkbook.Verif_Inactivite"
    End If
End Sub

Ensuite, il ne te reste plus qu'a re-calculer deconnexion a chaque action de l'utilisateur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    deconnexion = Now + TimeValue(tps_deconnect)
End Sub
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    deconnexion = Now + TimeValue(tps_deconnect)
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    deconnexion = Now + TimeValue(tps_deconnect)
End Sub

Et autres evenements...

Edit : ajout de l'annulation du OnTime à la demande de fermeture du fichier (BeforeClose). Mais si l'utilisateur ne ferme pas le fichier après l'alerte d'enregistrement...

[Bully66]

Bonjour Dadavyvy,

Après de nombreux test et recherche, la déconnexion fonctionne très bien. Lors de mes test, j'ouvre le fichier et j'attend qu'il se ferme, ça va bien, il se ferme et tout va pour le mieux. Mais après un certain temps, je ne sais pour qu'elle raison, le fichier se ferme comme d'habitude mais réouvre immédiatement, il peut faire cela à l'infini, j'ai beau chercher pourquoi mais là, je ne trouve pas la raison de cela.

Merci.

Bully.

[Bully66]

Merci Dadavyvy, c'est moi le problème, ça ne fonctionnais pas un moment donné donc je essayé en appelant Call de verif_inactivite dans le selectChange, calculate et change donc à chaque fois il relançais la procédure.

C'est de ma faute. Ça fonctionne très bien.

Merci à toi.

Bully.