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é