USF de fermeture de fichier, encore un p'tit coup de main SVP

Re : USF de fermeture de fichier, encore un p'tit coup de main SVP

Bonsoir,

Tu recharges le Userform à la fermeture ?!
Là c'est mieux ...

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'On Error Resume Next
'UserForm1.Show
'On Error GoTo 0

Select Case rep
Case "OUI"
Unload UserForm1
ThisWorkbook.Close True
Exit Sub
Case "NON"
Unload UserForm1
ThisWorkbook.Close False
Exit Sub
Case "ABANDON"
Cancel = True
Exit Sub
Stop
End Select
Cancel = False
End Sub

Tu peux également enlever la procedure Workbook_BeforeClose
Elle est redondante avec les boutons.

Pour les boutons :

Private Sub CommandButton1_Click()
Unload UserForm1
ThisWorkbook.Close True
End Sub
Private Sub CommandButton2_Click()
Unload UserForm1
ThisWorkbook.Close False
End Sub
Private Sub CommandButton3_Click()
Unload UserForm1
Cancel = True
Unload Me
End Sub
Private Sub UserForm_Activate()
ThisWorkbook.Saved = False
End Sub

Voir fichier joint.

Re : USF de fermeture de fichier, encore un p'tit coup de main SVP

Merci Catrice (ouarf !!!)

Je te précise que je veux que l'USF soit proposée QUEL QUE SOIT le mode de cloture choisi par l'utilisateur (bouton, croix ou click droit), sinon bien sur c'est simple...
Dans ton fichier la cloture par la croix ferme tout bonnement le classeur sans rien sauvegarder ! Les données seront perdues.. pas cool !

A +
Philippe

Re : USF de fermeture de fichier, encore un p'tit coup de main SVP

Bonjour,

Effectivement, je n'avais pas compris exactement ce que tu voulais faire.
En fait, le probleme c'est de ne pas afficher 2 fois la boite de dialogue.
Elle se réaffiche à la fermeture de la feuille :-(
A suivre ...

Re : USF de fermeture de fichier, encore un p'tit coup de main SVP

Bonjour,

J'ai un peu de mal ...
J'ai réussi à regler le pb de double affichage de la boite de dialogue, mais le sablier ... pas moyen ...

Ci-joint l'etat actuel des recherches :-(

Re : USF de fermeture de fichier, encore un p'tit coup de main SVP

Oui c'est quand même curieux ce sablier qui persiste...
Je n'arrive pas à comprendre pourquoi en fait...

Bon, on est au point de départ...

HELP !!!

A+
Philippe