Discussion :

[norman5]

bonjour a tous

je dispose d'un fichier avec de nombreux userform.
mon problème c'est que les clients utilisant ces userform "oublient" souvent de les fermer après les avoir ouvert par erreur.

ma question est la suivante : est il possible de fermer automatiquement un user form au bout de 10 seconde si ce dernier est inactif ?

merci

[jfontaine]

Bonjour,

Et si tu les ouvrais en modal pour n'avor qu'une seule form d'ouverte à la fois

Code :

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

Maform.Show 1

[norman5]

oui j y est pense mais ça ne règle pas mon problème parce que mon but c'est d'afficher le fichier excel en priorité (une vidéo tourne en boucle sur excel).

et donc, si quelqu'un "oublie" de fermer une fenêtre qu'il a ouvert, faudrait qu'on la ferme pour lui...

la fonction :

Code :

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

1
2
3
4
 
    Application.Wait Now + TimeValue("00:00:10") '10 secondes
   Unload userform
   userform.Hide

ceci fonctionne mais ne prend pas en compte l’inactivité du userform. De plus, elle empêche toute action sur le userform en question...

ya il un moyen de detourner cette fonction pour que cela rentre dans mes criteres ?

[garheb]

Coucou,

Tu pourrais mettre à l'ouverture de l'usf

Code :

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

deb = now() + timevalue("00:00:60")

Puis ton code dans une boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Do While (deb <> now())
 
      Traitement...
 
Loop
 
If(screen.activeform <> tonFormulaire) Then
 
      Unload Me
 
End If

Code à prendre avec des pincettes, je suis débutant donc peut-être que je dis des bêtises. :p

Il vérifiera après 60 sec après l'ouverture si le formulaire a le focus et si il l'a pas il se ferme.

[norman5]

ca ne marche pas...

[jfontaine]

Une solution serait de fermer les userform à l'activation d'un onglet.
Est ce que ca irait

[JPierreM]

Bonjour,

Code :

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

1
2
3
4
Private Sub UserForm_Activate()
    compteur = 5
    laProcedure
End Sub

dans un module standard

Option Explicit

Public compteur

Code :

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

1
2
3
Sub information()
        UserForm1.Show
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub laProcedure()
     UserForm1.Caption = "Fermeture dans : " & compteur & " secondes"
     UserForm1.Label1 = UserForm1.Caption
        If compteur = 0 Then
            UserForm1.Hide
            Exit Sub
        End If
    Application.OnTime Now + TimeValue("00:00:01"), procedure:="laProcedure"
    compteur = compteur - 1
End Sub

A essayer

JP