Timer fermeture Ti adapté

[degap05]

Bonjour à tous,

J'ai un peu adapté à mes besoins le Timer de fermeture Ti.

Son fonctionnement est parfait.
Pour mon fichier, j'aimerais qu'avec votre aide, ce timer soit encore plus performant.

Dans mon fichier de travail, j'appelle des USF sur différentes feuilles.
Si un utilisateur laisse un USF affiché, le timer va déclencher une erreur.
Serait-il possible, qu'au déclenchement de la macro tous les USF (s'il y en a d'affiché), soient fermés ?

Private Sub Interruption()
With ThisWorkbook
If .Sheets(1).[Chrono] = 0 Then
'la commande de fermeture des USF ici
.Save
.Application.Quit
Else
Programmation
End If
End With
End Sub

Qu'en pensez-vous?
Merci.
A+

 

[CBernardT]

Re : Timer fermeture Ti adapté

Bonjour degap05,


Essai sans vérification 😀😀

Private Sub Interruption()
Dim i As Integer
With ThisWorkbook
If .Sheets(1).[Chrono] = 0 Then
For i = 1 To UserForms.Count
Unload UserForms.Item(i)
Next
.Save
.Application.Quit
Else
Programmation
End If
End With
End Sub

Cordialement

Bernard

 

[degap05]

Re : Timer fermeture Ti adapté

Bonjour CBernardT,

Merci pour ta proposition.

J'ai essayé sans ouvrir d'USF, la macro se déroule normalement.
Avec un USF ouvert j'ai le message:
"l'indice n'appartient pas à la sélection"
Est-ce que cela te parle ?

Merci.

 

[CBernardT]

Re : Timer fermeture Ti adapté

Re,


Sans fichier, je ne peux guère aller plus loin !

Cordialement

Bernard

 

[degap05]

Re : Timer fermeture Ti adapté

Re,


Sans fichier, je ne peux guère aller plus loin !

Cordialement

Bernard

Bonjour, Bernard,

Voilà le fichier joint pour expérimenter. Paradoxalement celui-ci se ferme correctement, même avec un USF affiché..........ce qui n'est pas le cas de mon fichier de travail. J'aimerais donc ton aide pour arriver à fermer n'importe quel USF affiché, avant exécution de la fermeture.

Merci.

 

[CBernardT]

Re : Timer fermeture Ti adapté

Bonjour degap05,


Quelques modifications pour avoir une fermeture "propre" pour toutes les possibilités.

Cordialement

Bernard

 

[degap05]

Re : Timer fermeture Ti adapté

Bonjour CBernardT,

Merci pour ta solution qui fonctionne parfaitement.

Salutations.