Boite de dialogue et fermeture automatique

Dranreb

XLDnaute Barbatruc

• 15 Juin 2017

• #2

Bonjour.
Essayez ça.
Remarque: je suis encore en train de le tester, alors il y a peut être un bogue.
De fait, il y en avait déjà un: oublié de mettre la propriété ShowModal de l'UFm à False.

 

Vote positif -1 Vote négatif

N

Nplayer76

XLDnaute Nouveau

• 16 Juin 2017

• #3

Bonjour,
merci pour la réponse rapide.

Je viens de tester le fichier, et il ne se passe rien chez moi. Et n'ayant pas de connaissance sur les modules de classe, votre macro me dépasse complètement. Je ne trouve même pas comment régler le délai ^^

Merci de me redire si vous trouvez d'où vient le problème.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Juin 2017

• #4

Bonjour.
Le délai est spécifié dans l'UFmPrévFerm
Je le rejoins ici au cas où vous l'auriez récupéré avant qu'il ne soit dans son dernier état.

 

Pièces jointes

• PlanifNplayer76.xlsm

  25 KB · Affichages: 49

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Juin 2017

• #5

Notez que si vous préférez on pourrait aussi l'écrire comme ça.

Et si on pouvait consacrer une cellule au temps restant, affiché en permanence, on pourrait encore le faire différemment, et mettre une mise en forme conditionnelle la faisant passer progressivement du vert au rouge quand la fermeture devient imminente.

 

Pièces jointes

• PlanifNplayer76.xlsm

  25.3 KB · Affichages: 51

Vote positif 0 Vote négatif

N

Nplayer76

XLDnaute Nouveau

• 16 Juin 2017

• #6

Merci, avec les dernières versions ça fonctionne nikel

Ca m'a donné l'occasion de me pencher sur le fonctionnement des userforms

Merci pour l'aide

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Juin 2017

• #7

Une autre version qui semble en même temps résoudre le problème de la détection avant fermeture effective du classeur, et non avant fermeture possible sous réserve que l'utilisateur fasse Annuler lors du message demandant s'il veut ou non enregistrer les modifications.
En cas de désactivation de la fenêtre non consécutive à une demande de fermeture du classeur, le dialogue est lancé dans la seconde qui suit.

 

Pièces jointes

• PlanifNplayer76.xlsm

  25.8 KB · Affichages: 70

Vote positif 0 Vote négatif

N

Nplayer76

XLDnaute Nouveau

• 19 Juin 2017

• #8

Bonjour,

je viens de me rendre compte que lorsque l'on reporte la fermeture du fichier, le compte à rebours de 10 secondes de la prochaine alerte ne se déclenchera pas si le fichier excel n'est pas en fenêtre "active". Si la personne n'est pas devant son PC le fichier ne se fermera alors pas.

Je n'ai pas trouvé le paramètre en cause.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Juin 2017

• #9

Bonsoir.
Je rentre juste d'un petite escapade en Italie, et ne découvre votre message qu'à l'instant.
Bien difficile de de voir ce qui pourrait empêcher la fermeture.
Mais je suis en train de faire des essais.
À +

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Juin 2017

• #10

Bonjour.
Effectivement lorsqu'on n'est pas sur l'application, Windows demande à l'activer pour que l'UserForm puisse s'afficher. C'est bien embêtant. Je ne vois qu'une possibilité qui pourrait peut être résoudre le problème: mettre sa propriété ShowModal à False et l'afficher en permanence dès le début. Ça vous irait ?

 

Vote positif 0 Vote négatif

N

Nplayer76

XLDnaute Nouveau

• 23 Juin 2017

• #11

Bonjour,

je viens de tester, et mettre la propriété ShowModal du UserForm sur False fait que le fichier se ferme et se réouvre tout seul.

Avez-vous une autre piste ?

(Merci pour le Service Après-Vente )

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Juin 2017

• #12

Non, je n'ai pas dit que c'était suffisant: ça change complètement la programmation à mettre derrière aussi, en la simplifiant un tout petit peu d'ailleurs.
L'UserForm serait affiché en permanence, dès l'ouverture.

Dans ThisWorkbook :

VB:

Option Explicit
Private WithEvents FermetureAnnulée As Planification, _
   FermetureDemandée As Boolean

Private Sub Workbook_Open()
UFmPrévFerm.Show
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
FermetureDemandée = True
Set FermetureAnnulée = New Planification
FermetureAnnulée.PlanifierDans 1
End Sub

Private Sub FermetureAnnulée_Échoit()
FermetureDemandée = False
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
If FermetureDemandée Then MPlanificateur.DéplanifierTout
End Sub

Dans UFmPrévFerm :

VB:

Option Explicit
Private WithEvents Décompte As Planification, SecRest As Long

Private Sub UserForm_Initialize()
Set Décompte = New Planification
SecRest = 600
MàJTempsRest
End Sub

Sub MàJTempsRest()
Labinfo.Caption = "Fermeture dans " & Format(SecRest / 86400, "mm:ss")
Décompte.PlanifierDans 1
End Sub

Private Sub Décompte_Échoit()
SecRest = SecRest - 1
If SecRest > 0 Then
   MàJTempsRest
Else
   ThisWorkbook.Close SaveChanges:=True
   End If
End Sub

Private Sub CBnReporter_Click()
SecRest = 300
MàJTempsRest
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode > vbFormControlMenu Then Exit Sub
Décompte.Déplanifier
ThisWorkbook.Close SaveChanges:=True
End Sub

À tester.

 

Vote positif 0 Vote négatif

N

Nplayer76

XLDnaute Nouveau

• 26 Juin 2017

• #13

Bonjour,

Pour le moment ça à l'air de bien marcher J'ai juste au à travailler la forme de la boite de dialogue pour qu'elle s'intègre dans le tableau.

Merci beaucoup

 

Vote positif 0 Vote négatif