Fermeture auto seulement si USF fermé

Bonjour à tous,

J aurais besoin d une piste .svp

Mon fichier se ferme automatiquement sur cette exemple après 2 min.

Mais j aimerais que si mon userform1 est ouvert alors ne pas fermer le programme ou décaler la fermeture dans une heure. Afin de ne pas perdre les données.

Sub fermeture__2()

If UserForm1.Visible = True Then
HeureFermeture = Now + TimeValue("01:02:00")
Application.OnTime HeureFermeture, "FermeClasseur"

Else
HeureFermeture = Now + TimeValue("00:02:00")
Application.OnTime HeureFermeture, "FermeClasseur"
End If

End Sub        

Ce code ne marche pas évidemment. Mais j essaye

Bonsoir,

Ci-joint une proposition à tester.

Principe :

> ajout d'une variable globale "gbUFActif", booléen indiquant si le UF est ouvert.

> à l'ouverture du fichier, initialisée à faux (le UF est inactif)

=> cf Private Sub Workbook_Open()

> lors de l'affichage du UserForm, passe à vrai

=> cf Private Sub UserForm_Initialize()

> lors de la fermeture du UserForm, repasse à faux (et on remet un compteur de 2 minutes)

=> cf Private Sub UserForm_Terminate()

> procédure de fermeture : si UserForm inactif (gbUFActif = false), on ferme le fichier, sinon, rien.

=> cf Public Sub FermeClasseur()

Bouben

Bonsoir,

2 posts pour le même sujet ?

https://forum.excel-pratique.com/viewtopic.php?f=2&t=139527

Bouben

Bouben,

Déjà un grand merci pour ton aide précieuse !

Et oui, n'ayant pas de news de mon poste précédent et ne pouvant plus modifier.

J'en ai crée un nouveau avec une explication peut-être un peu plus claire (ou pas)

Ton fichier fonctionne parfaitement, il ne me reste plus cas étudier tout ça pour l'intégrer dans mon pgrm

Encore merci !!!!

Bouben,

J’aimerais rajouter un petit détail ! Mais malgré mes tests ça ne fonctionne pas, donc je te reviens si tu as encore un peu de temps.

J'aimerais que si le USF est ouvert, qu'il lance quand même une fermeture automatique mais après 1h00 par exemple.

Histoire de ne pas bloquer le ficher comme il est en partage.

Si tu as le temps : Merci

Si tu n'as pas le temps, merci aussi :C'était déjà parfait !

Hello Jérôme,

Ci-joint une nouvelle version, avec la gestion des 2 contextes :

> fermeture après x minutes si le UF n'est pas ouvert (5 secondes dans l'exemple)

=> tel que fait précédemment

> fermeture après x minutes si le UF est ouvert (20 secondes dans l'exemple)

=> nouveau

A tester !

Bouben

Bouben,

THANKS !!!!

Un grand merci ! Et bravo !

Je vais mettre ça en place.

Super... Merci pour l'aide.